在VB6.0里怎样把十进制转换为二进制？

Question

求助各位高手，在VB6.0里怎样把十进制转换为二进制？怎么写这段程序？

Answer 1

http://blog.csdn.net/szwangdf/archive/2008/01/31/2074151.aspx
百度一下 VB十进制转二进制 

Answer 2

Private Sub Command1_Click()
    Text2.Text = dec2bin(Text1.Text)
End SubPublic Function dec2bin(mynum As Variant) As String
Dim loopcounter As Integer
    If mynum >= 2 ^ 31 Then
        dec2bin = "Too big"
        Exit Function
    End If
    Do
        If (mynum And 2 ^ loopcounter) = 2 ^ loopcounter Then
            dec2bin = "1" & dec2bin
        Else
            dec2bin = "0" & dec2bin
        End If
        loopcounter = loopcounter + 1
    Loop Until 2 ^ loopcounter > mynum
End Function

Answer 3

Public Function DTOB(bb As Integer) '十进制转二进制
If bb = 0 Then
Aa = "00000000"
Else
Do While bb > 0
If bb - 128 >= 0 Then
Aa = Aa + "1"
bb = bb - 128
Else
Aa = Aa + "0"
End If
If bb - 64 >= 0 Then
Aa = Aa + "1"
bb = bb - 64
Else
Aa = Aa + "0"
End If
If bb - 32 >= 0 Then
Aa = Aa + "1"
bb = bb - 32
Else
Aa = Aa + "0"
End If
If bb - 16 >= 0 Then
Aa = Aa + "1"
bb = bb - 16
Else
Aa = Aa + "0"
End If
If bb - 8 >= 0 Then
Aa = Aa + "1"
bb = bb - 8
Else
Aa = Aa + "0"
End If
If bb - 4 >= 0 Then
Aa = Aa + "1"
bb = bb - 4
Else
Aa = Aa + "0"
End If
If bb - 2 >= 0 Then
Aa = Aa + "1"
bb = bb - 2
Else
Aa = Aa + "0"
End If
If bb - 1 >= 0 Then
Aa = Aa + "1"
bb = bb - 1
Else
Aa = Aa + "0"
End If
Loop
End If
End Function