Question

vb中怎么从十进制转换成二进制？

我写了一段程序代码，是把十进制转换成二进制，可是运行的时候结果出的一直是错的。麻烦高手帮我看下哪里错了？

Private Sub Command1_Click()
Dim n As Long, p As Integer, a As Integer
a = Text1.Text
Do While a > 0
p = a Mod 2
a = a \ 2
n = p & n
Loop
Text2.Text = n

Answer 1

12345678910111213141516171819202122

Option Explicit    Dim sBin As String    Dim sHex As StringPrivate Sub Command1_Click()    sHex = Text1    HexToBin (sHex)    Text2 = sBin    sBin = ""End Sub  Private Sub Form_Load()    Text1 = ""End Sub  Public Function HexToBin(ByVal sHex As String) As String '处理16进制转换2进制代码    Const s1 = "0000101001101111000", s2 = "0125A4936DB7FEC8"    Dim i As Integer    sHex = UCase(sHex)    For i = 1 To Len(sHex)        sBin = sBin & Mid(s1, InStr(1, s2, Mid(sHex, i, 1)), 4)    Next iEnd Function