VBS猜数游戏

VBS 猜数游戏

2018-11-09  21:19:11

by xutao

 msgbox "The Swami" ,,"Game"
 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"
 while =   '无限循环
 
 dim tryTime  '尝试次数
 tryTime = 
 
 dim n
 randomize  '初始化随机种子，不然每次都会一样
 n = int(rnd*)
 
 int input
 input = int(inputbox("Guess it"))
 
 '注意：while语句的语法是： while condition  ... wend (不加then)
 
 while n <> input
 tryTime = tryTime+
 if input>n then
 input = int(inputbox("Too big！ Try again!"))
 else
 input = int(inputbox("Too small！ Try again!"))
 end if
 wend
 
 if tryTime= then
 msgbox "Genius! Buy a lottery ticket quickly!"
 elseif tryTime= then
 msgbox ""
 elseif tryTime= then
 msgbox "NB"
 elseif tryTime= then
 msgbox "Cool!"
 elseif tryTime= then
 msgbox "Good!"
 elseif tryTime= then
 msgbox "Not Bad!"
 elseif tryTime= then
 msgbox "Unfortuntate!"
 elseif tryTime= then
 msgbox "Idiot!"
 else
 msgbox "SB!"
 end if
 
 if msgbox("ReTry?",vbOK)<> then
 msgbox "Bye!"
 wscript.quit
 end if
 
 wend