Question

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

Answer 1

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

Answer 2

函数是没有只有程序:
Private
Sub
Form_Click()
Dim
Dec
As
Integer
Dim
Bin
As
String
Dim
res
As
Integer
Dim
i
As
Integer
Dec
=
Val(InputBox("x="))
'输入一个十进制数
Form1.Print
"十进制数:";
Dec
Do
res
=
Dec
Mod
2
'求出除以2的余数
Bin
=
Trim(Str(res))
&
Bin
Dec
=
Dec
\
2
Loop
While
Dec
>=
1
Form1.Print
"转换为二进制数为:";
Bin
End
Sub

Answer 3

这是人家自己写的十进制转二进制的函数http://zhidao.baidu.com/question/27506976.html