用VB生成20位随机字符,由大写字母和数字组成,每五位之间用符号“-”隔开我用了下面这段代码：PrivateSubCommand1Click()N=20ForI=1ToN'N是指定长度RandomizeT=Int(Rnd()*3)SelectCaseTCase0RandomizeR

Question

用VB生成20位随机字符,由大写字母和数字组成,每五位之间用符号“-”隔开
我用了下面这段代码：
Private Sub Command1_Click()
N = 20
For I = 1 To N 'N是指定长度
Randomize
T = Int(Rnd() * 3)
Select Case T
Case 0
Randomize
R = R & Chr(Int(Rnd() * 25) + 65) '生成一个大写字母
Case 1
Randomize
R = R & Chr(Int(Rnd() * 9) + 48) '生成一个数字
End Select
Next I
Text1.Text = R '将结果输出在文本框中.
End Sub
这段代码有两个问题：
1.生成的位数不正确,好像是随机位数,很少有20位的.
2.每五位之间没有符号“-”隔开.

Answer 1

你这个算法有很大的问题:
1 .Randomize只需一次就可以了
2.你这里的T应该是0-2,你的程序没有对2进行判断
3.实际循环一次只需产生一个随机数就可以了.
下面我给你一个程序:
Private Sub Command1_Click()
N = 20
Randomize
For I = 1 To N 'N是指定长度
t = Int(Rnd() * 36) '产生一个0-35的随机数,因为数字加字母总共36个.
If t < 10 Then
R = R & Chr(48 + t) '生成一个数字(随机数在0-9之间),也可写作:R = R & t
Else
R = R & Chr(65 - 10 + t) '生成一个大写字母(随机数在10-35之间)
End If
If (I Mod 5 = 0) And I N Then R = R & "-" '被5整除时,加上-号
Next I
Text1.Text = R '将结果输出在文本框中.
End Sub
'不好意思,刚才在N后面少一个空格