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