VB语言数组专题讲解模版课件.ppt

第5章 数 组 例5.2 Fibonacci数列问题 其中第n项的计算公式为： Fib(n)=Fib(n-1)+Fib(n-2) 从上述过程可以看到：N个数要比较N-1趟，而在第i趟比较中，要进行N-i次两两比较。 5.3 动态数组 请大家考虑： 如果首先要通过用户界面输入数组长度，然后再用数组保存数据，应该如何定义数组呢？ 例5.4 设定一个5行5列的矩阵，首先给这个矩阵赋值，其值为对应的行坐标和列坐标之和，然后在窗体上以五行五列的方式输出。 数组定义： Dim a(1 To 5, 1 To 5) As Integer For i = 1 To 5 For j = 1 To 5 a(i, j) = i + j Next j Next i 赋值： 输出： For i = 1 To 5 For j = 1 To 5 Print a(i, j); Next j Print ‘作用是什么？ Next i 3. 二维数组的应用 演示 3. 二维数组的应用 请大家考虑： 如果声明一个 5行5列的矩阵，其中元素由计算机随机生成的小于100的整数。求 （1）主对角线上元素之和 （2）主对角线上元素之积 （3）方阵中最大元素和最小元素及其对应的下标 例如：（动态数组示例） 动态数组：指在声明数组时未给出数组的大小(省略括号中的下标)；当要使用它时，随时用ReDim语句重新指出数组大小；但不能改变数组的类型。 创建动态数组的过程 创建动态数组的步骤如下： ⑴ Public、Dim或Static语句声明一个空维数组。 格式：Dim 数组名() As 数据类型 可以省略 ⑵ 在过程中用ReDim语句分配实际的元素个数 （维数和每维下标范围）。 形式: ReDim 数组名(下标1[，下标2…]) [As 类型] Sub Form_Load( ) Dim sArray( ) As Single … ReDim sArray(4，8) … End Sub 说明： (1) Dim、Private、Public变量声明语句是说明性语句，可出现在过 程内或通用声明段；ReDim语句是执行语句，只能出现在过程内。 (2) ReDim语句可以改变数组的维数、上界和下界，但是，不能改变数组的类型。同时数组的维数只能改变一次，由第一次出现的Redim语句定义的维数来决定 。 (3)在过程中可多次使用ReDim来改变数组的大小，每次使用ReDim语句都会使原来数组中的值丢失，可以在ReDim语句后加Preserve参数用来保留数组中的数据，但使用Preserve只能改变最后一维的大小，前面几维大小不能改变。 例如： Dim aa( ) As Integer ? ? ? ? ? Redim aa(2,3,4) ? ? ? ? ? Redim Preserve aa(2,3,7) Dim MyArray() As Interger ? ? ? ? ? Redim MyArray(10) ? ? ? ? ? Redim Preserve MyArray(15) (4) ReDim中的下标可以是常量，也可以是有了确定值的变量。 Private Sub Command1_Click() Dim a() As Integer Dim sum As Integer Dim n As Integer Dim p As String n = Val(Text1.Text) ReDim a(1 To n) For i = 1 To n a(i) = i Next i p = For i = 1 To n - 1 p = p i + sum = sum + a(