本文介绍了一个使用VBA编写的函数，该函数可以生成指定长度的由大写字母、小写字母和数字组成的随机字符串。通过调整参数N，可以改变生成字符串的长度。
'指定长度的祖母数字组合
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
VB获取指定长度的随机字符串
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
