522一维数组元素的引用 使用形式:数组名(下标) 其中:下标可以是整型变量、常量或表达式。 例如:设有下面的数组B(10) As Integer 则下面的语句都是正确的 A(1)=A(2)+B(1)+5取数组元素运算 A(1)=B( 下标使用变量 B(i+1)=A(i+2) 下标使用表达式
5.2.2 一维数组元素的引用 使用形式： 数组名(下标) 其中：下标可以是整型变量、常量或表达式。 例如： 设有下面的数组B(10) As Integer 则下面的语句都是正确的。 A(1)=A(2)+B(1)+5 ' 取数组元素运算 A(i)=B(i) ' 下标使用变量 B(i+1)=A(i+2) ' 下标使用表达式
5.2.3一维数组的基本操作 1.可通过循环给数组元素的初值 For1 1①o10 A数组的每个元素值为1 A(i)=1 Next i 2.数组的输入 For i= 1 To 4 Forj=1 To 5 sc(i,j)= InputBox("'输入sc("&i&","&j&")的值") Next Next I
5.2.3 一维数组的基本操作 1. 可通过循环给数组元素的初值 For i = 1 To 10 'A数组的每个元素值为1 A(i)=1 Next i 2. 数组的输入 For i = 1 To 4 For j = 1 To 5 sc(i, j) = InputBox("输入sc(" &i & "," & j & ") 的值") Next j Next I
3.数组的输出 输出如下图所示的下三角数据 im Sc(5, 5)As s Integer, i%o,J%0 For i=1 To 5 Forj= 1 To i sc(i,j)=i*5+j Print sc(i、N8 For■1 Next j Print’换行 1112 Next I 161718 21222324 62728293
3. 数组的输出 输出如下图所示的下三角数据 Dim sc(5,5) As Integer,i%,j% For i = 1 To 5 For j = 1 To i sc(i, j) = i * 5 + j Print sc(i, j); " "; Next j Print ' 换行 Next I
4.求数组中最大元素及所在下标 Dim Max As Integer, iMax As Integer Max=A(1): iMax=l For i=2 To 10 If A(i)>Max Then Max=A(i) iMax=i End if Next I 交换前 5.将数组元素倒置[24618101315179 For i=1 To 10 2 交换后: t=A(i 975|3|11086|42 A()=A(10-i+1) 图1-3-22数组中个元素交换 A(10-i+1)=t Next I 例5.1
4. 求数组中最大元素及所在下标 Dim Max As Integer,iMax As Integer Max=A(1)：iMax=1 For i = 2 To 10 If A(i)>Max Then Max=A(i) iMax=i End If Next I 5. 将数组元素倒置 For i =1 To 10\2 t=A(i) A(i)=A(10-i+1) A(10-i+1)=t Next I 例5.1
524一维数组的应用 一、分类统计 例52 在例51中如果还要统计09,10~19,20~20,…80~89 90~99分数段及100分的学生人 则可另用数组bn来存各分数段的人数,并用bn(0)存 0-9分的人数,bn(1)存10-19分的人数,…bn()存9099分 的人数,bn(10)存100分的人数
5.2.4 一维数组的应用 一、分类统计 例5.2 在例5.1中如果还要统计0~9，10~19，20~20，….80~89， 90~99分数段及100分的学生人。 则可另用数组bn来存各分数段的人数，并用bn(0)存 0~9分的人数，bn(1)存10~19分的人数，…bn(9)存90~99分 的人数，bn(10)存100分的人数