|

本帖最后由 爱家的小懒虫 于 2011-10-2 23:43 编辑
- .版本 2
- .程序集 窗口程序集1
- .子程序 _按钮1_被单击
- .局部变量 数组, 文本型, , "0"
- .局部变量 i, 整数型
- .局部变量 j, 整数型
- .局部变量 最后次交换位置, 整数型
- .局部变量 temp, 文本型
- .局部变量 k, 整数型, 静态
- 编辑框2.内容 = “”
- k = 1 - k
- 数组 = 分割文本 (编辑框1.内容, #换行符, )
- j = 取数组成员数 (数组)
- .判断循环首 (j > 0)
- 最后次交换位置 = 0
- .计次循环首 (j - 1, i)
- .如果 (取文本长度 (数组 [i]) > 取文本长度 (数组 [i + 1]))
- temp = 数组 [i]
- 数组 [i] = 数组 [i + 1]
- 数组 [i + 1] = temp
- .否则
- .如果真 (取文本长度 (数组 [i]) = 取文本长度 (数组 [i + 1]))
- .如果真 (到整数 (数组 [i]) > 到整数 (数组 [i + 1]))
- temp = 数组 [i]
- 数组 [i] = 数组 [i + 1]
- 数组 [i + 1] = temp
- .如果真结束
- .如果真结束
- .如果结束
- 最后次交换位置 = i
- .计次循环尾 ()
- j = 最后次交换位置
- .如果 (k = 1)
- 编辑框2.内容 = 数组 [i] + #换行符 + 编辑框2.内容
- .否则
- 编辑框2.加入文本 (数组 [i] + #换行符)
- .如果结束
- .判断循环尾 ()
- 处理事件 ()
复制代码 上面是正确的代码,用的是添加代码文字
[e]
.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 数组, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 j, 整数型
.局部变量 最后次交换位置, 整数型
.局部变量 temp, 文本型
.局部变量 k, 整数型, 静态
编辑框2.内容 = “”
k = 1 - k
数组 = 分割文本 (编辑框1.内容, #换行符, )
j = 取数组成员数 (数组)
.判断循环首 (j > 0)
最后次交换位置 = 0
.计次循环首 (j - 1, i)
.如果 (取文本长度 (数组 ) > 取文本长度 (数组 [i + 1]))
temp = 数组
数组 = 数组 [i + 1]
数组 [i + 1] = temp
.否则
.如果真 (取文本长度 (数组 ) = 取文本长度 (数组 [i + 1]))
.如果真 (到整数 (数组 ) > 到整数 (数组 [i + 1]))
temp = 数组
数组 = 数组 [i + 1]
数组 [i + 1] = temp
.如果真结束
.如果真结束
.如果结束
最后次交换位置 = i
.计次循环尾 ()
j = 最后次交换位置
.如果 (k = 1)
编辑框2.内容 = 数组 + #换行符 + 编辑框2.内容
.否则
编辑框2.加入文本 (数组 + #换行符)
.如果结束
.判断循环尾 ()
处理事件 ()
[/e]
同样的代码 直接复制进来发帖. (e) 发帖出来后 这里的代码 莫名变错误了(/e)
代码中 .如果真 (取文本长度 (数组 ) 后面的 i 不见了. (第20行 之后) 应该是: .如果真 (取文本长度 (数组 )
我在发帖编辑时候.看还是对的.但是发帖发出来后就错误了.
我不知道这个帖子应该发在哪个板块.请版主帮忙移到相应板块.谢谢了.
另外在这里发帖扣了我3个精币啊~~~心疼.求版主补偿~~~谢谢了.
|
评分
-
查看全部评分
|