如何对数组中重复的数只输出一次

camulos 2006-06-14 04:43:55
如何对数组中重复的数只输出一次,并输出无重复的数组
比如:数组a[10]={1,2,3,6,5,4,2,3,1,4} , 这个数组中有好几个数是重复的,我希望输出的结果是(1,2,3,6,5,4)或者(2,3,6,5,4,1)等等任何一种组合结果都可
以。请高手帮忙,谢谢。急急!!!
...全文
497 3 打赏 收藏 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
panshiwu 2006-06-28
  • 打赏
  • 举报
回复
楼上正解
杨风79 2006-06-27
  • 打赏
  • 举报
回复
strAry = "1,2,3,6,5,4,2,3,1,4"
aa = Split(strAry,",")
bb = ""
For i = 0 To Ubound(aa)
if instr(bb,aa(i)) = 0 THen
bb = bb & aa(i)
if i < Ubound(aa) Then bb = bb & ","
End if
Next
Response.write(bb)
woolhoo 2006-06-15
  • 打赏
  • 举报
回复
只能准备一个临时数组放置已输出的数字,每输出下一个数字之前都和临时数组中的元素比较一下,有匹配则放弃输出,无匹配就输出并且记入临时数组。

4,008

社区成员

发帖
与我相关
我的任务
社区描述
它是一种微软环境下的轻量级的解释型语言,它使用COM组件、WMI、WSH、ADSI访问系统中的元素,对系统进行管理。
社区管理员
  • vbScript社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