VB程序设计求2进制

Private Function change(num As Single)
Dim a As String, b As Integer
If num = 0 Then
change = "0"
Else
Do While num <> 0
b = num Mod 2
num = Int(num / 2)
a = Str(b) & a
Loop
change = a
End If
End Function

调用这个函数就可以了,如change(10)就输出1010

Private Function Ten2(ByVal X As Double) As String '把十进制数转化为二进制数
Do While X > 0
Select Case Right(Str(X), 1)
Case 1, 3, 5, 7, 9
Ten2 = "1" + Ten2
X = (X - 1) / 2
Case 0, 2, 4, 6, 8
Ten2 = "0" + Ten2
X = X / 2
End Select
Loop
End Function
这是我自编的十进制转换二进制的函数，如x=ten2(37)