vb第8章节 数组.pptVIP

8.1.1 一维数组的定义格式： 对于静态一维数组，用如下格式进行定义： 说明符 数组名(下标) [As 类型] 说明： （1）“数组名”的命名遵守标识符规则。 （2）“下标” 一般形式为“[下界 to] 上界”。上界、下界必须为常整数，并且下界应该小于上界。如果缺省“下界” ，下界默认为0。 (4) 要注意区分“元素个数”和“可以使用的最大下标值”。 （6）在同一个过程中，数组名不能与变量名同名。 （7）可以通过类型说明符来指定数组的类型。 例如：Dim a%(2 To 5)，b!(5),C#(5) 8.2.2 一维数组的引用 对数组元素的引用的表示形式为： 数组名(下标) 说明： (1)下标可以是整型的常量、变量、表达式。 例8.1 对输入的10个整数按每行2个元素的格式输出。 Option Base 1 Private Sub Command1_Click() Dim a%(10), i% For i = 1 To 10 例8.2 编写程序，把输入的10个整数按逆序输出。 Private Sub Command1_Click() Dim a(10)%, i% Print 输入的数据为 For i = 1 To 10 a(i) = Val（InputBox(“请输入一个整型数”)） Print a(i)； 8.2.3 一维数组的应用举例： 例8.3 从键盘输入100人的考试成绩，统计并输出高于平均成绩的人数。 分析：该问题可分三部分处理： 1) 从键盘上输入100个人的成绩，存入一维数组； 2）求平均分； 3）把这100个分数逐一和平均成绩进行比较，若高于平均分，则累计个数。 程序如下： Private Sub Command1_Click() Dim score!(1 To 100), aver!, overn%，i% aver = 0：overn=0 aver = aver / 100 print “平均分为：”；aver print “高于平均分的人数为：”；overn End Sub 例8.4 随机产生10个两位整数，找出其中最大值、最小值。 分析：该问题可以分为两部分处理： 1) 产生10个随机整数，并保存到一维数组中； 2) 对这10个整数求最大、最小值。 例8.5 输出斐波那契数列的前20个数,并按每行5个数的格式输出。 分析：使用数组来解决。 定义数组Fib: Fib(1)=1 Fib(2)=1 Fib(n)=Fib(n-1)+Fib(n-2)(n=3) 输出斐波那契数列的前20个数,并按每行5个数的格式输出。 源程序如下： LBound函数：返回数组指定“维”的下界值； UBound函数：返回数组指定“维”的上界值。 其格式为： LBound(数组名[，维]) UBound(数组名[，维]) 8.2.2 二维数组的引用 对数组元素的引用的表示形式为： 数组名(下标1，下标2) 说明： (1)下标1、下标2可以整型的常量、变量、表达式。 统计二维数组（m行n列）各行元素的和， 核心代码如下： 例8.6 用二维数组输出如图所示的数字方阵。 源程序如下： 例8.7 定义一个3×3的二维数组T，数组元素值又用户从键盘输入，按矩阵形式输出T，并分别计算仿真两条对角线上的元素之和。（P156） 练习： 编写程序，在窗体中输出杨辉三角形的前6行。 例8.5 输出斐波那契数列的前n项,并按每行5个数的格式输出。 练习： 编写程序，在窗体中输出杨辉三角形的前n行。 作业： 1. P165习题8：一、二 2. P166 编程题5、7 矩阵、动态数组 3. P167 数组及基本操作（1） 一维数组统计 4. 思考题： P166 编程题4（1）；二维数组统计 P168 动态数组应用（2）