在窗体放置一个textbox，两个command。
如：将10转换为十六进制，由text1获得输入，通过COMMAND1实现转换，再将转换后的数据在text1显示：
Private Sub Command1_Click()
Text1.Text = Hex(Text1.Text) '此处须保证text1的内容为数字，否则出错
End Sub
将A转换为十进制，同样由text1获得输入，然后通过command2实现转换，再将转换后的数据在text1显示：
Private Sub Command2_Click()
Text1.Text = Int("&H" & Text1.Text) 'text1的输入数据必须合法，否则出错
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024