第
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～10
6.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)AsInteger
DimiAsInteger,totalAsSingle,averageAsSingle
Show
Fori=1To5输入成绩
d(i)=Val(InputBox(请输入第Str(i)_
个学生成绩,输入成绩))
Nexti
total=0
Fori=1To5计算总分和平均分
total=total+d(i)
Nexti
average=total/5
Print总分：total
Print平均分：Format(average,##.0)
EndSub;(1)创建应用程序用户界面和设置对象属性
;功效要求：经过Array函数输入10个分数；单击“查找”按钮(Command2)后，开始查找最高分和最低分，找到后显示在标签Label1上
OptionBase1