新手刚学官方第二课：猜数字，稍微改了下

say88dst · 发表于 2019-10-22 17:45:57

新手刚学官方第二课：猜数字，稍微改了下，分享一下自己的喜悦。

.版本 2
.程序集窗口程序集_启动窗口
.程序集变量剩余次数, 整数型
.程序集变量随机数, 整数型
.子程序 __启动窗口_创建完毕
置随机数种子 ()
随机数＝取随机数 (0, 10)
.子程序 _按钮_确定_被单击
剩余次数＝剩余次数＋ 1
.判断开始 (剩余次数 ≥ 3)
信息框 (“你的次数用完了！” ＋ #换行符＋ “正确数字是” ＋到文本 (随机数), 0, , )
剩余次数＝ 0
随机数＝取随机数 (0, 10)
按钮_确定.禁止＝假
编辑框1.内容＝ “”
编辑框1.获取焦点 ()
.判断 (到整数 (编辑框1.内容) ＞随机数)
信息框 (“你猜的数值大了”, 0, , )
.判断 (到整数 (编辑框1.内容) ＜随机数)
信息框 (“你猜的数值小了”, 0, , )
.默认
信息框 (“你猜对了”, 0, , )
剩余次数＝ 0
随机数＝取随机数 (0, 10)
按钮_确定.禁止＝假
编辑框1.内容＝ “”
编辑框1.获取焦点 ()
.判断结束
.判断开始 (到整数 (3 －剩余次数) ＜ 0)
_启动窗口.标题＝ “”
.默认
_启动窗口.标题＝到文本 (“你还可以猜” ＋到文本 (3 －剩余次数) ＋ “次”)
.判断结束

.子程序 _按钮_重新生成_被单击
剩余次数＝ 0
随机数＝取随机数 (0, 10)
按钮_确定.禁止＝假
编辑框1.内容＝ “”
编辑框1.获取焦点 ()