VBS产生随机不重复的数字

Posted 2023-03-19

如题求一段VBS代码，要求产生6个从1到33的随机号码，6个号码内不允许出新同样的号码，然后再产生一个随机的特殊号码，输出的时候要求从小到大排列，特殊号码排在最后面；双色球，你懂得。

参考技术A Dim arr(33) '33个数初始值为空
Randomize '随机数种子
For i=1 To 6 '生成6个不重复的数字
x = Int(Rnd * 33)+1 '生成一个1-33的随机数
While arr(x) '如果随机数已经存在就重新生成
x = Int(Rnd * 33)+1
Wend
arr(x)=1 '把不存在的随机数标志为1，表示已经生成过了
Next
For i=1 To 33 '从1-33循环输出已经生成的随机数
If arr(i) Then ret = ret & i & " " '组合随机数保存为ret
Next
x = Int(Rnd * 33)+1 '特殊号码
WScript.Echo ret & "+ " & x '输出结果