易语言编写的算术题程序实例代码

这是一个用易语言编写的一款自动出题的软件

程序下载地址：https://www.jb51.net/codes/645872.html

以下是源码内容：

.版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击

.判断开始 (编辑框1.内容 ＝ “” 或 编辑框2.内容 ＝ “”)
信息框 (“账户名或密码不能为空！”, 0, “提示”, )
编辑框1.获取焦点 ()
.判断 (编辑框1.内容 ＝ “sau123456” 或 编辑框2.内容 ＝ “sau123456”)
载入 (窗口3, , 假)
销毁 ()
信息框 (“登陆成功！”, 0, “提示”, )
.默认
信息框 (“账户名或密码错误！”, 0, “提示”, )
编辑框1.获取焦点 ()

.判断结束

.版本 2

.程序集 窗口程序集_窗口3

.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

.子程序 _分组框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

.子程序 _按钮1_被单击

.判断开始 (窗口3.组合框1.内容 ＝ “简单” 或 窗口3.组合框1.内容 ＝ “中等”)
载入 (窗口1, , 假)
销毁 ()
.判断 (窗口3.组合框1.内容 ＝ “困难”)
载入 (窗口2, , 假)
销毁 ()
.判断 (窗口3.组合框1.内容 ＝ “”)
信息框 (“请选择难度！”, 0, “提示”, )
.默认

.判断结束

.版本 2

.程序集 窗口程序集2

.子程序 _窗口1_创建完毕

.判断开始 (窗口3.组合框1.内容 ＝ “简单”)
难度 ＝ 1
.判断 (窗口3.组合框1.内容 ＝ “中等”)
难度 ＝ 10
.默认

.判断结束
开始出题 ()

.子程序 _按钮2_被单击

载入 (窗口3, , 假)
销毁 ()

.子程序 _按钮3_被单击

开始出题 ()

.子程序 开始出题
.局部变量 次数, 整数型
.局部变量 标签, 标签
.局部变量 编辑框, 编辑框
.局部变量 编辑框2, 编辑框
.局部变量 判断值, 整数型
.局部变量 题目1, 整数型
.局部变量 题目2, 整数型
.局部变量 图片框, 图片框

.变量循环首 (1, 20, 1, 次数)
图片框 ＝ 取标记组件 (次数 ＋ 60)
编辑框 ＝ 取标记组件 (次数 ＋ 40)
编辑框2 ＝ 取标记组件 (次数 ＋ 20)
图片框.图片 ＝ { }
编辑框.内容 ＝ “”
编辑框.可视 ＝ 假
编辑框2.内容 ＝ “”
.变量循环尾 ()
按钮1.可视 ＝ 真
按钮2.可视 ＝ 假
按钮3.可视 ＝ 假
标签41.标题 ＝ “”
答对 ＝ 0
数组清零 (答案)
.变量循环首 (1, 20, 1, 次数)
标签 ＝ 取标记组件 (次数)
题目1 ＝ 取随机数 (难度, 难度 × 10)
题目2 ＝ 取随机数 (难度, 难度 × 10)
判断值 ＝ 取随机数 (1, 4)
.判断开始 (判断值 ＝ 1)
答案 [次数] [1] ＝ 题目1 ＋ 题目2
标签.标题 ＝ 到文本 (到文本 (题目1) ＋ “＋” ＋ 到文本 (题目2) ＋ “＝”)
.判断 (判断值 ＝ 2)
.判断循环首 (题目1 ＜ 题目2)
题目1 ＝ 取随机数 (难度, 难度 × 10)
题目2 ＝ 取随机数 (难度, 难度 × 10)
.判断循环尾 ()
答案 [次数] [1] ＝ 题目1 － 题目2
标签.标题 ＝ 到文本 (到文本 (题目1) ＋ “-” ＋ 到文本 (题目2) ＋ “=”)
.判断 (判断值 ＝ 3)
答案 [次数] [1] ＝ 题目1 × 题目2
标签.标题 ＝ 到文本 (到文本 (题目1) ＋ “×” ＋ 到文本 (题目2) ＋ “=”)
.判断 (判断值 ＝ 4)
.判断循环首 (题目1 ＜ 题目2)
题目1 ＝ 取随机数 (难度, 难度 × 10)
题目2 ＝ 取随机数 (难度, 难度 × 10)
.判断循环尾 ()
答案 [次数] [1] ＝ 题目1 ÷ 题目2
答案 [次数] [2] ＝ 题目1 ％ 题目2
标签.标题 ＝ 到文本 (到文本 (题目1) ＋ “÷” ＋ 到文本 (题目2) ＋ “=”)
编辑框 ＝ 取标记组件 (次数 ＋ 40)
标签 ＝ 取标记组件 (次数 ＋ 80)
编辑框.可视 ＝ 真
标签.标题 ＝ “ ……”
.默认

