Мож кто сталкивался а, помогите?
- Код: Выделить всё
For b = 65 To 90
For c = 65 To 90
List.AddItem Chr(b) & Chr(c)
Next c
For c = 97 To 122
List.AddItem Chr(b) & Chr(c)
Next c
For c = 48 To 57
List.AddItem Chr(b) & Chr(c)
Next c
Next b
For b = 97 To 122
For c = 65 To 90
List.AddItem Chr(b) & Chr(c)
Next c
For c = 97 To 122
List.AddItem Chr(b) & Chr(c)
Next c
For c = 48 To 57
List.AddItem Chr(b) & Chr(c)
Next c
Next b
For b = 48 To 57
For c = 65 To 90
List.AddItem Chr(b) & Chr(c)
Next c
For c = 97 To 122
List.AddItem Chr(b) & Chr(c)
Next c
For c = 48 To 57
List.AddItem Chr(b) & Chr(c)
Next c
Next b
И это только для двух разрядов, а если 10 то как?