帮帮忙 编写一个简单的VB程序

Question

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

Answer 1

http://www.51vb6.com/viewthread.php?tid=762&extra=&ordertype=1

Answer 2

Debug.Print Hex(N)
Debug.Print Oct(N)

Answer 3

Function ToBin(inNumber, OutLenStr)
    Dim sBinary As String
    
    sBinary = ""
    Do While inNumber >= 1
      sBinary = sBinary & inNumber Mod 2
      inNumber = inNumber \ 2
    Loop
    sBinary = sBinary & String(OutLenStr - Len(sBinary), "0")
    ToBin = StrReverse(sBinary)
End Function
来个二进制的.这个貌似VB无内置.

Answer 4

十进制转二进制
Public Function DECtoBIN(Dec As Long) As String
    DECtoBIN = ""
    Do While Dec > 0
        DECtoBIN = Dec Mod 2 & DECtoBIN
        Dec = Dec \ 2
    Loop
End Function十进制转八进制：
VB自带函数：Oct(num)十进制转十六进制：
VB自带函数：hex(num) 

Answer 5

直接转VB有函数,
QQ393930958
本人VB函大全