生成10以内加减法

rebellion

娃到了要开始学计算的时候了，在其他论坛看到一个py版本的，仿着做了一个易语言的。目前计算结果是10以内，稍微改一改可以生成20以内的，100以内的。可怜天下父母心，娃一定很开心

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
文件名	文本型
工作簿	XL工作簿类
工作表	XL工作表类
格式	XL格式类
字体	XL字体类
i	整数型
j	整数型
符号	文本型
数组_符号	文本型		0
a	整数型
b	整数型
计算结果	整数型

' 创建表格
文件名 ＝ “10以内加减法.xls”
如果真 (文件是否存在 (文件名))
删除文件 (文件名)
工作簿.新建文件 ( #XL文件类型_XLS )
工作表 ＝ 工作簿.添加工作表 (“10以内加减法”)
' 设置格式和字体
工作簿.添加格式字体 (格式, 字体)
格式.水平对齐 ( #XL水平对齐_居中对齐 )
格式.垂直对齐 ( #XL垂直对齐_居中对齐 )
字体.名称 (“Times New Roman”)
字体.颜色 ( #黑色 )
字体.尺寸 (18)
' 设置列宽
工作表.置列宽 (0, , 2, 格式)  ' 第一行列宽缩短
计次循环首 (25, i)
判断 (i ＝ 5)
工作表.置列宽 (i, , 5.5, 格式)
到循环尾 ()
判断 (i ＝ 10)
工作表.置列宽 (i, , 5.5, 格式)
到循环尾 ()
判断 (i ＝ 15)
工作表.置列宽 (i, , 5.5, 格式)
到循环尾 ()
判断 (i ＝ 20)
工作表.置列宽 (i, , 5.5, 格式)
到循环尾 ()
判断 (i ＝ 25)
工作表.置列宽 (i, , 5.5, 格式)
到循环尾 ()


工作表.置列宽 (i, , 2, 格式)
计次循环尾 ()
' 设置默认行高
计次循环首 (42, j)
工作表.置行高 (j, , 10, 格式)
计次循环尾 ()
' 填充数据
置随机数种子 ()
变量循环首 (1, 41, 2, j)
变量循环首 (0, 4, 1, i)
数组_符号 ＝ { “+”, “-” }
符号 ＝ 数组_符号 [取随机数 (1, 2)]
a ＝ 取随机数 (1, 9)
如果真 (符号 ＝ “+”)
计算结果 ＝ 取随机数 (a, 10)
b ＝ 计算结果 － a
工作表.置单元格数值 (j, i × 5 ＋ 1, a)
工作表.置单元格文本 (j, i × 5 ＋ 2, “+”)
工作表.置单元格数值 (j, i × 5 ＋ 3, b)
工作表.置单元格文本 (j, i × 5 ＋ 4, “=”)
如果真 (符号 ＝ “-”)
b ＝ 取随机数 (0, a)
计算结果 ＝ a － b
工作表.置单元格数值 (j, i × 5 ＋ 1, a)
工作表.置单元格文本 (j, i × 5 ＋ 2, “-”)
工作表.置单元格数值 (j, i × 5 ＋ 3, b)
工作表.置单元格文本 (j, i × 5 ＋ 4, “=”)

变量循环尾 ()
工作表.置行高 (j, , 23, 格式)  ' 数据所在行,行高变高
变量循环尾 ()
工作簿.保存文件 (“10以内加减法.xls”)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文件名, 文本型<br /> .局部变量 工作簿, XL工作簿类<br /> .局部变量 工作表, XL工作表类<br /> .局部变量 格式, XL格式类<br /> .局部变量 字体, XL字体类<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 符号, 文本型<br /> .局部变量 数组_符号, 文本型, , "0"<br /> .局部变量 a, 整数型<br /> .局部变量 b, 整数型<br /> .局部变量 计算结果, 整数型<br /> <br /> <br /> ' 创建表格<br /> 文件名 ＝ “10以内加减法.xls”<br /> .如果真 (文件是否存在 (文件名))<br />     删除文件 (文件名)<br /> .如果真结束<br /> 工作簿.新建文件 (#XL文件类型_XLS)<br /> 工作表 ＝ 工作簿.添加工作表 (“10以内加减法”)<br /> <br /> ' 设置格式和字体<br /> 工作簿.添加格式字体 (格式, 字体)<br /> 格式.水平对齐 (#XL水平对齐_居中对齐)<br /> 格式.垂直对齐 (#XL垂直对齐_居中对齐)<br /> 字体.名称 (“Times New Roman”)<br /> 字体.颜色 (#黑色)<br /> 字体.尺寸 (18)<br /> <br /> ' 设置列宽<br /> 工作表.置列宽 (0, , 2, 格式)  ' 第一行列宽缩短<br /> .计次循环首 (25, i)<br />     .判断开始 (i ＝ 5)<br />         工作表.置列宽 (i, , 5.5, 格式)<br />         到循环尾 ()<br />     .判断 (i ＝ 10)<br />         工作表.置列宽 (i, , 5.5, 格式)<br />         到循环尾 ()<br />     .判断 (i ＝ 15)<br />         工作表.置列宽 (i, , 5.5, 格式)<br />         到循环尾 ()<br />     .判断 (i ＝ 20)<br />         工作表.置列宽 (i, , 5.5, 格式)<br />         到循环尾 ()<br />     .判断 (i ＝ 25)<br />         工作表.置列宽 (i, , 5.5, 格式)<br />         到循环尾 ()<br />     .默认<br /> <br />     .判断结束<br />     工作表.置列宽 (i, , 2, 格式)<br /> .计次循环尾 ()<br /> <br /> ' 设置默认行高<br /> .计次循环首 (42, j)<br />     工作表.置行高 (j, , 10, 格式)<br /> .计次循环尾 ()<br /> <br /> ' 填充数据<br /> 置随机数种子 ()<br /> .变量循环首 (1, 41, 2, j)<br />     .变量循环首 (0, 4, 1, i)<br />         数组_符号 ＝ { “+”, “-” }<br />         符号 ＝ 数组_符号 [取随机数 (1, 2)]<br />         a ＝ 取随机数 (1, 9)<br />         .如果真 (符号 ＝ “+”)<br />             计算结果 ＝ 取随机数 (a, 10)<br />             b ＝ 计算结果 － a<br />             工作表.置单元格数值 (j, i × 5 ＋ 1, a)<br />             工作表.置单元格文本 (j, i × 5 ＋ 2, “+”)<br />             工作表.置单元格数值 (j, i × 5 ＋ 3, b)<br />             工作表.置单元格文本 (j, i × 5 ＋ 4, “=”)<br />         .如果真结束<br />         .如果真 (符号 ＝ “-”)<br />             b ＝ 取随机数 (0, a)<br />             计算结果 ＝ a － b<br />             工作表.置单元格数值 (j, i × 5 ＋ 1, a)<br />             工作表.置单元格文本 (j, i × 5 ＋ 2, “-”)<br />             工作表.置单元格数值 (j, i × 5 ＋ 3, b)<br />             工作表.置单元格文本 (j, i × 5 ＋ 4, “=”)<br />         .如果真结束<br /> <br />     .变量循环尾 ()<br />     工作表.置行高 (j, , 23, 格式)  ' 数据所在行,行高变高<br /> .变量循环尾 ()<br /> <br /> 工作簿.保存文件 (“10以内加减法.xls”)

SHIWOOOO

好好好好

21186213

可以啊，就不用网上到处找了

倾风听雨声

感谢分享，很给力！~

蓝之恋

我看看  我啦啦啦

忆美科技

娃一定很感激你

396384183

学习一下

蒙顺童

支持开源~！感谢分享

814212053

娃娃：我谢谢你，你个老6

易语言菜鸟6

66666666666666666666666666666666666666666666666666666666