十六进制

Private Sub Command1_Click()
    Me.Font = 70
    Dim a As Integer
    Dim b As Integer
    Dim s As String
    Dim yushu As Integer
    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 Integer) As String
    If yushu <= 9 Then
        f = yushu
    Else
        f = Chr(yushu + 55)
    End If
    
            
End Function