Board logo

标题: 用VBS随机取值 [打印本页]

作者: batman    时间: 2009-3-31 01:31     标题: 用VBS随机取值

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

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




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2