'随机在1-20间取值,当值为15时弹出消息框
dim num,counter,choice
do until choice=vbno
   counter=0:num=0
   do while num<>15
      randomize
      counter=counter+1
      num=int((20*rnd)+1)
   loop
choice=msgbox("循环了"&counter&"次取到值"&num,vbyesno,"是否再次取值")
loop
复制代码