VB中没有专门的将十进制数转换为二进制的函数。
需要自行编写十进制数转换为二进制字符串显示的函数实现。
十进制整数转二进制数:“除以2取余,逆序排列”(除二取余法)。
实现代码:
Public Function DECtoBIN(Dec As Long) As String '十进制数转换为二进制数的字符显示函数
DECtoBIN = ""
Do While Dec > 0
DECtoBIN = Dec Mod 2 & DECtoBIN
Dec = Dec \ 2
Loop
End Function
Private Sub Command1_Click()
Dim a As Long
a = InputBox("a=", a)
Debug.Print DECtoBIN(a)
End Sub