文档介绍：Visual Basic 程序设计
任务5 数组
本章学****目标
b(i);
If i Mod 5 = 0 Then Print
Next i
End Sub
由键盘输入10个数，再逆序输出。
例 5-2
Private Sub Command1_Click()
Dim a(10) As Integer, i%
Print "输入的数据为"
For i = 1 To 10
a(i) = InputBox("请输入第"& i &"个数")
Print a(i),
Next i
End Sub
Private Sub Command2_Click()
Dim a(10) As Integer, i%
Print
Print "逆序输出为"
For i = 10 To 1 step -1
Print a(i),
Next i
End Sub
由键盘上输入40人的考试成绩，输出高于平均成绩的分数。
例 5-3
分析：该问题需处理三部分，一输入40个人的成绩；二求平均分；三把这40个分数逐一和平均成绩进行比较，若高于平均成绩，则输出。
程序代码如下：
Private Sub Command1_Click()
Dim score(40) As Single, aver!, i%
aver = 0
For i = 1 To 40
score(i) = InputBox("请输入成绩")
aver = aver + score(i)
Next i
aver = aver / 40
For i = 1 To 40
If score(i) > aver Then Print score(i)
Next i
End Sub
定义一个可存放不同类型数据的一维数组并输出。
例 5-4
Option Base 1
Private Sub Command1_Click()
Dim abc(4)
abc(1)=date
abc(2)="你的考试得了"
abc(3)=100
abc(4)="分"
Print
For i=1 To 4
Print abc(i)
Next i
End Sub
二维数组的定义和引用
Dim 数组名(下标1，下标2) [As 类型名称]
说明：
（1）两个下标形式为：[下标下界] To 上界，如果下标下界省略，则下标下界默认为0。如果之前用Option Base 1 说明，则下标下界默认值为1。
（2）二维数组可以形象地用平面的二维表格来表示，表格的行数和列数就是数组地第一个下标和第二个下标地取值个数，同一行上的元素，第一个下标是相同的，同一列上的元素，第二个下标是相同的。
（3）二维数组的元素个数为（上界1-下界1＋1）×（上界2-下界2＋1）
引用形式：数组名（下标1，下标2）
说明****惯上将下标1为行下标，下标2为列下标。
例如：a(1,2)为数组第二行第三列的元素。
二维数组的下标范围由下标的下界和上界来确定，下界和上界可以是任何整型常量或常量表达式。
如：Dim aa(2，3) as integer
aa(0,0)
aa(0,1)
aa(0,2)
aa(0,3)
aa(1,0)
aa(1,1)
aa(1,2)
aa(1,3)
aa(2,0)
aa(2,1)
aa(2,2)
aa(2,3)
又如：Dim aa(-1 to 1,-2 to 1)
aa(-1,-2)
aa(-1,-1)
aa(-1,0)
aa(-1,1)
aa(0,-2)
aa(0,-1)
aa(0,0)
aa(0,1)
aa(1,-2)
aa(1,-1)
aa(1,0)
aa(1,1)
可以通过循环语句赋值：
例如：
for i=0 to 2
for j=0 to 3
a(i,j)=int(rnd*100)
next j
next i
LBound函数和UBound函数
格式：
LBound(数组名[，维])
UBound(数组名[，维])
说明：
(1) 数组名是要测试的数组。
(2) LBound函数返回数组的下界