.判断结束

.变量循环尾 ()

.子程序 _按钮1_被单击
.局部变量 次数, 整数型
.局部变量 编辑框1, 编辑框
.局部变量 编辑框2, 编辑框
.局部变量 图片框, 图片框

按钮1.可视 ＝ 假
按钮2.可视 ＝ 真
按钮3.可视 ＝ 真
.变量循环首 (1, 20, 1, 次数)
编辑框1 ＝ 取标记组件 (次数 ＋ 40)
编辑框2 ＝ 取标记组件 (次数 ＋ 20)
图片框 ＝ 取标记组件 (次数 ＋ 60)
.判断开始 (编辑框1.可视 ＝ 真)
.判断开始 (到数值 (编辑框2.内容) ＝ 答案 [次数] [1] 且 到数值 (编辑框1.内容) ＝ 答案 [次数] [2])
答对 ＝ 答对 ＋ 1
图片框.图片 ＝ #图片1
.默认
图片框.图片 ＝ #图片2
.判断结束

.判断 (到数值 (编辑框2.内容) ＝ 答案 [次数] [1])
答对 ＝ 答对 ＋ 1
图片框.图片 ＝ #图片1
.默认
图片框.图片 ＝ #图片2
.判断结束
标签41.标题 ＝ “您答对题目数为 ” ＋ 到文本 (答对) ＋ “ 道，答错 ” ＋ 到文本 (20 － 答对) ＋ “ 道！”
.变量循环尾 ()

.版本 2

.程序集 窗口程序集_窗口2

.子程序 _窗口2_创建完毕

开始出题 ()

.子程序 _按钮2_被单击

载入 (窗口3, , 假)
销毁 ()

.子程序 _按钮3_被单击

开始出题 ()

.子程序 开始出题
.局部变量 次数, 整数型
.局部变量 标签, 标签
.局部变量 编辑框, 编辑框
.局部变量 编辑框2, 编辑框
.局部变量 判断值, 整数型
.局部变量 题目1, 整数型
.局部变量 题目2, 整数型
.局部变量 题目3, 整数型
.局部变量 题目4, 整数型
.局部变量 图片框, 图片框
.局部变量 最大公约数, 整数型
.局部变量 分子, 整数型
.局部变量 分母, 整数型

.变量循环首 (1, 20, 1, 次数)
图片框 ＝ 取标记组件 (次数 ＋ 60)
编辑框 ＝ 取标记组件 (次数 ＋ 40)
编辑框2 ＝ 取标记组件 (次数 ＋ 20)
图片框.图片 ＝ { }
编辑框.内容 ＝ “”
编辑框.可视 ＝ 假
编辑框2.内容 ＝ “”
.变量循环尾 ()
按钮1.可视 ＝ 真
按钮2.可视 ＝ 假
按钮3.可视 ＝ 假
标签41.标题 ＝ “”
答对 ＝ 0
数组清零 (答案)
.变量循环首 (1, 20, 1, 次数)
标签 ＝ 取标记组件 (次数)
分类 ＝ 取随机数 (1, 2)
.判断开始 (分类 ＝ 1)
题目1 ＝ 取随机数 (1, 100)
题目2 ＝ 取随机数 (1, 100)
.判断 (分类 ＝ 2)
题目1 ＝ 取随机数 (1, 100)
题目2 ＝ 取随机数 (1, 100)
.判断循环首 (题目1 ＞ 题目2)
题目1 ＝ 取随机数 (1, 100)
题目2 ＝ 取随机数 (1, 100)
.判断循环尾 ()

