VB中十进制转换为二进制的函数是什么?

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

这是人家自己写的十进制转二进制的函数