| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 窗口程序集_启动窗口 |
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| __启动窗口_创建完毕 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 文件名 | 文本型 | |||||
| 工作簿 | 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”)
免得被那些专家欺骗 说什么0.999~~~=1
