如何统计出数组中相同数字的个数?专家帮我看看这段代码怎么改

brentylw 2008-04-16 02:18:35
<%
dim a(6)
a(0)=1
a(1)=3
a(2)=6
a(3)=3
a(4)=5
a(5)=2
counter=1
for k=0 to ubound(a)-1
for i=0 to Ubound(a)-1
for j=0 to Ubound(a)-1
if strcomp(a(i),a(j))=-1 then
tmp=a(i)
a(i)=a(j)
a(j)=tmp
end if
next
next
response.write a(i)&"  <font color='red'>"
response.write counter
response.write "</font><br>"
next
%>
...全文
41 点赞 收藏 1
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
EexeNet 2008-04-16
有点意思,先排序一下再处理应会好些
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2008-04-16 02:18
社区公告
暂无公告