VB获取指定长度的随机字符串

'指定长度的祖母数字组合
Public Function RandomFix(N As Long) As String
Randomize
R = R + Chr(Int(Rnd() * 26) + 65) '生成一个大写字母
For I = 2 To N 'N是指定长度
Randomize
T = Int(Rnd() * 3)
Select Case T
Case 0
Randomize
R = R + Chr(Int(Rnd() * 26) + 65) '生成一个大写字母
Case 1
Randomize
'R = R + Chr(Int(Rnd() * 26) + 97) '生成一个小写字母
R = R + Chr(Int(Rnd() * 10) + 48) '生成一个数字
Case 2
Randomize
R = R + Chr(Int(Rnd() * 10) + 48) '生成一个数字
End Select
Next I
RandomFix = R
End Function