QQ网名大全

用VB编写"输入一个十六进制数,输出一个十进制数"

建立两个TextBox和一个CommandButton,分别为text1,text2,command1。text1用来输入一个十六进制数,text2用来输出一个十进制,command1取名为“转换”。

程序清单:
Private Sub Command1_Click()
a = Text1.Text
s = 0
For i = 0 To Len(a) - 1
w = Mid(a, Len(a) - i, 1)
If w = "a" Or w = "A" Then w = 10
If w = "b" Or w = "B" Then w = 11
If w = "c" Or w = "C" Then w = 12
If w = "d" Or w = "D" Then w = 13
If w = "e" Or w = "E" Then w = 14
If w = "f" Or w = "F" Then w = 15
w = Val(w)
s = s + w * (16 ^ i)
Next i
Text2.Text = s
End Sub

最后进行调试,在text1中输入FF,单击“转换”按纽,马上在text2中显示出255。
佚名
2024-06-06 19:22:53
最佳回答
类似问题(10)