给小学生练习用，四则运算练习

wooddoor

目前还非常非常的简陋，仅仅自动生成2个数的四则运算（100内），后续慢慢更新，完全开源，托管于gitee，源码地址：https://gitee.com/wooddoor/szys_android

qin168

333333333333333333333333

慧博天远

下载测试一下

QQ1015561

666666666666666666666666666666

pt1314

易如意中文编程学习交流论坛有你更精彩~

wooddoor

源码：

变量 运算符数组 为 文本型(4) 'TOFIX：E4A中不知该怎么定义一个全局常量,或者全局数组该怎么初始化呢？待研究
变量 运算符 为 整数型
变量 数1 为 整数型
变量 数2 为 整数型
变量 答案 为 整数型
变量 启动时间 为 长整数型
变量 计时 为 长整数型

事件 主窗口.创建完毕()
    运算符数组[0]="+"
    运算符数组[1]="-"
    运算符数组[2]="×"
    运算符数组[3]="÷"
        
    生成算式()
结束 事件

事件 主窗口.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型)
    如果 键代码 = 返回键 则
        如果 取启动时间() - 启动时间 >2000 则
            弹出提示("再按一次退出程序")
            启动时间 = 取启动时间()
        否则
            结束程序()
        结束 如果
    结束 如果
结束 事件

过程 生成算式()
    运算符  = 取随机数(0,3)
    判断 运算符
        分支 0
            数1 = 取随机数(1, 100)
            数2 = 取随机数(1, 100)
        分支 1
            数1 = 取随机数(1, 100)
            数2 = 取随机数(1, 数1)
        分支 2
            数1 = 取随机数(1, 9)
            数2 = 取随机数(1, 9)
        分支 3
            数1 = 取随机数(1, 100)
            数2 = 取随机数(1, 9)
            判断循环首 数1 % 数2 <> 0
                数1 = 取随机数(1, 100)
            判断循环尾
    结束 判断
   
    编辑框_题目.内容 = 整数到文本(数1) & 运算符数组[运算符] & 整数到文本(数2)
    编辑框_答案.内容 = ""
    '编辑框_答案.获取焦点()
    '编辑框_答案.显示输入法()
    计时 = 取启动时间()
结束 过程

事件 编辑框_答案.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型)
    'TOFIX：E4A的编辑框设置为只输入数字,默认还能输入空格、+-*/=,并且下面设置屏蔽毫无作用,待研究
    'Android KeyCode列表：https://blog.csdn.net/pan0755/article/details/78475517
    判断 键代码
        分支 回车键
            提交答案()
        分支 62 'KEYCODE_SPACE     空格键     62
            屏蔽 = 真
        分支 81 'KEYCODE_PLUS     按键'+'     81
            屏蔽 = 真
        分支 69 'KEYCODE_MINUS     按键'-'     69
            屏蔽 = 真
        分支 56 'KEYCODE_PERIOD     按键'.'     56
            屏蔽 = 真
        分支 17 'KEYCODE_STAR     按键'*'     17
            屏蔽 = 真
        分支 76 'KEYCODE_SLASH     按键'/'     76
            屏蔽 = 真
        分支 70 'KEYCODE_EQUALS     按键'='     70
            屏蔽 = 真
    结束 判断
结束 事件

过程 提交答案()
    变量 用时 为 长整数型 = 取启动时间() - 计时
    判断 运算符
        分支 0
            答案 = 数1 + 数2
        分支 1
            答案 = 数1 - 数2
        分支 2
            答案 = 数1 * 数2
        分支 3
            答案 = 数1 / 数2
    结束 判断
    '    答案 = 表达式计算(编辑框_题目.内容) '注意要把×、÷替换回*、/
    变量 提示内容 为 文本型 = "输入的答案是：" & 整数到文本(到整数(编辑框_答案.内容)) & "\n" & "正确答案是：" & 整数到文本(答案) & "\n共用时：" & 到文本(用时/1000) & "秒"
    如果 到整数(编辑框_答案.内容) = 答案 则
        信息框("恭喜你答对了！", 提示内容, "非常棒,再来一次")
    否则
        信息框("算错了哦,要小心计算啊！", 提示内容, "我要继续努力")
    结束 如果
   
    生成算式()
结束 过程