十进制转换二进制的内置函数是

十进制转换二进制的内置函数是？

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

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！