VB 程序设计05-21.pptVIP

第五章 数组(2) 学习目标 多维数组 控件数组 复习:一维数组 将如下数字围成一个首尾相接的环形，找出在这个环上4个连续数，使其和最大；再找出4个，使其和最小。这些数字是：20，1， 8，4，13，6，10，15，2，17，3，19，7，16，8，11，14，9，12，5 作业选讲：数组 教材P92-3: 输入一串字符，统计各字母出现的次数（大小写字母不区分），并将字母出现的个数显示在图片框中，效果如图所示。 作业选讲　 代码 数组：选择题练习 1、用下面语句定义的数组的元素个数是_____ 。 dim A(-3 to 5) as integer A.6 B.7 C.8 D.9 2、用 Dim(1, 3 To 5,-2 to 2)声明的是一个______维数组，元素个数是______ 。 3、下列语句中的_____语句可以用来正确地声明一个动态数组(二级VB题) A. Private A(n) as integer B. Dim A() As Integer C. Dim A(,) as Integer D. Dim A(1 to n) 数组：选择题练习 4、设执行以下程序段时依次输入1、3、5，执行结果为______。 Dim a(4) As Integer, b(4) As Integer For K = 0 To 2 a(K + 1) = Val(InputBox(请输入数据)) b(3 - K) = a(K + 1) Next K Print b(K) A.5 B.3 C.1 D.0 5、程序运行后，单击窗体，则在窗体上显示的是______ Dim a，i％ a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i = 0 To 3 Print a(5 - i); Next A. 4 3 2 1 B. 5 4 3 2 C. 6 5 4 3 D. 7 6 5 4 数组：程序填空练习 利用数组显示如下轮转结果 数组：程序填空练习 将输入值插入一有序递减数列，使之仍然有序。 一维数组总结：排序问题 简单法排序（升序）： 排序问题 选择法排序（升序）: 参见P81－例5.5 多维数组 定义： 如: dim a(1 to 10,1 to 10)，定义了二维数组a，共100个元素：a(1,1), a(1,2), ..., a(10,10) 又如：dim a#(10,10)，注意下标从零开始。 要点： 二维数组之输入/输出：二重循环。 二维数组的输出技巧 例：构造一个9×9的方阵，使主对角线元素为1，其余元素为0。 代码： Private Sub Command1_Click() Dim x%(9,9), i%, j% for i=1 to 9 for j=1 to 9 x(i,j)=iif(i=j, 1, 0) print x(i,j); next j print next i End Sub 二维数组示例：杨辉三角形 编写程序，打印杨辉三角形前10行。（P93－5） 示例：杨辉三角形 代码 示例： Fibonacci数列的前n项 示例： Fibonacci数列的前n项 控件数组 概念： 指具有相同名称的多个类型相同的控件集合。这些控件是以索引(Index属性)的编号不同来区分的，索引值的范围是0～控件个数-1。 举例： 窗体上有3个命令按钮，其名称（即Name属性）均为command1，此时可以通过它们的索引值的不同进行区分： 控件数组添加方法 方法1：通过复制 / 粘贴添加 新建工程，在窗体上画一个按钮 选中并复制(Ctrl+C)，然后粘贴(Ctrl+V) 出现对话框： 此时如果选择“是”，则生成控件数组。 控件数组添加方法 方法2：通过设置控件的名称属性 以按钮数组为例：首先添加3个按钮Command1, Command2, Command3; 选中Command2, 将属性窗口中的Name改变为Command1, 出现同样提示： 单击“是”，可以看到第1个、第2个按钮的属性窗口名称变为Command1(0)和Command1(1)。 对第3个按钮，如法炮制。 控件数组Q＆A Q1：如何判断一组控件是控件数组？ A1：看属性窗口，如若这组控件名称的形式都是 名称(索引值) 之形式，则构成数组。 Q2：标题相同的控件就是控件数组？ A