VB教案第6章81.pptVIP

第六章 数组 6.1 数组的概念 （重点） 6.2 固定大小的数组（重点） 6.3 动态数组 6.4 控件数组 6.5 for each …next 语句 Dim s(1 to 8) as string 有8 个元素，从s(1)~s(8) option base 1 dim x%(3) 有3 个元素，从x(1)~x(3) 1、 比较法排序(N个数据升序) （1）先假设第1个数据最小，依次同第2、第3、…、第N个数据进行比较，一旦第1个数据大于其它值则交换。这样，第1轮比较完毕，找出了最小数据作为第1个数据。 （2）以第2个数据为最小数据，依次同第3、第4、…、第N个数据进行比较，若第2个数据大于其它值则交换。这样，第2轮交换完毕，则找出第二小的数据作为第2个数据。 （3）依此类推，第N-1轮比较将找出第N-1小的数据，剩下的一个数据就是最大数，排列在最后。6个数据为例： 以上语句所声明的数组fs为（ ）维数组，第一维下标从（）到（），第二维下标从（）到（），共有（ ）元素。 (3) 输出二维数组元素 For i = 1 To m For j = 1 To n Print a(i, j); ‘内循环紧凑输出一行元素 Next Print ’换行 Next 3、二维数组的应用 例：p142 6.4 建立并输出一个10×10的矩阵，该矩阵两条对角线元素为1，其余元素均为0 补充其它语句 1、for each …..next语句 p127 作用:用于输出或处理数组各元素 格式：for each x in 数组 next Private Sub Command1_Click() Dim aa,sum as integer Sum=0 aa=array(3,1,5,7,8,11,13,15,17,19) Fot I=1 to 9 if aa(I)/3=aa(I)\3 then sum=sum+aa(I) End if Next Print sum End sub 运行程序后，输出结果为： A）15 B）16 C）27 D）18 i=j i+j=11 Dim a(1 to 10, 1 to 10) As Integer For i = 1 To 10 For j = 1 To 10 Next j Next I For i = 1 To 10 For j = 1 To 10 Print a(i, j); Next j Print Next i 给二维数组元素赋值用双重循环 输出二维数组元素 If i + j = 11 Or i = j Then Else a(i, j) = 0 End If 判断后赋值 a(i, j) = 1 P142_6.3 For i = 1 To 3 For j = 1 To 3 If 条件 Then Print a(; i; ,; j; )=; a(i, j), 第; i; 行; 第; j; 列 End If Next j Next i 步骤： 1、在通用段声明数组 2、输入矩阵各元素的值并显示矩阵 3、求两对角线元素的数 4、输出第1行元素和第4列元素的和 5、第1行与第3行交换 第六节 P139_6.3 For i = 1 To 3 For j = 1 To 3 If 条件 Then Print a(; i; ,; j; )=; a(i, j), 第; i; 行; 第; j; 列 End If Next j Next i 步骤： 1、在通用段声明数组 2、输入矩阵各元素的值并显示矩阵 3、求两对角线元素的和及全部元素的平均值并输出结果 4、输出高于平均值的元素及行列 第六节 For I=1 to 50 If cjb(I,4)=85 then n=n+1 Next i For I=1 to 50 If Cjb(I,2)90 then n=n+1 Next i 例：定义数组来存放园林01班 50 个 同学的VB的各类成绩 88 ： ： 89 92 ： ： 90 85 ： ： 90 89 ： ： 87 李娜 ： ： 莫祥宇 期评 期考 上机 平时 姓名