| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 740 人关注过本帖
标题:请教只保留多个相同元素值中的一个数组算法
只看楼主 加入收藏
ladder49
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2005-4-5
收藏
 问题点数:0 回复次数:2 
请教只保留多个相同元素值中的一个数组算法
请教从一个具有多个相同元素值数组中滤出唯一值组成新的数组.

例:有八个元素的数组.1,2,1,3,1,2,3,2

组成新的数组值:1,2,3每个元素都不相同.
搜索更多相关主题的帖子: 元素 算法 
2005-04-05 11:25
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 

<% Dim a(7), b(), flag Dim i, j a(0) = 1 a(1) = 2 a(2) = 1 a(3) = 3 a(4) = 1 a(5) = 2 a(6) = 3 a(7) = 2

For i = 0 To UBound(a) If i = 0 Then ReDim Preserve b(0) b(0) = a(0) Else flag = False For j = 0 To UBound(b) If a(i) = b(j) Then flag = True Exit For End If Next If flag = False Then ReDim Preserve b(UBound(b) + 1) b(UBound(b)) = a(i) End If End If Next

For i = 0 To UBound(b) 'Debug.Print b(i) Response.Write b(i) Next %>


天津网站建设 http://www./
2005-04-05 11:36
ladder49
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2005-4-5
收藏
得分:0 
巨谢.很感动.
2005-04-05 12:01
快速回复:请教只保留多个相同元素值中的一个数组算法
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.032227 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved