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

2021-11-10 科技 199阅读

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
声明:你问我答网所有作品(图文、音视频)均由用户自行上传分享,仅供网友学习交流。若您的权利被侵害,请联系fangmu6661024@163.com