Question

请帮我看看这个vbs程序有什么问题，谢谢！

do until(a=10000)
dim a
a=a+1
d=Int(Rnd*3+1)
if d=1 then
dim c
c=c+1
end if
loop
msgbox(c)
on error resume next
我就是要测试一下生成1的次数，但是却总是出来同一个数，请问为什么？怎么改？

Answer 1

dim a
dim c
去掉看看

追问

没用

追答

想起来了，你少一个我代码第一条语句。。。下面代码未测试，应该正常 Randomize for i=1 to 10000 d=Int(Rnd*3+1) if d=1 then c=c+1 next msgbox c