关于随即字符数字

Question

想随几生成一个5位的字符串，要求只包含数字和字符，急
谢谢

Answer 1

Private Sub Command1_Click()
Dim a(1 To 62) As String
For i = 0 To 9
a(i + 1) = i
Next
For i = 1 To 26
a(10 + i) = Chr(64 + i)
a(36 + i) = Chr(96 + i)
Next
'MsgBox Join(a, "")
Dim b(1 To 5) As String
Randomize
For i = 1 To 5
b(i) = a(Int(Rnd * 62 + 1))
Next
MsgBox Join(b, "")
End Sub

Answer 2

Randomize
rnd(A-Z)
rnd(a-z)
rnd(0-9)
剩下的自己拼字符吧！
或者把上面的东西放到一个数组或特征字符串中
随机的提取出其中的5个