.版本 2 .支持库 iext .支持库 EChartBar .程序集 窗口程序集_启动窗口 .子程序 __启动窗口_创建完毕 .子程序 _统计商品_被单击 .局部变量 x, 整数型 .局部变量 临时文本, 文本型 .局部变量 重复次数, 整数型 .局部变量 索引, 整数型 .计次循环首 (超级列表框1.取表项数 (), x) 临时文本 ＝ 超级列表框1.取标题 (索引, 0) 重复次数 ＝ 到整数 (超级列表框1.取标题 (索引, 1)) 超级列表框1.置标题 (索引, 1, 到文本 (重复次数 ＋ 1)) .判断循环首 (超级列表框1.查找表项 (临时文本, 索引 ＋ 1, , 0) ≠ -1) 重复次数 ＝ 到整数 (超级列表框1.取标题 (索引, 1)) 超级列表框1.置标题 (索引, 1, 到文本 (重复次数 ＋ 1)) 超级列表框1.删除表项 (超级列表框1.查找表项 (临时文本, 索引 ＋ 1, , 0)) .判断循环尾 () 索引 ＝ 索引 ＋ 1 .计次循环尾 () 子程序_画柱状图 () ' 信息框 (“更多数字算法，计划源码 加QQ群下载交流：”, 0, , ) .子程序 子程序_画柱状图 .局部变量 局部_计次, 整数型 .局部变量 n, 整数型 .局部变量 文本, 文本型 .局部变量 文本排序, 文本型, , "0" .局部变量 取数值, 文本型, , "0" .计次循环首 (超级列表框1.取表项数 (), n) 文本 ＝ 文本 ＋ 超级列表框1.取标题 (n － 1, 1) ＋ “，” .计次循环尾 () 文本排序 ＝ 分割文本 (文本, “，”, ) 数组排序 (文本排序, 假) ' 柱状图控件1.Y轴最大值 ＝ 取数组成员数 (文本排序) ' 到整数 (文本排序 [1]) ' 柱状图控件1.Y轴刻度数 ＝ 5 柱状图控件1.X轴标注数量 ＝ 超级列表框1.取表项数 () .计次循环首 (超级列表框1.取表项数 (), 局部_计次) 柱状图控件1.当前X轴标注索引 ＝ 局部_计次 柱状图控件1.当前X轴标注文字 ＝ 超级列表框1.取标题 (局部_计次 － 1, 0) 柱状图控件1.当前数据值 ＝ 到整数 (超级列表框1.取标题 (局部_计次 － 1, 1)) .计次循环尾 ()