Visual Basic语言程序设计及实验教程-第6章 数组

分析：
a(1) a(2) a(3) a(4) a(5) a(6) a(7) a(8) a(9) a(10)
91 33 80 44 36 92 66 71 48 18
删除数据的位置：k=4 删除结束后，数组元素个数减1
a(1) a(2) a(3) a(4) a(5) a(6) a(7) a(8) a(9)
2、数据的添加
例：产生10个两位随机正整 数并存入数组，显示在列表框1 中，再输入欲增加的数据和位置， 将增加后的数组元素值显示在列 表框2中。
分析：
a(1) a(2) a(3) a(4) a(5) a(6) a(7) a(8) a(9) a(10) a(11)
44 36 92 66 71 48 18 91 33 80 55
框中显示相应水果的图片。
例：设在窗体上有一个标签Label1和一个文本 框数组Text1，数组Text1有10个文本框，索 引号0～9，单击窗体生成10个两位随机正整 数显示在文本框中。现由用户单击选定任一文 本框，然后计算从第一个文本框开始，到该文 本框为止的多个文本框中的数值总和，把计算 结果显示在标签中。

例：假设已经使用了语句Dim a(3,5)，下列 下标变量中不允许使用的是（ ）。 A. a(1,1) B. a(2-1,2*2)
C. a(3,4)
D. a(-1,3)
例：下列语句定义的数组的元素个数是（）。
Dim A (3 To 6,-2 To 2)
A. 20 B. 16 C. 24 D. 25
Next i
Print c End Sub
6．在窗体(Form1)上建立了一个命令按钮数组，数 组名为Command1。请在下面空白处填入合适内容， 使之单击任一命令按钮时，将该按钮的标题作为窗体 标题。 Private Sub Command1_Click(Index As Integer) Form1.Caption = ____________ End Sub A. Command1(Index).Caption B. Command1.Caption(Index) C. Command1.Caption D. Command1(Index+1).Caption
(2)指定下标的取值范围 一维数组定义格式:
Dim 数组名(下标下界 To 下标上界) AS 类型名 例：Dim M(1 To 10) As Double
二维数组定义格式:
Dim 数组名(下界 To 上界，下界 To 上界) AS 类型名
例：Dim N(1 To 10，1 To 10) As Double
Print i
End Sub
4．运行程序，显示的结果是( 45 )
Private Sub Command1_Click ( )
Dim X(10) As Integer, Sum As Integer For k = 1 To 10 X (k) = k：Sum = Sum + X (k) Next k
318
45 13 65 99 98 27 76 30 34 36
例:按图设计窗体，其中一组单选按钮
构成控件数组(共6个单选按钮)，要求
单击某个单选按钮时，能够改变文本框
中文字的大小。
控件数组实例赏析：
在运行时采用为标签控件数组添加成员
的方法，在Picture1控件中形成国际象棋的
棋盘。要求Picture1控件的高度略小于窗体
例:单击窗体，输入数据个数 n，随机产生 n 个二位随机正整数，显示在窗体上，再将 其逆序后结果过显示在窗体上。
6.5 控件数组
6.5.1 控件数组的概念
⑴具有相同名称、类型以及事件过程的 一组控件。 ⑵每个控件具有一个唯一的索引(Index)
⑶当数组中的一个控件识别某一事件时，它 将调用此控件组的相应事件过程，并把相应 索引作为参数传递，允许用代码判断是哪一 个控件识别此事件。
课后练习：
1．产生n个10～100随机整数并存
入数组，再从键盘上接收一个数据，将
该数据插入数组，插入位置也从键盘接 收。
2.设计程序，输入n个数到数组中(数据
内容由读者自行设定)，然后将该数组中
的数按颠倒顺序重新存放。例如：13、 8、6、5、10、21改为21、10、5、6、 8、13，通过Print方法把处理前和处理 后的数据直接显示在窗体上。
例：设有数组声明语句：
Option Base 1 Dim D(3, -1 To 2) 以上语句所定义的数组D为 二 维数组， 共有 个元素，第一维下标从 ＿＿ 12 1
到 3 ，第二下标从 -1
到 2 。
例、单击命令按钮，随机产生10个二位
正整数显示在列表框1中，求这10个数的 平均值显示在文本框中，并在列表框2中 显示大于其平均值的数。
6.2.2 Array函数
在VB程序也可以用Array函数，根据数据 表生成一个一维数组。Array函数返回一个 包含数组的Variant， 其使用格式为： 变体名=Array(数据表)
例：Dim a as variant,b as variant a=array(1,2,3,4) b=array("jack", "tom", "henter", "lily")
91 33 80 36 92 66 71 48 18
流 程 图
开始 For i=1 to 10 a(i)=int(rnd*90+10) List1.additem a(i) Next i
产生数据并显示
向左移动元素同时也实现了删除 输入k i=k
i<=？
Y
N
显示删除后的数据
a(i)=a(i+1)
i=i+1
。
A．123
B. 234
C. 345
D. 112
例：运行下述程序，窗体上输出的结果为：
Private Sub Form_Click() Dim a As Variant, i As Integer a = Array(1, 2, 3, 4, 5) For i = LBound(a) To UBound(a)
6.5.2 控件数组的建立
1、在程序设计时创建控件数组(静态) (1)复制现有的控件并将其粘贴到窗体上。 (2)将相同名字赋予多个同类控件。
(3)将控件的Index属性设置为非Null数值。
2、在程序运行时添加控件数组元素(动态)
例:设计窗体，一组命令按钮构成控件数
组，要求单击某个单选按钮时，在图片
Private Sub Form_Click()
Dim a() As Integer ReDim a(1 To 5) As Integer For i=1 to 5 a(i)=i Print a(i); Next i print ReDim a(1 To 10) As Integer For i=6 to 10 a(i)=I Next I For i=1 to 10 print a(i); Next I End Sub
产生数据并显示
向右移动元素
添加数据
N
i>=？
Y
a(i+1)=a(i) i=i-1
a(k)=m For i=1 to 11 List2.additem a(i) Next i 结束
显示添加后的所有 的数据
3、数据的删除
产生10个两位随机正整数并 存入数组，显示在列表框1中， 再输入待删除数据的位置，将删 除后的数据显示在列表框2中。
的高度，棋盘红黄相间，在调整窗体的大小
时，棋盘的大小相应 按比例调整。
本章总结：
理解数组、控件数组的概念 掌握数组的声明和数组元素的引用 掌握静态数组和动态数组的使用方法 学会利用数组解决一些较为复杂的问题
课堂练习：
1.下列语句所定义的数组的元素个数（ ） 。
Dim A( 6,-2 To 2)
6.1 数组的概念 6.2 数组的声明和应用 6.3 动态数组及声明 6.4 For Each…Next循环语句
6.5 控件数组
6.1 数组的概念
6.1.1 数组与数组元素
数组 --- 是用一个统一的名称来
表示的、顺序排列的一组变量。
s
…..
数组元素 --- 数组中的变量称为数组
元素，用下标来标识它们。可以用数组名 及下标唯一地标识一个数组元素。
0
添加的数据的位置：k=4 添加的数据：m= 55 55 需增加一个存储空间 添加结束后，数组元素个数加1
a(1) a(2) a(3) a(4) a(5) a(6) a(7) a(8) a(9) a(10) a(11)
91 33 80 55 44 36 92 66 71 48 18
流 程 图
开始 For i=1 to 10 a(i)=int(rnd*90+10) List1.additem a(i) Next i 输入k，m i=10
6.2 数组的声明和应用
6.2.1 数组声明语句
(1)指定下标的上界
一维数组定义格式: Dim 数组名(下标上界) As 类型名 例：Dim M(10) As Double 二维数组定义格式:
Dim 数组名(第一维下标上界，第二维下标上界) As 类型名
例：Dim N(10，10) As Double
数组元素
S(3) S(4) S(5) S(6) ….. …..
…… ……
S(1) S(2)
S(20)
s
问题：
（1）数组的下标只能用常量表示吗？有没有 其它的表示形式？ （2）数组能表示一组线性数据，但是如果要 表示如下的矩阵数据如何表示？
88 95 69 73
78 86 89 70