第6章 VB数组及应用

6.2.2 一维数组—数组元素的输出
以每行10个元素输出 For I=1 to n Print a(i); If I mod 10=0 Then Print Next I
6.2.3 动态数组
建立动态数组的基本语句有： Dim 数组名() As 数据类型 Dim 变量名 As 整型 变量名 =Val(InputBox( “请指定数组的长 度”)) 或 变量名=<表达式> ReDim 数组名(变量名) 或 ReDim Preserve数组名(变量名)
Dim a(10) As Integer For I=1 to 10 a(i)=Int(Rnd*90)+10 Next I
6.2.2 一维数组--给数组元素赋初始值
3、使用Array函数为数组元素赋值，其格 式为：数组名 =Array(元素列表)
说明：使用Array函数为数组元素赋值时，它只能声明为
选 择 法 排 序 的 关 键 语 句 Private Sub Form1_Click() ……数组元素的输入………… For I=1 to n-1 P=I For j=I+1 to n If a(p)>a(j) then p=j Next j T=a(p):a(p)=a(j):a(j)=T Next i ……数组元素的输出…… End Sub
6.3.2二维数组—二维数组的输出
二维数组元素的输出主要采用的是双重循环结构 进行设计，若要对二维数组a(m,n)数组输出， 设下标从1开始，则主要语句有： For i=1 to m For j=1 to n Print a(I,j); Next j Print Next i
6.4.1控件数组的概念
6.3.2二维数组—杨辉三角形
基本思想是每行的 第一列和对角线所 在单元格上的值均 为1，从第三行开始， 除首列和对角线的 单元格除外，其他 单元格的值均等于 前一行当前列单元 格的值与前一行前 一列单元格的值之 和
6.3.2二维数组—杨辉三角形算法
Dim a() As Integer n = Val(InputBox("n=")) ReDim a(n, n) For i = 1 To n a(i, 1) = 1 a(i, i) = 1 Next i For i = 3 To n For j = 2 To n - 1 a(i, j) = a(i - 1, j - 1) + a(i - 1, j) Next j Next i ………数组元素的输出…………………

