林卓然VB教程课件数组第6章教案.ppt

第6章利用数组可以有效地存储和处理成批数据本章主要内容处理成批的数据时，必须使用数组来处理。例如，表示100个学生的成绩，采用简单变量来表示：s1，s2，s3，…s99，s100采用数组来表示：t(0),t(1),t(2),…t(98),t(99)t(k)(k=0,1,2,…99)为数组元素(或称下标变量)，它表示第k个学生的成绩,k称为下标变量的下标(默认情况下，下标从0开始)由三行四列组成的二维数组y，其12个下标变量可表示为y(0,0)y(0,1)y(0,2)y(0,3)y(1,0)y(1,1)y(1,2)y(1,3)y(2,0)y(2,1)y(2,2)y(2,3)只要有规则地改变下标值，就可以很方便地使下标变量(如t(k))成为所需要的具体下标变量6.2.1数组声明语句使用数组之前，一般需要定义数组，以便让系统分配相应的存储单元。格式为：Dim数组名([下界1to]上界1[,[下界2to]上界2…])[As数据类型]功能：指定数组的维数、各维的上下界和数据类型举例：DimSum(10)AsLong‘下标号从0～10，共11个元素DimAry(1to20)AsInteger‘下标号从1～20，共20个元素Dimd(1to5,1to10)AsDouble‘定义二维数组还可以使用Public、Static、Private等语句来声明数组设定下界的方法OptionBase1‘设定下界为1DimData(10)AsSingle‘下标号从1～106.2.2Array函数使用Array函数可以为数组元素赋值示例DimDAsVariant‘定义数组名(变体类型)D=Array(1,2,3,4)执行结果：1→D(0)，2→D(1),3→D(2),4→D(3)例6.1输入某小组5个同学的成绩，计算总分和平均分(取小数后一位)本例利用InputBox函数来输入成绩，输入完毕后经过计算，再采用Print直接在窗体上输出结果PrivateSubForm_Load()Dimd(5)AsIntegerDimiAsInteger,totalAsSingle,averageAsSingleShowFori=1To5'输入成绩d(i)=Val(InputBox("请输入第"&Str(i)&_"个学生的成绩","输入成绩"))Nextitotal=0Fori=1To5'计算总分和平均分total=total+d(i)Nextiaverage=total/5Print"总分："&totalPrint"平均分："&Format(average,"##.0")EndSub(1)创建应用程序的用户界面和设置对象属性功能要求：通过Array函数输入10个分数；单击“查找”按钮(Command2)后，开始查找最高分和最低分，找到后显示在标签Label1上OptionBase1DimscoreAsVariantPrivateSubForm_Load()Label1.Caption="单击“查找”按钮开始查找最高分和最低分"score=Array(89,96,81,67,79,90,63,85,95,83)EndSubPrivateSubCommand1_Click()DimmaxAsInteger,minAsIntegermax=score(1)'设定初值min=score(1)Fori=2To10‘与后面的数据逐一比较Ifmax<score(i)Then'找最高分max=score(i)EndIfIfmin>score(i)Then'找最低分min=score(i)EndIfNexti'Chr(13)起换行作用Label1.Caption="最高分："+Str(max)+_Chr(13)+"最低分："+Str(min)EndSub例6.3分别计算5个学生和3门课的平均分ShowPrint"学生","平均分"PrintString(20,"-")'输出20个减号“-”Forr=1To5s=0'累加前清0Forc=1To3'累加同一行数据s=s+a(r,c)NextcPrintr,Format(s/3,"##.0")NextrPrintPrint"课程","平均分"PrintString(20,"-")Forc=1To3s=0Forr=1To5'累加同一列数据s=s+a(r,c)NextrPrintk(c),Format(s/5,"##.0")NextcEndSub程序运行结果1.执行下列程序段后，输出的结果是______。Dima(1To3,1To3)Forj=1To3Fork=1To3a(j,k)=jPrinta(j,k)；NextkPrintNextjA.321B.012C.123D.1112321012122221232103213331.执行下列程序