第七章数组49.pptVIP

第七章 数 组;Visual Basic中的数组，按不同的方式可分为以下几类： 按数组的大小（元素个数）是否可以改变来分为：定长数组、动态（可变长）数组。 按元素的数据类型可分为：数值型数组、字符串数组、日期型数组、变体数组等。 按数组的维数可分为：一维数组、二维数组、多维数组。 对象数组：菜单对象数组、控件数组。;7.2 一维数组 7.2.1 一维数组的声明 (无隐式声明) 形式:;说明： 1．数组名的命名规则与变量的命名相同。 2．数组的元素个数：上界-下界+1。 3．缺省下界为0，若希望下标从1开始，可在模块的通用部分使用Option Base语句将设为1。其使用格式是： Option Base 0|1 后面的参数只能取0或1 例如： Option Base 1 将数组声明中缺省下界下标设为1 4．下界和上界不能使用变量，必须是常量，常量可以是直接常量、符号常量，一般是整型常量。 ;5．如果省略As子句，则数组的类型为变体类型。 6．数组中各元素在内存占一片连续的存储空间，一维数组在内存中存放的顺序是下标大小的顺序，如图5-1所示：;7.2.2 一维数组元素的引用 数组必须先定义后使用;7.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. 数组的输出 输出如下图所示的下三角数据;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. 将数组元素倒置;7.2.4 一维数组的应用 一、分类统计 例7.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分的人数。 ; 二、 排序问题 1．选择法排序 算法思想： 1）对有n个数的序列（存放在数组a(n)中），从中选出最小（升序）或最大（降序）的数，与第1个数交换位置； 2）除第1 个数外，其余n-1个数中选最小或最大的数，与第2个数交换位置； 3）依次类推，选择了n-1次后，这个数列已按升序排列。;;For i = 1 To n - 1 p = i For j = i + 1 To n If a(p) a(j) Then p = j Next j temp = a(i) a(i) = a(p) a(p) = temp Next i ;2．冒泡法排序（递增） 算法思想：(将相邻两个数比较，小的调到前头) 1）有n个数（存放在数组a(n)中），第一趟将每相邻两个数比较，小的调到前头，经n-1次两两相邻比较后，最大的数已“沉底”，放在最后一个位置，小数上升“浮起”； 2）第二趟对余下的n-1个数（最大的数已“沉底”）按上法比较，经n-2次两两相邻比较后得次大的数； 3）依次类推，n个数共进行n-1趟比较，在第j 趟中要进行n-j次两两比较。;;For i = 1 To n - 1 For j = 1 To n-i If a(j) a(j+1) Then temp=a(j) a(j)=a(j+1) a(j+1)=temp End if Next j Next i ; 例7.3 用随机函数产生50个[10，100 ）的随机整数，并按照由小到大的顺序打印出来。;7.3 二维数组及多维数组 ;7.3.2 二维数组的引用 ;