VB中十进制转换成十六进制的程序怎么写~

答案:1 悬赏:60 手机版

解决时间 2021-03-20 05:35

提问者网友：送舟行
2021-03-19 09:51

最佳答案

五星知识达人网友：蕴藏春秋
2021-03-19 11:20

Private Sub Form_Load()
n = Val(InputBox("请输入要转换的十进制数整数"))
m = n
x = "" :Y=""
Do While n <> 0
a = n Mod 2
n = n \ 2
x = a & x
Loop
MsgBox m & "换成二进制数是：" & x

Do While Len(X) Mod 4 <> 0
X = "0" + X
Loop
Do While Len(X) > 0
Select Case Right(X, 4)
Case "0000"
y= "0" + y
Case "0001"
y= "1" + y
Case "0010"
y = "2" + y
Case "0011"
y = "3" + y
Case "0100"
y = "4" + y
Case "0101"
y = "5" + y
Case "0110"
y = "6" + y
Case "0111"
y = "7" + y
Case "1000"
y = "8" + y
Case "1001"
y = "9" + y
Case "1010"
y = "A" + y
Case "1011"
y = "B" +y
Case "1100"
y = "C" + y
Case "1101"
y = "D" + y
Case "1110"
y = "E" + y
Case "1111"
y = "F" + y
End Select
X = Left(X, Len(X) - 4)
Loop
MsgBox m & "换成十六进制数是：" & y
End Sub

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息