我的代码什么不行啊？
.版本 2
.子程序 _按钮1_被单击
.局部变量 计次
.局部变量 文本, 文本型
.局部变量 计次2
.计次循环首 (列表框1.取项目数 (), 计次)
处理事件 ()
计次 ＝ 计次 － 1
文本 ＝ 列表框1.取项目文本 (计次)
.计次循环首 (列表框2.取项目数 (), 计次2)
.如果真 (文本 ≠ 列表框1.取项目文本 (计次2 － 1))
编辑框1.加入文本 (文本 ＋ #换行符)
.如果真结束
.计次循环尾 ()
.计次循环尾 ()
.版本 2
.支持库 OPenGL
.程序集 窗口程序集1
.子程序 _按钮1_被单击
编辑框2.内容 ＝ 字符过滤 (编辑框1.内容, 0)
编辑框3.内容 ＝ 字符过滤 (编辑框1.内容, 1)
.子程序 字符过滤, 文本型, , 过滤掉你不需要的指定字符类型。“双字节型”和“单字节型”
.参数 欲被过滤的文本, 文本型, , 欲被过滤的文本。不能为空。
.参数 欲返回的字符类型, 整数型, , 过滤后你需要返回的字符类型。0、为单字符类型，其他数值双字节型字符
.局部变量 计次, 整数型
.局部变量 返回值, 逻辑型
.局部变量 单字符文本, 文本型
.局部变量 双字符文本, 文本型
.循环判断首 ()
返回值 ＝ 是否为双字节字符 (欲被过滤的文本, 计次 － 1)
.判断开始 (返回值 ＝ 真)
双字符文本 ＝ 双字符文本 ＋ 取文本中间 (欲被过滤的文本, 计次, 2)
计次 ＝ 计次 ＋ 2
.默认
单字符文本 ＝ 单字符文本 ＋ 取文本中间 (欲被过滤的文本, 计次, 1)
.如果真 (寻找文本 (欲被过滤的文本, #换行符, 计次, 假) ＝ 计次)
双字符文本 ＝ 双字符文本 ＋ #换行符
.如果真结束
计次 ＝ 计次 ＋ 1
.判断结束
.循环判断尾 (计次 ＜ 取文本长度 (欲被过滤的文本))
.判断开始 (欲返回的字符类型 ＝ 0)
返回 (单字符文本)
.默认
返回 (双字符文本)
.判断结束追问
.支持库 OPenGL
.程序集 窗口程序集1
.子程序 _按钮1_被单击
编辑框2.内容 ＝ 字符过滤 (编辑框1.内容, 0)
编辑框3.内容 ＝ 字符过滤 (编辑框1.内容, 1)
.子程序 字符过滤, 文本型, , 过滤掉你不需要的指定字符类型。“双字节型”和“单字节型”
.参数 欲被过滤的文本, 文本型, , 欲被过滤的文本。不能为空。
.参数 欲返回的字符类型, 整数型, , 过滤后你需要返回的字符类型。0、为单字符类型，其他数值双字节型字符
.局部变量 计次, 整数型
.局部变量 返回值, 逻辑型
.局部变量 单字符文本, 文本型
.局部变量 双字符文本, 文本型
.循环判断首 ()
返回值 ＝ 是否为双字节字符 (欲被过滤的文本, 计次 － 1)
.判断开始 (返回值 ＝ 真)
双字符文本 ＝ 双字符文本 ＋ 取文本中间 (欲被过滤的文本, 计次, 2)
计次 ＝ 计次 ＋ 2
.默认
单字符文本 ＝ 单字符文本 ＋ 取文本中间 (欲被过滤的文本, 计次, 1)
.如果真 (寻找文本 (欲被过滤的文本, #换行符, 计次, 假) ＝ 计次)
双字符文本 ＝ 双字符文本 ＋ #换行符
.如果真结束
计次 ＝ 计次 ＋ 1
.判断结束
.循环判断尾 (计次 ＜ 取文本长度 (欲被过滤的文本))
.判断开始 (欲返回的字符类型 ＝ 0)
返回 (单字符文本)
.默认
返回 (双字符文本)
.判断结束追问
跟问题无关......T_T，能不能在我发的代码改下，求出我想要的结果
温馨提示：答案为网友推荐，仅供参考
第1个回答 2011-12-20
.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 计次, 整数型
.局部变量 文本, 文本型
.局部变量 计次2, 整数型
' 源代码。
' 计次循环首 (列表框1.取项目数 (), 计次)计次循环首 ()
' 处理事件 ()
' 计次 ＝ 计次 － 1
' 文本 ＝ 列表框1.取项目文本 (计次)
'
' 如果真 (文本 ≠ 列表框1.取项目文本 (计次2 － 1))如果真 ()
' 编辑框1.加入文本 (文本 ＋ #换行符)
' 计次循环尾 ()
'
' 修改后代码。
.计次循环首 (列表框1.取项目数 (), 计次)
处理事件 ()
.计次循环首 (列表框2.取项目数 (), 计次2)
.如果真 (列表框1.取项目文本 (计次 － 1) ＝ 列表框2.取项目文本 (计次2 － 1))
编辑框1.加入文本 (列表框1.取项目文本 (计次 － 1) ＋ #换行符)
跳出循环 ()
.如果真结束
.计次循环尾 ()
.计次循环尾 ()
' 这里只做了一重判断，会有重复的数字被加入到编辑框。
' 如果想避免这一现象出现，需要在判断之前 先把 列表框1，或者2的内容里重复的过滤掉，
' 那么加入到编辑框里的文本，将不再会出现重复的数字。
' 按你的要求，达到你的效果了。
' 如果改动代码，请追问。
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 计次, 整数型
.局部变量 文本, 文本型
.局部变量 计次2, 整数型
' 源代码。
' 计次循环首 (列表框1.取项目数 (), 计次)计次循环首 ()
' 处理事件 ()
' 计次 ＝ 计次 － 1
' 文本 ＝ 列表框1.取项目文本 (计次)
'
' 如果真 (文本 ≠ 列表框1.取项目文本 (计次2 － 1))如果真 ()
' 编辑框1.加入文本 (文本 ＋ #换行符)
' 计次循环尾 ()
'
' 修改后代码。
.计次循环首 (列表框1.取项目数 (), 计次)
处理事件 ()
.计次循环首 (列表框2.取项目数 (), 计次2)
.如果真 (列表框1.取项目文本 (计次 － 1) ＝ 列表框2.取项目文本 (计次2 － 1))
编辑框1.加入文本 (列表框1.取项目文本 (计次 － 1) ＋ #换行符)
跳出循环 ()
.如果真结束
.计次循环尾 ()
.计次循环尾 ()
' 这里只做了一重判断，会有重复的数字被加入到编辑框。
' 如果想避免这一现象出现，需要在判断之前 先把 列表框1，或者2的内容里重复的过滤掉，
' 那么加入到编辑框里的文本，将不再会出现重复的数字。
' 按你的要求，达到你的效果了。
' 如果改动代码，请追问。
