生成10以内加减法

rebellion · 发表于 2023-8-9 02:55:59

本帖最后由 rebellion 于 2023-8-9 02:55 编辑

娃到了要开始学计算的时候了，在其他论坛看到一个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”)