十进制转为十六进制

打开VB，选取command按钮，在command中进行编译，内容如下:

Private Sub Command1_Click()
Me.Font.Size = 30
Dim a As Integer
Dim b As Integer
Dim s As String
Dim yushu As Byte
a = 1700: b = 16
While a <> 0
yushu = a Mod b
s = f(yushu) & s
a = a \ b
Wend
Print s

End Sub

Private Function f(yushu As Byte) As String
    If yushu <= 9 Then
        f = yushu
    Else
        f = Chr(yushu + 55)
    End If
End Function

2.用select语句表示

Private Sub Command1_Click()
Me.Font.Size = 30
Dim a As Integer
Dim b As Integer
Dim s As String
Dim yushu As Byte
a = 1700: b = 16
While a <> 0
yushu = a Mod b
s = f(yushu) & s
a = a \ b
Wend
Print s
End Sub

Private Function f(yushu As Byte) As String
    If yushu <= 9 Then
        f = yushu
    Else
        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
            
    End If
    
End Function

总结：十进制数：1700    转为十六进制数：6A4

第一种相对于第二种来说，过程比较简洁。