vb中把十进制转换为二进制的程序怎么写 急求 T_T

vb中把十进制转换为二进制的程序怎么写 急求 T_T

Private Sub Command1_Click()
Dim n As Long
n = Val(Text1.Text)
Text2.Text = ""
Do While n > 0
Text2.Text = (n Mod 2) & Text2.Text
n = n 2
Loop
End Sub

Option Explicit
Dim sBin As String
Dim sHex As String
Private Sub Command1_Click()
sHex = Hex(Val(Text1))
Text2 = sHex
HexToBin (sHex)
Text3 = sBin
sBin = ""
End Sub

Private Sub Form_Load()
Text1 = ""
End Sub

Public Function HexToBin(ByVal sHex As String) As String '处理16进制转换2进制代码
Const s1 = "000010100110