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
各位看看这个代码哪里有错误！！
过程是这样的，就是将十进制数转换成二进制数！！帮帮忙吧！！

这是你写的吗``?~`

``
`````不对啊`````哎``我看你```十进制转二进制``怎么算的都不知道```

`
`````加` 我QQ哦```3269320```

``直接问我`

一个比较简单的方法就是
先用hex(x)把十进制数化成16进制数
然后就很容易了，不是吗