| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 窗口程序集_启动窗口 |
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| __启动窗口_创建完毕 | |||||
数据框.插入列 (1, “权”, 191, 1, , )
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _确认添加_被单击 | |||||
如果真 (到数值 (修改权.内容) ＞ 0 且 数据添加.内容 ≠ “”)
索引 ＝ 数据框.插入表项 (, , , , , )数据框.置标题 (索引, 0, 数据添加.内容)数据框.置标题 (索引, 1, 修改权.内容)
如果 (数据框.取表项数 () ≠ 0)
一键计算.禁止 ＝ 假
一键计算.禁止 ＝ 真数据添加.获取焦点 ()
数据添加.内容 ＝ “”
修改权.内容 ＝ “1”
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _修改权_获得焦点 | |||||
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _修改权_失去焦点 | |||||
如果真 (到数值 (修改权.内容) ≤ 0)修改权.内容 ＝ “1”
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| _数据添加_放开某键 | 逻辑型 | ||||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 键代码 | 整数型 | 功能键状态 | 整数型 | ||||
如果 (键代码 ＝ #回车键 且 功能键状态 ＝ #Ctrl键状态 )_一键计算_被单击 ()
如果真 (键代码 ＝ #回车键 )_确认添加_被单击 ()
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| _修改权_放开某键 | 逻辑型 | ||||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 键代码 | 整数型 | 功能键状态 | 整数型 | ||||
如果 (键代码 ＝ #回车键 且 功能键状态 ＝ #Ctrl键状态 )_一键计算_被单击 ()如果真 (键代码 ＝ #回车键 )_确认添加_被单击 ()| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| _清空数据_鼠标左键被放开 | 逻辑型 | ||||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 横向位置 | 整数型 | 纵向位置 | 整数型 | 功能键状态 | 整数型 | ||
如果真 (信息框 (“确认清空数据？” ＋ #换行符 ＋ “清空后无法找回！”, 1, “警告”) ＝ #确认钮 )清除结果 ()| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _一键计算_被单击 | |||||
重定义数组 (数据, 真, 3000000)
重定义数组 (众数, 真, 3000000)
计次循环首 (数据框.取表项数 (), i)总权 ＝ 总权 ＋ 到数值 (数据框.取标题 (i － 1, 1))计次循环首 (到数值 (数据框.取标题 (i － 1, 1)), j)k ＝ k ＋ 1总和 ＝ 总和 ＋ 到数值 (数据框.取标题 (i － 1, 0))数据 [k] ＝ 到数值 (数据框.取标题 (i － 1, 0))
计次循环尾 ()计次循环尾 ()数组排序 (数据, 真)
ans.标题 ＝ “总和：” ＋ 到文本 (总和)
NoD.标题 ＝ “数据个数：” ＋ 到文本 (总权)
平均数 ＝ 总和 ÷ 总权
mean.标题 ＝ “平均数：” ＋ 到文本 (平均数)
如果 (总权 ％ 2 ＝ 0)中位数 ＝ (数据 [总权 ＼ 2] ＋ 数据 [总权 ＼ 2 ＋ 1]) ÷ 2中位数 ＝ 数据 [总权 ＼ 2 ＋ 1]median.标题 ＝ “中位数：” ＋ 到文本 (中位数)
计次循环首 (数据框.取表项数 (), i)如果真 (到数值 (数据框.取标题 (i － 1, 1)) ≥ 待比较权)如果真 (到数值 (数据框.取标题 (i － 1, 1)) ＝ 待比较权)t ＝ t ＋ 1众数 [t] ＝ 到数值 (数据框.取标题 (i － 1, 0))如果真 (到数值 (数据框.取标题 (i － 1, 1)) ＞ 待比较权)众数 [t] ＝ 到数值 (数据框.取标题 (i － 1, 0))待比较权 ＝ 到数值 (数据框.取标题 (i － 1, 1))如果真 (到数值 (数据框.取标题 (i － 1, 1)) ≠ 待比较权 且 待比较权 ≠ -2147483646)是否有不同权 ＝ 真计次循环尾 ()数组排序 (众数, 真)
计次循环首 (总权, i)如果真 (是否有不同权 ＝ 假)mode.标题 ＝ “众数：无”跳出循环 ()如果真 (众数 [i] ≠ 2147483647)如果 (是否首个众数)mode.标题 ＝ mode.标题 ＋ 到文本 (众数 [i])mode.标题 ＝ mode.标题 ＋ “和” ＋ 到文本 (众数 [i])是否首个众数 ＝ 假计次循环尾 ()计次循环首 (总权, i)平方和 ＝ 平方和 ＋ 求次方 (数据 [i] － 平均数, 2)计次循环尾 ()方差 ＝ 平方和 ÷ 总权
variance.标题 ＝ “方差：” ＋ 到文本 (方差)
标准差 ＝ 求平方根 (方差)
std.标题 ＝ “标准差：” ＋ 到文本 (标准差)
极差 ＝ 数据 [总权] － 数据 [1]
range.标题 ＝ “极差：” ＋ 到文本 (极差)
数据添加.获取焦点 ()
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| 清除结果 | |||||
t ＝ 1
总和 ＝ 0
总权 ＝ 0
平均数 ＝ 0
中位数 ＝ 0
计次循环首 (3000000, i)数据 [i] ＝ 2147483647计次循环尾 ()计次循环首 (3000000, i)众数 [i] ＝ 2147483647计次循环尾 ()平方和 ＝ 0
方差 ＝ 0
标准差 ＝ 0
是否首个众数 ＝ 真
是否有不同权 ＝ 假
ans.标题 ＝ “总和：”
NoD.标题 ＝ “数据个数：”
mean.标题 ＝ “平均数：”
median.标题 ＝ “中位数：”
mode.标题 ＝ “众数：”
variance.标题 ＝ “方差：”
std.标题 ＝ “标准差：”
range.标题 ＝ “极差：”
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| _重置数据_鼠标左键被放开 | 逻辑型 | ||||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 横向位置 | 整数型 | 纵向位置 | 整数型 | 功能键状态 | 整数型 | ||
如果真 (信息框 (“确定重置？” ＋ #换行符 ＋ “所有数据都将被清除！”, 1, “警告”) ＝ #确认钮 )载入 (保留窗口, , 假)_启动窗口.销毁 ()载入 (_启动窗口, , 假)保留窗口.销毁 ()| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _删除表项_被单击 | |||||
如果真 (数据框.取表项数 () ＝ 0)一键计算.禁止 ＝ 真删除表项.可视 ＝ 假
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _数据框_左键单击表项 | |||||
如果真 (数据框.取表项数 () ≠ 0)删除表项.可视 ＝ 真| i支持库列表 | 支持库注释 |
| iext | 扩展界面支持库一 |
