Private Sub mm1_Click(Index As Integer)
Dim TxtNum, TxtResult As Integer
TxtNum = Val(InputBox("请输入十进制数", "输入框"))
TxtResult = Val(InputBox("请输入而进制数", "输入框"))
For TxtResult = 0 To 2
For TxtNum = 0 To 10
TxtResult = TxtNum / 2
Print TxtNum, TxtResult
Next
Next
End Sub




Private Sub mm2_Click(Index As Integer)
text1.Text = ""
text2.Text = ""
End Sub
各位看看这个代码哪里有错误！！
过程是这样的，就是将十进制数转换成二进制数！！帮帮忙吧！！