.版本 2
.程序集 窗口程序集1
.子程序 _排列按钮_被单击
.局部变量 计次
.局部变量 重复文本
重复文本 = 4
顶部编辑框.内容 = 顶部编辑框.内容 + 取重复文本 (7, “ ”) + 取手缓重复文本 (1, “*”) + #换行符
顶部编辑框.内容 = 顶部编辑框.内容 + 取重复文本 (6, “ ”) + 取埋激重复文本 (3, “*”) + #换行符
顶部编辑框.内容 = 顶部编辑框.内容 + 取重复文本 (5, “ ”) + 取毕液模重复文本 (5, “*”) + #换行符
顶部编辑框.内容 = 顶部编辑框.内容 + 取重复文本 (4, “ ”) + 取重复文本 (7, “*”) + #换行符
.计次循环首 (重复文本, 计次)
中部编辑框.内容 = 中部编辑框.内容 + 取重复文本 (重复文本 - 计次, “ ”) + 取重复文本 (10 + 计次 × 2 - 2, “*”) + #换行符
.计次循环尾 ()
.计次循环首 (重复文本, 计次)
底部编辑框.内容 = 底部编辑框.内容 + 取重复文本 (重复文本 - 计次, “ ”) + 取重复文本 (计次 × 2 - 1, “*”) + #换行符
.计次循环尾 ()
.计次循环首 (3, 计次)
底部编辑框.内容 = 底部编辑框.内容 + 取重复文本 (计次, “ ”) + 取重复文本 ((重复文本 - 计次) × 2 - 1, “*”) + #换行符
.计次循环尾 ()
.版本 2.程序集 窗口程序集1
.程序集变量 分割的数字, 整数型, , "0"
.子程序 整数排列
.参数 大小排列, 逻辑型
.局部变量 计次, 整数型
清除数组 (分割的数字) ' 先把数组归零以清除上次的数据
.计次循环首 (取文本长度 (编辑框1.内容), 计次)
加入成员 (分割的数字, 到数值 (取文本中间 (编辑框1.内容, 计次, 1))) ' 把文本数字分割并存入数组
.计次循环尾 ()
编辑框1.内容握告 = “”
.判断开始 (大小排列 = 真)
数组排序 (分割的数字, 假) ' 排序
.默认
数组排序 (分割的数字, )
.判断结束
.计次循环首 (取数搏含组成员数 (分割的数字), 计次)
编辑框1.内容 = 编辑框1.内容 + 到文本 (分割的数字 [计次]) ' 显示
.计次循环尾 ()
.子程序 _从大到小_被单击
整数排列 (真)
.子程序 _从小到大_被单击
整段银明数排列 (假)
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)