十进制转化为二进制和十六进制

Private Sub Command1_Click()
Private Sub Form_Load()
n = Val(InputBox("230"))
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