7,762
社区成员
发帖
与我相关
我的任务
分享一个简单问题？
一个数组变量，如何计算出其中有多少个数？重复的不算
例如：算出的数应该为6
Dim n(7) As Integer
n(1) = 1
n(2) = 2
n(3) = 3
n(4) = 4
n(5) = 5
n(6) = 6
n(7) = 1
例如：算出的数应该为6
Dim n(7) As Integer
n(1) = 1
n(2) = 2
n(3) = 3
n(4) = 4
n(5) = 5
n(6) = 6
n(7) = 1
...全文
请发表友善的回复…
发表回复
rocky2 2003-09-12
- 打赏
- 举报
不好意思刚才错了
strtemp=";"
for i=1 to 7
if instr(strtemp,";"& in(i) &";",0,vbtext) =0 then
strtemp=strtemp & n(i) &";"
k=k+1
endif
next
strtemp=";"
for i=1 to 7
if instr(strtemp,";"& in(i) &";",0,vbtext) =0 then
strtemp=strtemp & n(i) &";"
k=k+1
endif
next
rocky2 2003-09-12
- 打赏
- 举报
可以先将加到记录集中，然后进行排序，取出。
或者
strtemp=";"
for i=1 to 7
if instr(strtemp,in(i),0,vbtext) =0 then
strtemp=strtemp & n(i)
k=k+1
endif
next
或者
strtemp=";"
for i=1 to 7
if instr(strtemp,in(i),0,vbtext) =0 then
strtemp=strtemp & n(i)
k=k+1
endif
next
kmzs 2003-09-12
- 打赏
- 举报
一个头大的循环，要挨个比较还要计数，用递归试试看。。。
strongfisher 2003-09-12
- 打赏
- 举报
对不起我写错了
hztgames 2003-09-12
- 打赏
- 举报
strongfisher(Haiwolf) 你给的算法好象有点问题也
n(1) = 1
n(2) = 2
n(3) = 3
n(4) = 4
n(5) = 5
n(6) = 1
n(7) = 1时算出的个数为4个
n(1) = 1
n(2) = 2
n(3) = 3
n(4) = 4
n(5) = 5
n(6) = 1
n(7) = 1时算出的个数为4个
二师兄的老公 2003-09-12
- 打赏
- 举报
如果要考虑算法，这个问题一点也不简单。
taosihai1only 2003-09-12
- 打赏
- 举报
同上
strongfisher 2003-09-12
- 打赏
- 举报
最麻烦的是每一个和所有的比较
for i=1 to 7
for ii=1 to 7
if i<>ii then
if n(i)<>n(ii) then
k=k+1
endif
endif
next
next
for i=1 to 7
for ii=1 to 7
if i<>ii then
if n(i)<>n(ii) then
k=k+1
endif
endif
next
next
“秒杀”是什么？简单来说即使在同时间有大量请求抢购买同一商品并交易，因此会涉及大量并发写和并发读。... 此外你学完这套课程可以利用“秒杀”这个系统，了解怎样打造一个高并发、高可用、高性能的系统架构。
