数组次数统计

Question

问题阐述：
 现有数组（示范，数组很多）                                （1,2,3,4,5）
                                                           （1,2,3,4,5）
                                                           （2,3,4,1,5）
                                                           （1,2,3,4,5）
                                                           （2,3,4,1,5）
                                                           （2,3,5,1,4）
                                                           （1,3,4,2,5）
如何编写程序得出个数组出现的次数？

Answer 1

放数据库里 A1 A2 A3 A4 A5 分开放
 然后CONT(*)

Answer 2

sub command1_click
dim rs as new adodb.recordset
dim s as string
dim n as long
rs.fields.append "FldA",202,50
rs.openrs.addnew
rs(0)="数组1"
rs.addnew
rs(0)="数组2"
rs.addnew
rs(0)="数组3"
...........rs.sort="FldA"
rs.movefirst
while not re.eof
if s<>rs(0) then
  print s,,"出现" & cstr(n) &"次"
  n=1
  s=rs(0)
else
 n=n+1
end if
.movenext
wend
print  s,,"出现" & cstr(n) &"次"end sub

Answer 3

放入数据库，然后select count(*), first(arraycontent) from table group by arraycontent

Answer 4

换一个思路，用 ListBox 控件。将数组放入 ListBox 之前，用 API 函数查询数组是否存在于控件中。如果不存在，添加记录，并将该记录的 ItemData 写为 1；如果已存在，将该记录的 ItemData 加 1。最后逐项读取 ItemData。