|
分享源码
界面截图: |
- |
是否带模块: |
调用了模块 |
备注说明: |
- |
本程序可以一键计算一组数据的总和、平均数、中位数、众数、方差、标准差。
窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集_启动窗口 | | | |
数据框. 插入列 (0, “数据”, 191, 1, , )数据框. 插入列 (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.标题 = “极差:” + 到文本 (极差 )数据添加. 获取焦点 ()待比较权 = -2147483646 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 )删除表项.可视 = 真
|
评分
-
参与人数 1 | 精币 +1 |
收起
理由
|
汉族
| + 1 |
火眼 欢迎你 不行最少 哈勃把 直接 EXE 不敢,这段时间 病毒多 |
查看全部评分
|