第六讲VB数组.pptVIP

第六讲 数 组 复习： 目前，我们学了几种循环结构？ 本 讲 主 要 内 容 1. 数组的基本概念 概念: 用于表示一组性质相同的有序的数，并 用一个统一的名字来代替。 数组必须先声明后使用。 数组和数组元素 数组名:一组数用一个统一的名称表示，称数组名 数组元素： 数组中的每一个元素，表示成： 数组名(下标) 说明： 下标：元素在数组中的索引号码；下标的最小取值称为下界，最大取值为上界； 数组元素的使用与简单变量类似； 下标可以是常数、变量、表达式，但值必须是整数。 数组的维数 数组的维数即下标的个数 ? 一维数组: 由一个下标组成。如 A(2),C(6) ? 二维数组: 由两个下标组成。如 B(2,3) ? 三维数组: 由三个下标组成。如 G(3,4,23) ? 三维以上的数组称为多维数组，最多60维 2. 数组的定义 格式 Public|Private|Dim 数组名[(维数定义)] [As 类型]… 功能: 声明数组(名称、维数、每维大小和数组 元素的类型），为数组分配存储空间。 说明： 数组名: 合法的变量名； 维数定义: [下界1 To] 上界1,[下界2 To] 上界2,… 下界省略则使用默认下界（下界设置 Option Base {0|1}） 说明 数据类型: Integer ，Long， Single，Double，Boolean String ， String[*n]，Date，Variant，Object，用户定义类型…… 数组在定义后自动被初始化 ? 将可变类型数组元素值置为Empty ? 将数值型数组元素值置为0 ? 将字符串类型数组元素值置为零长度字符串 ? 分配固定的存储空间 使用Erase初始化固定大小数组中的元素值 Erase 数组名 应用举例 例1：Dim A(-4 TO 10) As Integer 一维整型数值数组； 下界 -4，上界 10 元素： A(-4)， A(-3)，... A(0)， A(1)，... A(10) 例2： Dim B( 0 to 8,0 to 3 ) As String DIM B(8,3) As String // 二维字符串类型数组 第一维: 下界0，上界 8 ；第二维: 下界0，上界 3 元素： B(0,0) B(0,1) B(0,2) B(0,3) B(1,0) B(1,1) B(1,2) B(1,3) ... B(8,0) B(8,1) B(8,2) B(8,3) 动态数组的定义 定义格式 分两步进行: 在模块级或过程级定义一个没有下标的数组 Public|Private|Dim 数组名()[As 类型],… 在过程级使用ReDim语句定义数组的实际大小 ReDim 数组名(维数定义) [As 类型],… 应用举例 3. 数组的基本操作 数组元素的输入与输出 与普通变量相同 使用For Each...Next语句 保留动态数组的内容 4. 数组应用举例 【例】输入N名同学的成绩，显示于文本框Text1中，按成绩从低到高的次序排序，并将结果显示于另一个文本框Text2中。 5. 控件数组 控件数组的定义: 由一组相同类型的控件组成，它们共用一个控件名 控件数组的表示: 控件数组名(索引) 控件数组的建立 将多个控件取相同的名称 复制、粘贴现有的控件 给控件设置一个Index属性值 控件数组的使用 同一个控件数组的所有控件共享同一事件过程， 该过程返回参数Index表示在哪个控件上发生该事件 应用举例 【例1】设计如图a)所示的界面，运行时，当按下某以按钮时，按钮上的文字显示的文本框中，如图b）所示，利用此界面可以输入一个简单的算术表达式。 应用举例 应用举例 Private Sub Option1_Click(Index As Integer) Select Case Index Case 0 Shape1.FillColor = vbWhite Case 1 Shape1.FillColor = vbBlue …… Case 6