算法问题
现有一数组ARRAY(100),里面有重复的值,怎样才能找出它们不同的值的个数呢?(用VBS写吧)
谢谢大家
问题点数：20、回复次数：3Top
1 楼Tal（Tal）回复于 2005-08-03 22:51:03 得分 0
ARRAY(100)是什么类型的啊Top
2 楼zhjian6（明年今日，让我们继续一起欢笑吧！）回复于 2005-08-03 23:53:42 得分 10
ASP下面的，运行通过！
sub op(n)
j=0
b=a(0)
for i=1 to n
if b<>a(i) then
a(j)=a(i) '重新赋值给数值，j为新数组的下标
j=j+1
end if
next
Response.Write b&"<br>" '得到不同的值，并输出
if j=0 then '数组里的值，已经全部比对完毕
Response.Write "结束"
else 'j<>0，再次比对，直到j=0为止
call op(j)
end if
end sub
a=array(1,2,7,6,2,3,3,5,6,7,8,9,9,9)
call op(13)Top
3 楼huzanqiang8（成长中的鱼儿）回复于 2005-08-04 00:05:09 得分 10
http://community.csdn.net/Expert/topic/4177/4177970.xml?temp=.5365412
这里你自己去看看吧,答案在最后面。Top
