十进制化16进制

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 = 1230: 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      / 定义  f  用 ABCDE表示16进制

    If yushu <= 9 Then
        f = yushu
    Else
        Select Case yushu
            Case 10, 11, 12, 13, 14, 15
            f = Chr(yushu + 55)           / 用ASCII 码表示 ABCDE    用Chr 函数  返回ASCII码对应字符
        End Select
    End If

End Function