刚好我这里有源码。你参考下。
.版本
2
.程序集
窗口程序集1
.子程序
_按钮1_被单击
.局部变量
数字集,
文本型,
,
"0"
.局部变量
成员数,
整数型
.局部变量
计数器,
整数型
数字集
=
分割文本
(编辑框1.内容,
“
”,
)
成员数
=
取数组成员数
(数字集)
编辑框1.内容
=
“”
.计次循环首
(成员数,
计数器)
处理事件
()
.如果真
(重复数字检测
(数字集
[计数器]))
.如果
(计数器
=
成员数)
编辑框1.加入文本
(数字集
[计数器])
.否则
编辑框1.加入文本
(数字集
[计数器]
+
“
”)
.如果结束
.如果真结束
.计次循环尾
()
.子程序
重复数字检测,
逻辑型
.参数
待检测数,
文本型
.局部变量
数字集,
文本型,
,
"0"
.局部变量
成员数,
整数型
.局部变量
计数器,
整数型
数字集
=
分割文本
(编辑框1.内容,
“
”,
)
成员数
=
取数组成员数
(数字集)
.计次循环首
(成员数,
计数器)
处理事件
()
.如果真
(待检测数
=
数字集
[计数器])
返回
(假)
.如果真结束
.计次循环尾
()
返回
(真)
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024