VB问题：求十进制转二进制的代码。

Private Sub Command5_Click()
Dim l2 As Long
Text3.Text = ""
If IsNumeric(Text4.Text) = False Then Exit Sub
Text3.Locked = True
l2 = CLng(Text4.Text)
Do While l2 > 0
Text3.Text = l2 Mod 2 & Text3.Text
l2 = l2 \ 2
Loop
End Sub

其中，十进制数值输入框为TEXT4
转换按钮为Command5
显示转换后二进制的输入框（锁定）为TEXT3

希望能帮助你^_^

Option Explicit

Private Sub Command1_Click()
Dim n As Integer, m As Integer, s As String, r As Integer
n = Text1.Text

Do

m = n \ 2
r = n Mod 2
n = m
s = CStr(r) & s
Loop Until m = 0

Text2.Text = s

End Sub