Liệt kê các chuỗi gồm 3 ký từ tự bộ các chữ số và chữ cái tiếng anh (1 người xem)

[mon_hy]

Các bạn giúp mình thuật toán để liệt kê các phần tử (là các chuỗi gồm 3 ký tự) được sinh ra từ tập hợp gồm các chữ số từ 0...9 và các ký tự từ A..Z không phân biệt Chữ Hoa Hay Thường với.
Trân trọng cảm ơn cả nhà

 

[chibi]

Bạn muốn liệt kê các phần tử có 3 kí tự được tạo ra từ 36 kí tự chữ và số ???
Ví dụ: abc, abd, abe ...

 

[mon_hy]

Vâng đúng là như vậy : abc, 0ab, 0ac,......

 

[ndu96081631]

Vâng đúng là như vậy : abc, 0ab, 0ac,......

Bài này dễ mà ---> 3 vòng lập for i = 0 to 35 là xong chứ gì
Ví dụ:

Sub Test()
  Dim Dic, Arr(1 To 46656, 1 To 1), tmp As String
  Dim n1 As Long, n2 As Long, n3 As Long, n As Long
  Dic = Array("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", _
              "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", _
              "w", "x", "y", "z", 0, 1, 2, 3, 4, 5, 6, 7, 8, 9)
  For n1 = 0 To 35
    For n2 = 0 To 35
      For n3 = 0 To 35
        n = n + 1
        tmp = Dic(n1) & Dic(n2) & Dic(n3)
        If IsNumeric(tmp) Then tmp = "'" & tmp
        Arr(n, 1) = tmp
      Next
    Next
  Next
  Range("B1").Resize(n).Value = Arr
End Sub

 

[mon_hy]

Vâng cảm ơn Bác nhiều nhiều