求“出现第一个数到出现第二个数间的间隔数和其最大的间隔数”

VBScript好像没有ArrayList对象（动态集合对象），如果用ArrayList两个循环就可以搞定。

自己顶一下！

using System;
using System.Collections;
using
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 TempApplication91114
{
    /// <summary>
    /// WebForm1 的摘要说明。
    /// </summary>
    public class WebForm1 : System.Web.UI.Page
    {
        private void Page_Load(object sender, System.EventArgs e)
        {
            // 在此处放置用户代码以初始化页面
            ArrayList Arl=new ArrayList();//ArrayList对象
            string[][] Ary=new string[30][];//二维数组
            //生成数据
            for(int r=0;r<Ary.Length;r++)
            {
                Ary[r]=new string[2];
                //随机生成高
                switch(r)
                {
                    case 1:
                        Ary[r][1]="高";
                    break;
                    case 4:
                        Ary[r][1]="高";
                    break;
                    case 6:
                        Ary[r][1]="高";
                    break;
                    case 10:
                        Ary[r][1]="高";
                    break;
                    case 12:
                        Ary[r][1]="高";
                    break;
                    case 13:
                        Ary[r][1]="高";
                    break;
                    case 20:
                        Ary[r][1]="高";
                    break;
                    case 23:
                        Ary[r][1]="高";
                    break;
                    case 25:
                        Ary[r][1]="高";
                    break;
                    case 28:
                        Ary[r][1]="高";
                    break;
                    case 30:
                        Ary[r][1]="高";
                    break;               
                    default:
                        Ary[r][1]="";
                    break;               
                }
                Ary[r][0]=Convert.ToString(r);
            }
            //显示生成的数据
            Response.Write("<TABLE>");
            for(int vr=0;vr<Ary.Length;vr++)
            {
                Response.Write("<tr>");
                for(int vc=0;vc<Ary[vr].Length;vc++)
                {
                    Response.Write("<td>"+Ary[vr][vc]+"&nbsp;&nbsp;&nbsp;</td>");
                }
                Response.Write("</tr>");
            }
            Response.Write("</table>");
            int j=0;
            for(int cr=0;cr<Ary.Length;cr++)
            {
                if(Ary[cr][1]=="高")
                {
                    Arl.Add(j-1);
                    j=0;
                }
                j++;
            }
            Response.Write("排序前===========<BR>");
            for(int t=0;t<Arl.Count;t++)
            {
                Response.Write(Arl[t]+"<BR>");
            }
            Response.Write("==================<BR>");

            //冒泡排序法
            //第一个数跟最后一个比较大小后替换
            for(int i=0;i<Arl.Count;i++)
            {
                for(j=Arl.Count-1;j>i;j--)
                {
                    if(int.Parse(Arl[j].ToString())<int.Parse(Arl[i].ToString()))
                    {
                        int temp=int.Parse(Arl[j].ToString());
                        Arl[j]=Arl[i];
                        Arl[i]=Convert.ToString(temp);
                    }
                }
            }
            Response.Write("=======排序后<BR>");
            for(int t=0;t<Arl.Count;t++)
            {
                Response.Write(Arl[t]+"<BR>");
            }
        }

        #region Web 窗体设计器生成的代码
        override protected void OnInit(EventArgs e)
        {
            //
            // CODEGEN: 该调用是 Web 窗体设计器所必需的。
            //
            InitializeComponent();
            base.OnInit(e);
        }
        
        /// <summary>
        /// 设计器支持所需的方法 - 不要使用代码编辑器修改
        /// 此方法的内容。
        /// </summary>
        private void InitializeComponent()
        {   
            this.Load += new System.EventHandler(this.Page_Load);

        }
        #endregion
    }
}

老师：
CStr(num) 可以获取最大间隔数；
CStr(i)  可以获取倒数第一个“高”到最后一条信息的间隔数
最大间隔数、倒数第一个“高”到最后一条信息的间隔数都实现了，现在就要只需实现倒数第一个“高”到倒数第二个“高”的间隔数了，感谢老师再看看怎么修改？
<%
dim isgao
i = 0
num = 0
isgao = true
do while not rs.eof
    if rs("类型") = "高" then
        isgao = false
    end if
    if isgao then
        i = i + 1
    else
        if i > num then
            num = i
        end if
        i = 0
        isgao = true
    end if
    rs.movenext
loop
response.write "最大间隔为" & CStr(num)
response.write "倒数第一个高到最后一条信息的间隔为" & CStr(i)
response.write "倒数第一个高到倒数第二个高的间隔为" & ......
%>

是呀！但倒数第二个元素我不知道怎么取！尝试了很多，但都不成功！

数据是存在数据库里的，表名是SG；字段有四：ID  GAO  ZHONG  AI

是的！

太感谢了老师！感谢！！