数组和自定义过程或函数.ppt

本讲要点 第5章 数组及应用 第6章 过程 4. 参数传递 * VB语言深入知识 数组：静态数组、动态数组和控件数组； 过程：通用过程和函数过程； 编程举例。 ★ 定长（静态/固定）数组的定义形式： Dim 数组名（[下界 To]上界）[As 数据类型] Dim 数组名（[下界1 To]上界1，…，[下界n To]上界n）[As 数据类型] 注: * 缺省下界为0，可在模块声明部分 用 “ Option Base n” 来修改下界n。 * 数据作用域有三种：Public, Private和Dim. ★ 可调（可变/动态）数组的建立与使用： * 用Public、Private或Dim声明一个数组，如：Dim 数组名( ) [As 数据类型] * 在需要用该数组的地方用ReDim语句给出实际数组的大小。 如，ReDim 数组名（8，8） * 为在改变数组大小的同时不丢失其中的数据，可使用Preserve关键字改变最 后一维的大小。 如，ReDim Preserve 数组名(8, NewValue) ★ 控件数组 建立方法： 在窗体上画出某控件，可进行属性设置 Dim a(10) As Integer Dim b(1 To 10) As Integer A(10)=100 Dim abc(0 To 3, 0 To 5) As Single 或 Dim abc(3,5) As single Dim a( ) As Integer …… ReDim a(3,2) …… ReDim Preserve a(3,5) 1. 一维数组的定义及应用 Dim a(5) As Integer 定义有6个整型数据元素组成的数组。 其中下标下届默认为0，如果希望下标下届从1开始，可以在窗体/模块级设置Option Base 1。 注意：1）数组不能与同作用域的其他变量重名 2）引用数组元素时下标值应在声明范围内，不能超界 3）引用数组元素时，数组名、数据类型和维数必须与数组声明一致。 例7-1：对输入的20个整数按每行5个元素输出。 例7-2：编写程序，把输入的10整数按逆序输出。 例7-3：从键盘上输入40人的考试成绩，输出平均成绩。 例7-4：随机产生10个两位整数，找出其中最大值。 例7-5：从键盘上输入10个整数，把这些数按升序排列。 例7-6：输出Fibonacci数列：1，1，2，3，5，8，……的前20个数，即 Fib（1）=1，Fib（2）=1，Fib（n）=Fib（n-1）+Fib（n-2） 给数组元素赋值： （1）利用循环结构 （2）利用Array函数 2. 二维数组的定义及应用 有两个下标的数组称为二维数组。 例如：第m个学生的第n门课程的成绩可以用cj（m , n）来表示。 例如：Dim T（2，3）As Interger ：3行4列，占据12（3×4）个整型变量的空间。 注意：1）用Option Base 1改变下标的默认下届 2）引用数组元素时下标值应在声明范围内，不能超界 3）引用数组元素时，数组名、数据类型和维数必须与数组声明一致。 例7-7：用二维数组输出数字方阵。 例7-8：打印4名同学的VB、数学、政治3门课程的考试成绩，并计算出每个同学的平均成绩。 例7-9：编写2 ×3的矩形转置的程序。 3. 可调（动态）数组的定义及应用 动态数组提供了一种灵活有效的管理内存机制，在程序运行期间能够根据用户的需要随时改变数组的大小。 定义分两步：1）Dim 数组名（）[As 数据类型] 2）Redim 数组名（下标1上界，下标2上界，……） 注意：用Redim语句来重新定义数组，能改变数组的维数及上、下界，但不能改变数组的数据类型。每次使用Redim都会使原来数组中的值丢失。 例7-10（修改例7-6）：利用可调数组输出Fibonacci数列：1，1，2，3，5，8，……的前n项，其中Fib（1）=1，Fib（2）=1，Fib（n）=Fib（n-1）+Fib（n-2）。 例7-10-2（修改例7-8）：打印m个同学的n门考试成绩，并计算出每个同学的平均成绩。 4. 控件数组的定义及应用 控件数组由一组相同类型的控件组成，共用同一个控件名称，具有相似的属性设置，触发同一事件过程。 控件数组中各个控件相当于普通数组中的各个元素，同一控件数组中各个控件的Index属性相当于普通数组中的下标。例如：一个包含3个命令按钮的控件数组Comma