在"启动窗口"中放三个编辑框和一个按钮,在编辑框1和编辑框2中输入号码,以空格分隔,不要输入"= 01"之类,同一个编辑框中不要输入重复的号码,点击按钮,在编辑框3中会出现结果.就是两个编辑框中相同的数会出现"()"内,不同的出现在"()"外.
---------------------------
.版本 2
.程序集 窗口程序集1
.程序集变量 文本1, 文本型, , "0"
.程序集变量 文本2, 文本型, , "0"
.程序集变量 文本3, 文本型, , "0"
.子程序 __启动窗口_创建完毕
清除数组 (文本1)
清除数组 (文本2)
清除数组 (文本3)
编辑框1.内容 = “”
编辑框2.内容 = “”
编辑框1.获取焦点 ()
.子程序 _按钮1_被单击
.局部变量 计数1, 整数型
.局部变量 计数2, 整数型
编辑框3.内容 = “”
文本1 = 分割文本 (编辑框1.内容, “ ”, )
文本2 = 分割文本 (编辑框2.内容, “ ”, )
.如果真 (取数组成员数 (文本1) = 0 或 取数组成员数 (文本2) = 0)
返回 ()
.如果真结束
.计次循环首 (取数组成员数 (文本1), 计数1)
.计次循环首 (取数组成员数 (文本2), 计数2)
.如果真 (文本1 [计数1] = 文本2 [计数2])
编辑框3.加入文本 (文本1 [计数1], “ ”)
文本2 [计数2] = “”
跳出循环 ()
.如果真结束
.计次循环尾 ()
.如果真 (计数2 > 取数组成员数 (文本2))
加入成员 (文本3, 文本1 [计数1])
.如果真结束
.计次循环尾 ()
.计次循环首 (取数组成员数 (文本2), 计数2)
.如果真 (文本2 [计数2] ≠ “”)
加入成员 (文本3, 文本2 [计数2])
.如果真结束
.计次循环尾 ()
编辑框3.内容 = “(” + 编辑框3.内容 + “) ”
.计次循环首 (取数组成员数 (文本3), 计数1)
编辑框3.加入文本 (文本3 [计数1], “ ”)
.计次循环尾 ()
__启动窗口_创建完毕 ()