查看: 2225|回复: 1

程序意外终止,请大神们看看怎么回事?

[复制链接]

3

主题

101

帖子

1110

积分

资深会员

Rank: 6Rank: 6

积分
1110
发表于 2014-3-7 21:51:43 | 显示全部楼层 |阅读模式
事件 主窗口.创建完毕()
        游戏初始化()
    如果 读取设置("游戏进度") = "" 则
                保存设置("游戏进度",1)
        结束 如果
结束 事件

变量 游戏进度 为 整数型
变量 正确答案 为 文本型


过程 游戏初始化()
        游戏进度 =  读取设置("游戏进度")
    开始游戏(游戏进度)
结束 过程

过程 游戏完成()
        保存设置("游戏进度",游戏进度 + 1)
        保存设置("当前进度",游戏进度)
        切换窗口(创建 窗口1)
结束 过程

函数 加入提问框(加入内容 为 文本型,答案 为 文本型) 为 文本型
        编辑框1.内容 =加入内容
        正确答案 = 答案
结束 函数

过程 结果触发 ()
  如果 正确答案 = 标签1.标题 则
      游戏完成()
  否则
      信息框("哎呀!","你错了,想一想为什么?","确定")
  结束 如果
结束 过程

事件 按钮1.被单击()
标签1.标题="正确"
结束 事件
事件 按钮2.被单击()
标签1.标题="错误"
结束 事件

函数 开始游戏(关卡 为 整数型) 为 整数型
   判断 关卡
        分支 1
         第1关()
        分支 2
         第2关()
        分支 3
         第3关()
                分支 4
                 第4关()
                分支 5
                 第5关()
                分支 6
                 第6关()       
                分支 7
                 第7关()
                分支 8
                 第8关()
                分支 9
                 第9关()       
                分支 10
                 第10关()
                分支 11
                 第11关()
                分支 12
                 第12关()
                分支 13
                 第13关()       
                分支 14
                 第14关()
                分支 15
                 信息框("更多关卡敬请期待...","系统以为您返回第一关","OK")
                 保存设置("游戏进度",1)
   结束 判断
结束 函数

过程 第1关()
        加入提问框("历史上哪个人跑的最快","正确")
结束 过程
过程 第2关()
           加入提问框("历史上哪个人跑的最快","错误")
结束 过程

过程 第3关()
    加入提问框("历史上哪个人跑的最快","正确")
结束 过程
过程 第4关()
        加入提问框("什么动物永远都是富二代?","正确")
结束 过程

过程 第5关()
        加入提问框("b5历史上哪个人跑的最快ng","正确")
结束 过程

过程 第6关()
        加入提问框("b历史上哪个人跑的最快ng","正确")
结束 过程

过程 第7关()
        加入提问框("b7历史上哪个人跑的最快ng","正确")
结束 过程

过程 第8关()
        加入提问框("b8历史上哪个人跑的最快png","正确")
结束 过程

过程 第9关()
        加入提问框("b9历史上哪个人跑的最快png","正确")
结束 过程

过程 第10关()
        加入提问框("b1历史上哪个人跑的最快png","正确")
结束 过程

过程 第11关()
        加入提问框("b11历史上哪个人跑的最快png","正确")
结束 过程

过程 第12关()
        加入提问框("为什么暑假比寒假长?","正确")
结束 过程

过程 第13关()
        加入提问框("历史上哪个人跑的最快?","正确")
结束 过程

过程 第14关()
        加入提问框("只有一个中国 (报刊名)?","正确")
结束 过程

事件 主窗口.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型)
   判断 键代码
       分支 返回键
              结束程序()
   结束 判断
结束 事件

事件 按钮3.被单击()
结束程序()
结束 事件
回复

使用道具 举报

4

主题

43

帖子

138

积分

初级会员

Rank: 2

积分
138
发表于 2014-4-8 20:48:02 | 显示全部楼层
看完留名,必火。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

扫描关注公众号,签到即可获得额外金币噢
快速回复 返回顶部 返回列表