7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
seraph2 2004-01-11
- 打赏
- 举报
Randomize
rnd(A-Z)
rnd(a-z)
rnd(0-9)
剩下的自己拼字符吧！
或者把上面的东西放到一个数组或特征字符串中
随机的提取出其中的5个
rnd(A-Z)
rnd(a-z)
rnd(0-9)
剩下的自己拼字符吧！
或者把上面的东西放到一个数组或特征字符串中
随机的提取出其中的5个
northwolves 2004-01-11
- 打赏
- 举报
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
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
rainstormmaster 2004-01-10
- 打赏
- 举报
先定义一个字串，包含你允许的所有字符，接下来产生5个随机数，每产生一个就从你定义的字串中取出一个字符，最后把5个字符合在一起就是你想要的结果
