vb问题，建立一个工程，在输入框中输入一个正整数（10进制），将其转化成二进制数。

Question

vb问题，建立一个工程，在输入框中输入一个正整数（10进制），将其转化成二进制数。

Answer 1

Private Sub Command1_Click()
Dim shi As Integer
Dim er As String
Dim s As Integer
shi = Text1
Do
s = shi Mod 2
er = s & er
shi = shi \ 2
Loop While shi <> 0
Print "转换为二进制数为：" & er
End Sub