• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.2.9
软件大小:62.5M
更新时间:12-07

按键精灵iOS版
立即下载

软件版本:1.3.1
软件大小:29.2M
更新时间:09-29

按键精灵Mac版
立即下载

软件版本:1.1.0
软件大小:12.3M
更新时间:12-29

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

随机生成一个1~100之间的整数,玩家可以通过函数InputBox命令输入... [复制链接]

1#
Dim 随机, 猜测, 下限, 上限, 次数
Randomize
随机 = Int(100 * Rnd + 1)
TracePrint "随机=" & 随机
下限 = 1 : 上限 = 100
猜测 = Cint(InputBox("请输入你的猜测", "猜数字游戏"))
For 次数 = 1 To 99 : Delay 100
If 猜测 < 随机 and 猜测 > 下限 Then : 下限 = 猜测
ElseIf 猜测 > 随机 and 猜测 < 上限 Then : 上限 = 猜测
ElseIf 猜测 = 随机 Then
MsgBox "总共" & 次数 & "次猜中了 八戒 看来今年你又要涨价了!", 64, "程序·提示"
Exit For
End If
猜测 = Cint(InputBox("答案范围为:" & 下限 & "~" & 上限, "程序·提示 还可再猜" & 100 - 次数 & "次 "))
Next
EndScript

发新话题 回复该主题