VBS猜数游戏

VBS 猜数游戏

2018-11-09  21:19:11

by xutao

 1 msgbox "The Swami" ,,"Game"
 2 msgbox "The system will give a integer in the range of 1 to 100 randomly, and you are allowed to guess a integer one time! Less tries, more luck" , ,"Rule"
 3 while 1=1   '无限循环
 4 
 5 dim tryTime  '尝试次数
 6 tryTime = 1
 7 
 8 dim n 
 9 randomize  '初始化随机种子,不然每次都会一样
10 n = int(rnd*100)
11 
12 int input
13 input = int(inputbox("Guess it"))
14 
15 '注意:while语句的语法是: while condition  ... wend (不加then)
16 
17 while n <> input  
18 tryTime = tryTime+1
19 if input>n then
20 input = int(inputbox("Too big! Try again!"))
21 else 
22 input = int(inputbox("Too small! Try again!"))
23 end if
24 wend
25 
26 if tryTime=1 then
27 msgbox "Genius! Buy a lottery ticket quickly!"
28 elseif tryTime=2 then
29 msgbox "666"
30 elseif tryTime=3 then
31 msgbox "NB"
32 elseif tryTime=4 then
33 msgbox "Cool!"
34 elseif tryTime=5 then 
35 msgbox "Good!"
36 elseif tryTime=6 then 
37 msgbox "Not Bad!"
38 elseif tryTime=7 then
39 msgbox "Unfortuntate!"
40 elseif tryTime=8 then
41 msgbox "Idiot!"
42 else 
43 msgbox "SB!"
44 end if
45 
47 if msgbox("ReTry?",vbOK)<>1 then
48 msgbox "Bye!"
49 wscript.quit
50 end if
51 
53 wend

 

转载于:https://www.cnblogs.com/XT-xutao/p/9937267.html

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值