16进制

Private Function f(yushu As Byte) As String
    If yushu <= 9 Then
        f = yushu
    Else
        Select Case yushu
            Case 1, 34, 78, 45, 12, 13
            f = Chr(yushu + 55)
        End Select
    End If
    
End Function
Private Sub Command1_Click()
    Me.Font.Size = 70
    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