题目3 ＝ 取随机数 (1, 100)
题目4 ＝ 取随机数 (1, 100)
.判断循环首 (题目3 ＞ 题目4)
题目3 ＝ 取随机数 (1, 100)
题目4 ＝ 取随机数 (1, 100)
.判断循环尾 ()
.默认

.判断结束

.判断开始 (分类 ＝ 1)
判断值 ＝ 取随机数 (1, 4)
.判断开始 (判断值 ＝ 1)
答案 [次数] [1] ＝ 题目1 ＋ 题目2
标签.标题 ＝ 到文本 (到文本 (题目1) ＋ “＋” ＋ 到文本 (题目2) ＋ “＝”)
.判断 (判断值 ＝ 2)
.判断循环首 (题目1 ＜ 题目2)
题目1 ＝ 取随机数 (1, 100)
题目2 ＝ 取随机数 (1, 100)
.判断循环尾 ()
答案 [次数] [1] ＝ 题目1 － 题目2
标签.标题 ＝ 到文本 (到文本 (题目1) ＋ “-” ＋ 到文本 (题目2) ＋ “=”)
.判断 (判断值 ＝ 3)
答案 [次数] [1] ＝ 题目1 × 题目2
标签.标题 ＝ 到文本 (到文本 (题目1) ＋ “×” ＋ 到文本 (题目2) ＋ “=”)
.判断 (判断值 ＝ 4)
.判断循环首 (题目1 ＜ 题目2)
题目1 ＝ 取随机数 (1, 100)
题目2 ＝ 取随机数 (1, 100)
.判断循环尾 ()
答案 [次数] [1] ＝ 题目1 ÷ 题目2
答案 [次数] [2] ＝ 题目1 ％ 题目2
标签.标题 ＝ 到文本 (到文本 (题目1) ＋ “÷” ＋ 到文本 (题目2) ＋ “=”)
编辑框 ＝ 取标记组件 (次数 ＋ 40)
标签 ＝ 取标记组件 (次数 ＋ 80)
编辑框.可视 ＝ 真
标签.标题 ＝ “ ……”
编辑框.可视 ＝ 真
.默认

.判断结束

.判断 (分类 ＝ 2)
编辑框 ＝ 取标记组件 (次数 ＋ 40)
编辑框.可视 ＝ 真
判断值 ＝ 取随机数 (1, 2)
最大公约数 ＝ 最大公约数 (题目1, 题目2)
题目1 ＝ 题目1 ÷ 最大公约数
题目2 ＝ 题目2 ÷ 最大公约数
最大公约数 ＝ 最大公约数 (题目3, 题目4)
题目3 ＝ 题目3 ÷ 最大公约数
题目4 ＝ 题目4 ÷ 最大公约数
.判断开始 (判断值 ＝ 1)
分子 ＝ 题目1 × 题目4 ＋ 题目3 × 题目2
分母 ＝ 题目2 × 题目4
最大公约数 ＝ 最大公约数 (分子, 分母)
分子 ＝ 分子 ÷ 最大公约数
分母 ＝ 分母 ÷ 最大公约数
答案 [次数] [1] ＝ 分子
答案 [次数] [2] ＝ 分母
标签.标题 ＝ 到文本 (到文本 (题目1) ＋ “/” ＋ 到文本 (题目2) ＋ “＋” ＋ 到文本 (题目3) ＋ “/” ＋ 到文本 (题目4) ＋ “＝”)
标签 ＝ 取标记组件 (次数 ＋ 80)
标签.标题 ＝ “ /”
.判断 (判断值 ＝ 2)
分子 ＝ 题目1 × 题目4 － 题目3 × 题目2
.判断循环首 (分子 ＜ 0)
题目1 ＝ 取随机数 (1, 100)
题目2 ＝ 取随机数 (1, 100)
.判断循环首 (题目1 ＞ 题目2)
题目1 ＝ 取随机数 (1, 100)
题目2 ＝ 取随机数 (1, 100)
.判断循环尾 ()

