用VBS随机取值

batman

1. 
   
2. '随机在1-20间取值,当值为15时弹出消息框
   
3. dim num,counter,choice
   
4. do until choice=vbno
   
5.    counter=0:num=0
   
6.    do while num<>15
   
7.       randomize
   
8.       counter=counter+1
   
9.       num=int((20*rnd)+1)
   
10.    loop
    
11. choice=msgbox("循环了"&counter&"次取到值"&num,vbyesno,"是否再次取值")
    
12. loop
    

复制代码

[ 本帖最后由 batman 于 2009-3-31 01:37 编辑 ]