疑問 - 關於產生連續序號用法

[getter]

我的想法是 62
方法一 ︰ 用 62 進位法則來做
方法二 ︰ 先用 10 產生號碼，在用 轉 62 進位程式轉換

大概就這兩種方向吧

依序 0~9~a~z~A~Z 共 62 位，超過 62 則進位

狀態如下︰

[0] [0] [0] [0]
[0] [0] [0] [1]
[0] [0] [0] [2]
...
[0] [0] [0] [a]
...
[0] [0] [0] [z]
...
[0] [0] [0] [A]
...
[0] [0] [0] [Z]
[0] [0] [1] [0]

[劍痞憶秋年]

用 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

[mini]

62 進制 ^^"...
其實不管是幾進制
都可用 範圍式亂數法
VB是這樣的

若想產生在某個範圍內(非 0 到 1)的亂數值，可使用下列公式：
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

也就是每一格欄位
Int((61+1)*Rnd)
會產生 0~61 之間的數字

那 0~9 就是 "0"~"9"
10~35 就是 "a"~"z"
36~61 就是 "A"~"Z"