可选难度的简单猜数字游戏

xujiansong2008

.版本 2
.程序集 窗口程序集_启动窗口
.程序集变量 系统随机数, 整数型
.子程序 __启动窗口_创建完毕

.子程序 _编辑框1_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (键代码 ＝ #回车键)
    _按钮1_被单击 ()
.如果真结束

.子程序 _单选框1_被单击
置随机数种子 ()
系统随机数 ＝ 取随机数 (1, 10)
标签1.标题 ＝ “请猜1-10的数字”
.子程序 _按钮1_被单击
.判断开始 (单选框1.选中 ＝ 假 且 单选框2.选中 ＝ 假 且 单选框3.选中 ＝ 假)
    信息框 (“请选择难度”, 0, , )
    返回 ()
.默认
.判断结束
.判断开始 (编辑框1.内容 ＝ “”)
    信息框 (“你还没有输入数字”, 0, , )
    返回 ()
.默认
.判断结束
.判断开始 (到数值 (编辑框1.内容) ＞ 系统随机数)
    信息框 (“大了”, 0, , )
    编辑框1.内容 ＝ “”
.判断 (到数值 (编辑框1.内容) ＜ 系统随机数)
    信息框 (“小了”, 0, , )
    编辑框1.内容 ＝ “”
.默认
    信息框 (“恭喜你，答对了！” ＋ #换行符 ＋ “请你再玩一次”, 0, , )
    编辑框1.内容 ＝ “”
    .判断开始 (单选框1.选中 ＝ 真)
        置随机数种子 ()
        系统随机数 ＝ 取随机数 (1, 10)
    .判断 (单选框2.选中 ＝ 真)
        置随机数种子 ()
        系统随机数 ＝ 取随机数 (1, 20)
    .判断 (单选框3.选中 ＝ 真)
        置随机数种子 ()
        系统随机数 ＝ 取随机数 (1, 100)
    .默认
    .判断结束
.判断结束

.子程序 _单选框2_被单击
置随机数种子 ()
系统随机数 ＝ 取随机数 (1, 20)
标签1.标题 ＝ “请猜1-20的数字”
.子程序 _单选框3_被单击
置随机数种子 ()
系统随机数 ＝ 取随机数 (1, 100)
标签1.标题 ＝ “请猜1-100的数字”

Foreign000

谢谢楼主的分享

浩蛋

先学习再说了，哈

外星星人

先学习再说了，哈

kyo9766

学习学习 原理，感谢分享

uxdxdg

kkkkkkkkkkkkkkkkkkkk

吴彦希

加油加油加油加油加油加油加油