Dim arr(35) '35个数初始值为空
Randomize '随机数种子
For i=1 To 5 '生成5个不重复的数字
x = Int(Rnd * 35)+1 '生成一个1-35的随机数
While arr(x) '如果随机数已经存在就重新生成
x = Int(Rnd * 35)+1
Wend
arr(x)=1 '把不存在的随机数标志为1，表示已经生成过了
Next
For i=1 To 35 '从1-35循环输出已经生成的随机数
If arr(i) Then ret = ret & i & " " '组合随机数保存为ret
Next
x = Int(Rnd * 12)+1 '特殊号码
WScript.Echo ret & "+ " & x '输出结果
怎样再随机一个特殊号码且和前一个不相同
Randomize '随机数种子
For i=1 To 5 '生成5个不重复的数字
x = Int(Rnd * 35)+1 '生成一个1-35的随机数
While arr(x) '如果随机数已经存在就重新生成
x = Int(Rnd * 35)+1
Wend
arr(x)=1 '把不存在的随机数标志为1，表示已经生成过了
Next
For i=1 To 35 '从1-35循环输出已经生成的随机数
If arr(i) Then ret = ret & i & " " '组合随机数保存为ret
Next
x = Int(Rnd * 12)+1 '特殊号码
WScript.Echo ret & "+ " & x '输出结果
怎样再随机一个特殊号码且和前一个不相同
没有大神吗
