[劍痞憶秋年]

用 XX 進制轉 10 ，10進制轉 XX 進制

程式如下：

 Dim JetStr_Now As String
Dim JetStr_Format As String
Dim JetStr_10(1 To 4) As String

Private Sub cmdTry_Click()

  Dim intLL As Integer
  
  For intLL = 101 To 200
    Debug.Print JetConv10_Str(Format(Val(JetConvStr_10(Text1.Text)) + intLL, JetStr_Format))
  Next intLL
End Sub

Private Sub Form_Load()

  JetStr_Format = "0000"
  JetStr_Now = Format(JetStr_Now, JetStr_Format)
  Dim intII As Integer
  Dim intJJ As Integer
  For intII = 0 To 9
    JetStr_All = JetStr_All & Trim(Str(intII))
  Next intII
  For intII = 1 To 26
    JetStr_All = JetStr_All & Chr(Asc("a") + intII - 1)
  Next intII
  For intII = 1 To 26
    JetStr_All = JetStr_All & Chr(Asc("A") + intII - 1)
  Next intII
  
  JetStr_Len = Len(JetStr_All)
  For intJJ = 1 To Len(JetStr_Format)
    JetStr_10(intJJ) = JetStr_Len ^ (intJJ - 1)
  Next intJJ
End Sub

Private Function JetConvStr_10(ByVal JetStr As String) As String

  Dim JetStr_1(1 To 4) As String
  Dim intJJ As Integer
  Dim intKK As Integer
    
  intKK = Len(JetStr_Format)
  For intJJ = 1 To intKK
     JetStr_1(intJJ) = InStr(JetStr_All, Mid(JetStr, intKK, 1)) - 1
     JetStr_1(intJJ) = Val(JetStr_1(intJJ)) * Val(JetStr_10(intJJ))
     JetConvStr_10 = Val(JetConvStr_10) + Val(JetStr_1(intJJ))
     intKK = intKK - 1
  Next intJJ
  
End Function

Private Function JetConv10_Str(ByVal JetStr As String) As String

  Dim JetStr_1(1 To 4) As String

  Dim intJJ As Integer
  Dim intKK As Integer
  Dim JetStr_Backup As String
  
  JetStr_Backup = JetStr
  intKK = 1
  For intJJ = Len(JetStr_Format) To 1 Step -1

     JetStr_1(intJJ) = Val(JetStr) \ Val(JetStr_10(intJJ))

     JetConv10_Str = JetConv10_Str & Mid(JetStr_All, Val(JetStr_1(intJJ)) + 1, 1)
     JetStr = Val(JetStr) Mod Val(JetStr_10(intJJ))
     intKK = intKK + 1

  Next intJJ

End Function