VBS随机数的问题
我做了个vbs随机数，以下为代码：DimMyValue,ResponseRandomize'初始化随机数生成器。DoUntilResponse=vbNoMyValue=I...
我做了个vbs随机数，以下为代码：Dim MyValue, Response
Randomize '初始化随机数生成器。
Do Until Response = vbNo
MyValue = Int((61 * Rnd) + 1) ' 产生 1 到 61 之间的随机数。
Response = MsgBox ("此次生成的随机数为:" & Cstr(MyValue) & vbCrLf & "是否重新产生随机数?", vbYesNo)
Loop 结果软件是出来了，可是随机数经常是61和1，还有37，测试了120次了，18，32，33和34一直都没有显示，怎样才能均匀分配呢？？ 还有，如果我想让每一个数代表一个名字并在程序中显示那个名字，要怎么办呢？ 比如：1号张三 2号李4 三号王5怎样才能让程序中出现名字呢？？ 我只要vbs，别的不要！ 展开
Randomize '初始化随机数生成器。
Do Until Response = vbNo
MyValue = Int((61 * Rnd) + 1) ' 产生 1 到 61 之间的随机数。
Response = MsgBox ("此次生成的随机数为:" & Cstr(MyValue) & vbCrLf & "是否重新产生随机数?", vbYesNo)
Loop 结果软件是出来了，可是随机数经常是61和1，还有37，测试了120次了，18，32，33和34一直都没有显示，怎样才能均匀分配呢？？ 还有，如果我想让每一个数代表一个名字并在程序中显示那个名字，要怎么办呢？ 比如：1号张三 2号李4 三号王5怎样才能让程序中出现名字呢？？ 我只要vbs，别的不要！ 展开
1个回答
展开全部
不要刻意的去分配，这样就不是随机数了！按照你的要求我写了一个，希望对你有帮助。当然只是1到3间的随机数，你可以自己添加！ Randomize
do
value1=MsgBox("是否生成随机抽取名单",vbYesNo,"谢谢")
If value1=vbyes then
d=Int(Rnd*3+1)
strs=Array("张三","李四","王五")
MsgBox "电脑为您抽取的是:" & strs(d-1),,"提示"
Else
WScript.Quit
End If
loop
do
value1=MsgBox("是否生成随机抽取名单",vbYesNo,"谢谢")
If value1=vbyes then
d=Int(Rnd*3+1)
strs=Array("张三","李四","王五")
MsgBox "电脑为您抽取的是:" & strs(d-1),,"提示"
Else
WScript.Quit
End If
loop
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
