统计出表中或数组中每个重复项出现的次数

<%
startime=timer()
%>

<%
dim arr : arr=Array(1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2)
set dic=createobject("scripting.dictionary")
for i=0 to ubound(arr)
temp=arr(i)
if len(dic("dic_"&temp))=0 then
dic("dic_"&temp)=1
else
dic("dic_"&temp)=dic("dic_"&temp)+1
end if
next
i=0
zero=0
for each xxx in dic
if i=0 then
numhign=dic(xxx)
num=xxx
else
if dic(xxx)>numhign then
numhign=dic(xxx)
num=xxx
zero=0
elseif dic(xxx)=numhign then
zero=1
end if
end if
i=i+1
next
if zero=1 then
alert(0)
else
response.write "出现频率最大的数是：" & replace(num,"dic_","")
end if
%>

<%
endtime=timer()
response.write "
执行时间："&FormatNumber((endtime-startime)*1000,3)&"毫秒"
%>

[VISUAL BASIC]
Private Sub Command1_Click()
    Dim col As New Collection
    Dim s() As String
    Dim i As Long
    Dim j As Long
    Dim itemStr  As String
    Dim str As String
    
    s = Split(Text1.Text, ",")
    For i = 0 To UBound(s)
        j = ExistCol(col, s(i))
        If j > 0 Then
            col.Remove (s(i))
        End If
        col.Add (j + 1) & "---" & s(i), s(i)
    Next
    j = 0
    For i = 0 To col.Count
        If Val(col.Item(s(i))) > j Then
            j = Val(col.Item(s(i)))
            itemStr = col.Item(s(i))
            str = str & vbCrLf & itemStr & ":" & j
        End If
    Next
    MsgBox str & vbCrLf & "max times:" & itemStr
End Sub

Function ExistCol(col As Collection, key As String)
On Error GoTo FuncErr
    ExistCol = Val(col.Item(key))
    Exit Function
FuncErr:
    ExistCol = 0
End Function

$time_start=explode(" ",microtime());
$a=array(1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2,1,5,2,3,4,5,6,3,7,9,8,4,3,2,5,2,3,4,5,6,3,7,9,8,4,3,2);


$c=array_count_values($a);
$m=0;
for($i=0;$i  if($m<$c[$i]){$m=$c[$i];$ipos=$i;}
}
$key=array_search($c[$ipos],$c);
print("出现频率最高的数是:".$key."  出现次数:".$c[$ipos]);
$time_end=explode(" ",microtime());
$t=$time_end[0]+$time_end[1]-$time_start[0]-$time_start[1];
print("

运行时间：".$t."秒");

using System;
using System.Collections;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Web;
using System.Web.SessionState;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.HtmlControls;

namespace suanfa
{
///

/// FindMaxTimes 的摘要说明。
///

public class FindMaxTimes : System.Web.UI.Page
{
private const int max = 16;
private int[] arrNumbers = {1,3,2,2,3,2,2,1,3,2,2,4,5,6,7,8};
private int[,] arrAppearTimes = new int[max,2];
private int curBound = 0;
private int maxBound = 0;
private void Page_Load(object sender, System.EventArgs e)
{
SetAppearTime();
Response.Write("每个数字出现次数分别是：

---

");
ListAppearTimes();
Response.Write("出现次数最多的数字是：

---

");
Response.Write(arrAppearTimes[maxBound,0] + "    " + arrAppearTimes[maxBound,1]);

}
private void SetAppearTime()
{
for(int i=0; i{
int appearBound = IndexInAppearTimes(arrNumbers[i]);
if(appearBound != -1)
{
arrAppearTimes[appearBound,1] += 1;
}
else
{
arrAppearTimes[curBound,0] = arrNumbers[i];
arrAppearTimes[curBound,1]  = 1;
curBound++;
}
}
}
private void ListAppearTimes()
{
for(int i=0; i{
Response.Write(arrAppearTimes[i,0] + "    " + arrAppearTimes[i,1] + "
");
if(arrAppearTimes[i,1] > arrAppearTimes[maxBound,1])
{
maxBound = i;
}
}
}
private int IndexInAppearTimes(int num)
{
for(int i=0; i{
if(arrAppearTimes[i,0] == num)
{
return i;
}
}
return -1;
}


#region Web 窗体设计器生成的代码
override protected void OnInit(EventArgs e)
{
//
// CODEGEN: 该调用是 ASP.NET Web 窗体设计器所必需的。
//
InitializeComponent();
base.OnInit(e);
}

///

/// 设计器支持所需的方法 - 不要使用代码编辑器修改
/// 此方法的内容。
///

private void InitializeComponent()
{    
this.Load += new System.EventHandler(this.Page_Load);

}
#endregion
}
}