2-36之间的任意进制之间转换的代码

Option Explicit

Private Function ValidChk(K As Long) As Boolean
    If K < 2 Or K > 36 Then
        MsgBox "由于编码符号的限制，进制只能设置为2-36"
    Else
        ValidChk = True
    End If
End Function

Private Function DecToAny(ByVal n As Long, K As Long) As String
    Dim m As Long
    Dim Asc0 As Long, Asc9 As Long, AscA As Long
    Dim c As Long
   
    If Not ValidChk(K) Then Exit Function
    Asc0 = Asc("0")
    AscA = Asc("A")
    Asc9 = Asc0 + 9
   
    While n > 0
        m = n Mod K
        If m > 9 Then
            c = AscA + m - 10
        Else
            c = Asc0 + m
        End If
        DecToAny = Chr(c) & DecToAny
        n = (n - m) / K
    Wend
End Function

Private Function AnyToDec(ByVal n As String, ByVal K As Long) As Long
    Dim m As Long
    Dim Kb As Long
    Dim B() As Byte
    Dim Asc0 As Long, Asc9 As Long, AscA As Long
    Dim i As Long
   
    If Not ValidChk(K) Then Exit Function
   
    Asc9 = Asc("9")
    AscA = Asc("A")
    Asc0 = Asc("0")
   
    B = StrConv(UCase(n), vbFromUnicode)
    Kb = 1
    For i = UBound(B) To 0 Step -1
        If B(i) > Asc9 Then
            m = B(i) - AscA + 10
        Else
            m = B(i) - Asc0
        End If
       
       
        AnyToDec = AnyToDec + m * Kb
        Kb = Kb * K
    Next
End Function

Private Sub Text1_Change()
    If IsNumeric(Text1) And IsNumeric(Text3) Then
        Text2 = DecToAny(Text1, Text3)
    End If
End Sub

Private Sub Text4_Change()
    If IsNumeric(Text6) Then
        Text5 = AnyToDec(Text4, Text6)
    End If
End Sub