6.4.1控件数组的建立步骤
（ 1 ）在窗体中创建一个控件对象，可使用属性 窗口更改该控件名称。 （ 2 ）在窗体的其他位置，单击鼠标右键，选择 “粘贴”命令，在出现的“已有了一个控件。 创建一个控件数组吗”的对话框，单击“是” 按钮后，即可创建一个控件数组，并自动创建 第二个元素，原控件的名称自动更改为“控件 名（ 0 ）”，当前创建的的控件名为“控件名 （1）”。 （3）依此类推。可创建控件数组中的其他元素。
学习要求
1．掌握数组的概念 2．掌握一维数组的定义、引用和应用 3．掌握多维数组的定义和二维数组的应用 4．掌握控件数组的定义和应用
6.1 数组的概念
在实际应用过程中，将一批相互有联系、有一定 顺序、同一类型和具有相同性质的数据采用集 合进行定义和存储，这样的集合就是数组。 Visual Basic 6.0 中的数组，按不同方式可分为以 下几类： （ 1 ）按数组元素的个数是否可变可分为：定长 数组和动态数组。 （ 2 ）按数组元素的数据类型可分为：数值型数 组、字符型数组和变体数组等。 （3）按数组的维数可分为：一维数组、二维数 组和多维数组。
6.2.1一维数组的声明
Visual Basic 6.0中所有使用的数组在引用前，必须先 声明。一维数组的声明包括数组变量的定义、数 组的元素个数和元素的数据类型。其格式为： （1）Dim 数组变量名(元素个数) As 数据类型 （2）Dim数组变量名(下界 to 上界) As 数据类型 （3）Dim 数组变量名<数据类型符>(元素个数) （4）Dim数组变量名<数据类型符> (下界 to 上界)
6.4.2 为控件数组中的各控件元素相同的 属性名赋不同值
若 为 命 令按 钮 的 控件 数 组 中的 每 个 按钮 设 置 “红 绿 蓝 黑 白”5个颜色值，则可采用如下代码： Private Sub Form_Load() c = "红绿蓝黑白" For i = 0 To 4 Command1(i).Caption = Mid(c, i + 1, 1) + "色" Next i End Sub
Option Base 1 Dim a(3,4) As Integer Dim b(4) as single,c(4) as single ……二维数组元素的赋值…… For I=1 to 3 For j=1 to 4 b(i)=b(i)+a(I,j) Next j c(i)=b(i)/4 Next I ………输出运算结果…
6.3.2 二维数组—为数组元素赋值
（1）使用键盘给每个元素输入数据
Option Base 1 Dim a(3,4) As Integer For I=1 to 3 For j=1 to 4 a(i,j)=val(InputBox(“请输入第” & I & “个元素”)) Next j Next I
6.3.2 二维数组—为数组元素赋值
（2）给每个元素赋于随机数，这个算法主要用 于测试程序是否可行
Option Base 1 Dim a(3,4) As Integer For I=1 to 3 For j=1 to 4 a(i,j)= Int(Rnd*90)+10 Next j Next I
6.3.2二维数组—计算二维表格每列的总和 与平均值
6.3 二维数组—二维数组的声明
（1）Dim 数组变量名(第一维元素个数，第二维 元素个数) As 数据类型 （ 2 ） Dim 数组变量名 ( 第一维元素下界 to 上界， 第二维元素下界 to 上界) As 数据类型 （3）Dim 数组变量名<数据类型符>(第一维元素 个数，第二维元素个数) （4）Dim数组变量名<数据类型符> (第一维元 素下界 to上界，第二维元素下界 to 上界)
6.2.2 一维数组--对数组中所有元素冒泡法排序
①
②
③
④ ⑤
⑥
图6-3(0) 排序前的状态
6.2.2 一维数组--对数组中所有元素冒泡法排序
交换 交换
交换
P
PБайду номын сангаас
①
②
①
②
P
③
①
②
③
④
图 - (3) ③与④比较
图6-3(1) ①与② 比较
图6-3(2) ②与③ 比较
图6-3(3) ③与④ 比较 3
6.2.2 一维数组--对数组中所有元素冒泡法排序
6.2.1一维数组的引用
（1）数组元素变量的赋值 ①使用“=”对变量赋值 ②使用InputBox函数对变量赋值 ③使用随机函数Rnd对数组元素变量赋值， （2）使用表达式进行运算或给其他变量进行赋值。 （3）数组元素变量的输出，可使用Print命令或 MsgBox函数来输出数组中的元素值。
6.2.2 一维数组--给数组元素赋初始值 1、使用键盘给每个元素输入数据。其基 本语句为
6.2.3 动态数组
使用动态数组后，由于数组的长度随程序的运行在 更改，若要获取数组长度，需引入两个函数，分别 是Ubound(数组变量名)和Lbound(数组变量名)。 （1）Ubound(数组变量名)函数 返回数组的上界，即数组下标的最大值。 （2）Lbound(数组变量名)。 返回数组的下界，即数组下标的最小值。 使用这两个函数的返回值 ，可得到数组的长度 n = Ubound(数组变量名)- Lbound(数组变量名)。
交换
交换
P
P
①
②
③
④ ⑤
①
②
③
④
⑤
⑥
图6-3(4) ④与⑤比较
图6-3(5) ⑤与⑥比较
6.2.2 一维数组--对数组中所有元素冒泡法排序
①
②
③
④
⑤
⑥
图6-3(6) 排序后的状态
6.2.2 一维数组--对数组中所有元素冒泡法排序 选 择 法 排 序 的 关 键 语 句
Private Sub Form1_Click() ……数组元素的输入………… For I=1 to n-1 For j=1 to n-i If a(j)>a(j+1) then T=a(j) a(j)=a(j+1) a(j+1)=T end if Next j Next I ……数组元素的输出…… End Sub
控件数组是由一组相同类型的控件组成的， 它们共同拥有一个相同的控件名称，具有相同 的属性设置，它们共享同样的事件过程。 在建立时系统自动给每一个控件分配一个唯 一的索引号（index）。 一个控件数组至少应有一个元素，元素数目 可在系统允许的范围内增加，在控件数组中可 用的最大索引号为32767。
6.3.2 二维数组—矩阵的转置
（1）若A是一个n*n的方阵，则不必定义新的二维数组， 关键语句如下： for i=1 to n for j=1 to i-1 T=a(i,j): a(i,j)=a(j,i):a(j,i)=T Next j,i
6.3.2二维数组—矩阵的转置
（ 2 ）若A是一个 m*n （m≠n）的矩阵, 则需定义一个新数 组b，其中b数组的第一维长度与a数组的第二维长度相 同， b 数组的第二维长度与 a 数组的第一维长度相同。 关键语句如下： Dim a(2,5) As Integer,b(5,2) As Integer ……a数组元素的输入…… For I=1 to 2 For j=1 to 5 B(j,I)=a(I,j) Next j,I …… b数组元素的输出……