编写VB程序 编写Sub过程 把任意一个十进制数N分别转换成二进制八进制十六进制表示的数

Private Function DecToPoint(value As Long, Flag As Long) As String Dim c As Long Dim r As Long c = value If Flag = 16 Then DecToPoint = Hex(c) Exit Function End If