.版本 2 .程序集 窗口程序集1 .程序集变量 分割的数字, 整数型, , "0" .子程序 整数排列 .参数 大小排列, 逻辑型 .局部变量 计次, 整数型 清除数组 (分割的数字) ' 先把数组归零以清除上次的数据 .计次循环首 (取文本长度 (编辑框1.内容), 计次) 加入成员 (分割的数字, 到数值 (取文本中间 (编辑框1.内容, 计次, 1))) ' 把文本数字分割并存入数组 .计次循环尾 () 编辑框1.内容 = “” .判断开始 (大小排列 = 真) 数组排序 (分割的数字, 假) ' 排序 .默认 数组排序 (分割的数字, ) .判断结束 .计次循环首 (取数组成员数 (分割的数字), 计次) 编辑框1.内容 = 编辑框1.内容 + 到文本 (分割的数字 [计次]) ' 显示 .计次循环尾 () .子程序 _从大到小_被单击 整数排列 (真) .子程序 _从小到大_被单击 整数排列 (假)
|