题目3 ＝ 取随机数 (1, 100)
题目4 ＝ 取随机数 (1, 100)
.判断循环首 (题目3 ＞ 题目4)
题目3 ＝ 取随机数 (1, 100)
题目4 ＝ 取随机数 (1, 100)
.判断循环尾 ()
分子 ＝ 题目1 × 题目4 － 题目3 × 题目2
.判断循环尾 ()
最大公约数 ＝ 最大公约数 (题目1, 题目2)
题目1 ＝ 题目1 ÷ 最大公约数
题目2 ＝ 题目2 ÷ 最大公约数
最大公约数 ＝ 最大公约数 (题目3, 题目4)
题目3 ＝ 题目3 ÷ 最大公约数
题目4 ＝ 题目4 ÷ 最大公约数
分子 ＝ 题目1 × 题目4 － 题目3 × 题目2
分母 ＝ 题目2 × 题目4
最大公约数 ＝ 最大公约数 (分子, 分母)
分子 ＝ 分子 ÷ 最大公约数
分母 ＝ 分母 ÷ 最大公约数
答案 [次数] [1] ＝ 分子
答案 [次数] [2] ＝ 分母
标签.标题 ＝ 到文本 (到文本 (题目1) ＋ “/” ＋ 到文本 (题目2) ＋ “-” ＋ 到文本 (题目3) ＋ “/” ＋ 到文本 (题目4) ＋ “＝”)
标签 ＝ 取标记组件 (次数 ＋ 80)
标签.标题 ＝ “ /”

.默认

.判断结束

.默认

.判断结束

.变量循环尾 ()

.子程序 _按钮1_被单击
.局部变量 次数, 整数型
.局部变量 编辑框1, 编辑框
.局部变量 编辑框2, 编辑框
.局部变量 图片框, 图片框

按钮1.可视 ＝ 假
按钮2.可视 ＝ 真
按钮3.可视 ＝ 真
.变量循环首 (1, 20, 1, 次数)
编辑框1 ＝ 取标记组件 (次数 ＋ 40)
编辑框2 ＝ 取标记组件 (次数 ＋ 20)
图片框 ＝ 取标记组件 (次数 ＋ 60)
.判断开始 (编辑框1.可视 ＝ 真)
.判断开始 (到数值 (编辑框2.内容) ＝ 答案 [次数] [1] 且 到数值 (编辑框1.内容) ＝ 答案 [次数] [2])
答对 ＝ 答对 ＋ 1
图片框.图片 ＝ #图片1
.默认
图片框.图片 ＝ #图片2
.判断结束

.判断 (到数值 (编辑框2.内容) ＝ 答案 [次数] [1])
答对 ＝ 答对 ＋ 1
图片框.图片 ＝ #图片1
.默认
图片框.图片 ＝ #图片2
.判断结束
标签41.标题 ＝ “您答对题目数为 ” ＋ 到文本 (答对) ＋ “ 道，答错 ” ＋ 到文本 (20 － 答对) ＋ “ 道！”
.变量循环尾 ()

.子程序 最大公约数, 整数型
.参数 数1, 整数型
.参数 数2, 整数型
.局部变量 中介, 整数型

.判断循环首 (数2 ％ 数1 ≠ 0)
中介 ＝ 数2 ％ 数1
数2 ＝ 数1
数1 ＝ 中介
.判断循环尾 ()
返回 (数1)