窗口程序集：窗口程序集1 ══════════════════════════════ 子程序：_按钮1_被单击 局部变量：变量 数据类型：整数型
局部变量：容器1 数据类型：整数型 数组：0
局部变量：容器2 数据类型：整数型
局部变量：text 数据类型：文本型 编辑框1.内容 ＝ “”
计次循环首 (36, 变量)
加入成员 (容器1, 变量)
计次循环尾 ()
计次循环首 (7, )
容器2 ＝ 取随机数 (1, 取数组成员数 (容器1))
如果 (容器2 ＜ 10)
text ＝ text ＋ “0” ＋ 到文本 (容器1 [容器2]) ＋ “ ”
否则
text ＝ text ＋ 到文本 (容器1 [容器2]) ＋ “ ”
删除成员 (容器1, 容器2, 1)
※备注：这语句的作用可用于删除相同号码,使之在同一组中不能出现相同的号码
如果结束
计次循环尾 ()
text ＝ 数字排序 (text, 选择框1.选中)
编辑框1.内容 ＝ text ══════════════════════════════ 子程序：数字排序
返回值类型：文本型 参数：文本 数据类型：文本型
参数：升序 数据类型：逻辑型 <可空> 局部变量：数组1 数据类型：文本型 数组：0
局部变量：数组2 数据类型：整数型 数组：0
局部变量：i 数据类型：整数型
局部变量：text 数据类型：文本型 如果真 (是否为空 (升序))
升序 ＝ 真 如果真结束
数组1 ＝ 分割文本 (文本, “ ”, )
变量循环首 (1, 取数组成员数 (数组1), 1, i)
※草稿：输出调试文本 (数组1 [i])
加入成员 (数组2, 到数值 (数组1 [i]))
变量循环尾 ()
数组排序 (数组2, 升序)
变量循环首 (1, 取数组成员数 (数组1), 1, i)
※草稿：输出调试文本 (到文本 (数组2 [i]))
如果 (数组2 [i] ＜ 10)
text ＝ text ＋ “0” ＋ 到文本 (数组2 [i]) ＋ “ ”
否则
text ＝ text ＋ 到文本 (数组2 [i]) ＋ “ ”
如果结束
变量循环尾 ()
※草稿：输出调试文本 (text)
返回 (text)
温馨提示：答案为网友推荐，仅供参考