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

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

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