.版本 2
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
_按钮2_被单击 ()
.子程序 _按钮1_被单击
.局部变量 分割数据, 文本型, , "0"
.局部变量 数字分割, 文本型, , "0"
.局部变量 重复次数, 整数型
.局部变量 判断结果, 文本型
.局部变量 ii, 整数型
.局部变量 i, 整数型
编辑框2.内容 ＝ “”
分割数据 ＝ 分割文本 (编辑框1.内容, #换行符, )
.计次循环首 (取数组成员数 (分割数据), i)
清除数组 (数字分割)
.计次循环首 (取文本长度 (分割数据 [i]), ii)
加入成员 (数字分割, 取文本中间 (分割数据 [i], ii, 1))
.计次循环尾 ()
判断结果 ＝ “”
.判断循环首 (取数组成员数 (数字分割) ＞ 0)
重复次数 ＝ 1
.变量循环首 (取数组成员数 (数字分割), 2, -1, ii)
.如果真 (数字分割 [ii] ＝ 数字分割 [1])
删除成员 (数字分割, ii, 1)
重复次数 ＝ 重复次数 ＋ 1
.如果真结束
.变量循环尾 ()
.如果真 (重复次数 ＞ 1)
判断结果 ＝ 判断结果 ＋ 数字分割 [1] ＋ “重复=” ＋ 到文本 (重复次数) ＋ “次，”
.如果真结束
删除成员 (数字分割, 1, 1)
.判断循环尾 ()
.如果 (判断结果 ＝ “”)
编辑框2.加入文本 (“无重复” ＋ #换行符)
.否则
编辑框2.加入文本 (判断结果 ＋ #换行符)
.如果结束
.计次循环尾 ()
.子程序 _按钮2_被单击
.局部变量 加入文本, 文本型
编辑框1.内容 ＝ “”
编辑框2.内容 ＝ “”
置随机数种子 ()
.计次循环首 (10, )
加入文本 ＝ “”
.计次循环首 (5, )
加入文本 ＝ 加入文本 ＋ 到文本 (取随机数 (0, 9))
.计次循环尾 ()
编辑框1.加入文本 (加入文本 ＋ #换行符)
.计次循环尾 ()