求使用vb将十进制转化为十六进制的程序代码（是在没那么多积分了~在线等）

来源：百度知道 编辑：UC知道 时间：2024/07/04 14:59:56
使用标签、文本框、命令按钮完成。
* 运行要求：
* 1、在文本框Text1中输入任意一个十进制数；
* 2、点击“转换”按钮，Text2中显示这个十进制数的十六进制数。

给你一个我以前做的十进制转换为其他进制部分的代码：
Private Sub Option4_Click()
b = Val(InputBox("请输入转换后进制", " 输入", 16))
Label3.Caption = b & "进制"
Text2 = ""
l = Len(Text1)
If l > 9 Then
MsgBox "输入数据不能大于9位！"
Text1 = ""
Text1.SetFocus
GoTo 1000
End If
For i = 1 To l
s = Mid(Text1, i, 1)
If Asc(s) > 57 Or Asc(s) < 48 Then
MsgBox "输入的数不合法，请重新输入！", vbCritical,_ "错误"
Text1 = ""
Text1.SetFocus
Exit For
End If
Next i
X = Val(Text1.Text)
t = ""
Do
If b = 0 Then
MsgBox "进制数不能为零，请重新选择！", vbExclamation,_ "警告"
GoTo 1000
En