Private Sub Command1_Click()
Cls
Dim yushu As Integer
Dim a As Integer
Dim s As String
yushu = a Mod 16
a = a \ 16
a = Int(Val(Text1.Text))
yushu = a
While a <> 0
yushu = a Mod 16
s = f(yushu) & s
a = a \ 16
Wend
Print s
End Sub
Private Function f(yushu As Integer) As String
If yushu >= 10 Then
Select Case yushu
Case 10
f = "A"
Case 11
f = "B"
Case 12
f = "C"
Case 13
f = "D"
Case 14
f = "E"
Case 15
f = "F"
End Select
Else
f = yushu
End If
End Function
Cls
Dim yushu As Integer
Dim a As Integer
Dim s As String
yushu = a Mod 16
a = a \ 16
a = Int(Val(Text1.Text))
yushu = a
While a <> 0
yushu = a Mod 16
s = f(yushu) & s
a = a \ 16
Wend
Print s
End Sub
Private Function f(yushu As Integer) As String
If yushu >= 10 Then
Select Case yushu
Case 10
f = "A"
Case 11
f = "B"
Case 12
f = "C"
Case 13
f = "D"
Case 14
f = "E"
Case 15
f = "F"
End Select
Else
f = yushu
End If
End Function