05_02数组

电气信息学院 计算机系
控件数组
例1：建立含有四个命令按钮的控件数组，当单击某个命令 按钮时，分别显示不同的图形或结束操作。 有关设置如表：
控件名 command1 command1 command1 command1 picture1 下标(index) 标题(caption) 0 直线 1 矩形 2 圆 3 结束 空白 空白
电气信息学院 计算机系
常 用 算
程序代码如下:
法
Dim a(1 To 6) As Integer Dim min As Integer, i As Integer, j As Integer, t As Integer n=6 For i = 1 To n a(i) = InputBox("please input value:") Print a(i); Next i For i = 1 To n - 1 ‘进行n-1轮比较 min = i ‘对第i轮比较，初始假定第i个元素最小 For j = i + 1 To n '在第i～n个元素中选最小元素的下标 If a(j) < a(min) Then min = j Next j If min <> i Then 'i--n个元素中选出最小元素与第I个元素交换 t = a(i): a(i) = a(min): a(min) = t End If Next i:Print For i = 1 To n Print a(i); Next i 电气信息学院 计算机系
电气信息学院 计算机系
控件数组
方法2：运行程序时添加控件数组。 在窗体上画出某控件，设置该控件的Index值为0， 表示该控件为数组,这是建立的第一个元素； 在编程时通过Load方法添加其余的若干个元素，也 可以通过Unload方法删除某个添加的元素； 每个新添加的控件数组通过Left和Top属性确定其 在窗体的位置，并将Visible 属性设置为True。
电气信息学院 计算机系
常 用 算
法
Dim i As Integer,j As Integer,a() As Integer Dim n As Integer n = InputBox("请输入数的个数：") ReDim a(1 To n) As Integer For i = 1 To n a(i) = InputBox("输入排序数", "冒泡排序") Print a(i); Next i For i = 1 To n - 1 '进行n-1轮比较 For j = 1 To n - i '每轮比较次数 If a(j) > a(j + 1) Then t = a(j + 1): a(j + 1) = a(j):a(j) = t End If Next j:Next i:Print For i = 1 To n Print a(i); Next i
电气信息学院 计算机系
常 用 算
3.数组中元素的插入
法
在有序数组a(1 to n)(原有n-1个元素)插入一个值Key元素, 算法: ①查找要插入的位置k（1<=k<=n-1）; ②腾出位置,把最后一个元素开始到第K个元素往后移动一个 位置; ③第k个元素的位置腾出，就可将数据Key插入。 4 3 2 1 如下示意图：设key=14
电气信息学院 计算机系
常 用 算
1.分类统计
法
分类统计：对一批数据按条件分类统计数量。 示例：输入一串字符，统计各字母出现的次数(大小写 字母不区分。) 分析： 统计26个字母出现的个数，先声明一个具有26个元 素的数组，每个元素的下标表示对应的字母，数组元 素的值表示对应字母出现的次数。 从输入的字符串中逐一取出字符，转换成大写字符 （使得大小写不区分），进行判断。
1 4 7 10 13 16 19 22 25
14
k
电气信息学院 计算机系
常 用 算
法
Dim a(1 To 10) As Integer Key = InputBox("请输入要插入的数:") For i = 1 To 9 a(i) = (i - 1) * 3 + 1 '通过程序自动生成有规律的数组 Print a(i); Next i For k = 1 To 9 '查找欲插入数Key在数组中的位置 If Key < a(k) Then Exit For '找到插入的位置K Next k For i = 9 To k Step -1 '从最后元素开始往后移,腾出位置 a(i + 1) = a(i) Next i a(k) = Key '数插入 Print For i = 1 To 10 Print a(i); Next i
电气信息学院 计算机系
i=6
j=1
j=2
j=3
j=4
j=5
For j=1 To 5
a(1)
a(2) a(3) a(4)
8 j
6
j
6 8 9 j 2 j+1
6 8 2 9 j
6 8
6 8 2
6 j+1 8
9 3 2 7
9
3
7
a(5)
a(6)
3 7
3 j+1
电气信息学院 计算机系
常 用 算
法
示例：对已知存放在数组中的6个数，用选择法按递增顺 序排序。如下面示例。
a(1)a(2)a(3)a(4)a(5)a(6) a(2)a(3)a(4)a(5)a(6) a(3)a(4)a(5)a(6) a(4)a(5)a(6) a(5)a(6)
原始数据 8 6 9 3 2 7 第1趟交换后 2 6 9 3 8 7 第2趟交换后 2 3 9 6 8 7 第3趟交换后 2 3 6 9 8 7 第4趟交换后 2 3 6 7 8 9 第5趟无交换 2 3 6 7 8 9
第十讲 数组
主要内容：
1.控件数组
2.常用算法
电气信息学院 计算机系
数 组
重点与难点： 1.控件数组的理解与使用。 2.常用算法的编写。 基本要求： 1.理解控件数组的含义及正确使用。 2.掌握常用算法的编写方法。
电气信息学院 计算机系
控件数组
1.概念
控件数组是具有相同名称、类型及事件过程的一组控 件。 当建立控件数组时，系统给每一个控件元素赋一个唯 一的索引号（index）。通过属性窗口的index属性，可知 该控件的下标是多少，第一个为0,第二个为1，依此类推。 一个控件数组至少应有一个元素，在控件数组中可用到的 最大索引值为32767。 当数组中的一个控件识别某一事件时，它将调用此控 件数组的相应事件过程，并把相应索引作为参数传递给事 件过程。同一控件数组中的元素有自己的属性设置值。
电气信息学院 计算机系
控件数组
程序代码如下：
Private Sub Command1_Click(Index As Integer) Picture1.Cls Picture1.FillStyle = 6 Select Case Index Case 0 Picture1.Print "画直线" Picture1.Line (2, 2)-(9, 7) Case 1 Picture1.Print "画矩形" Picture1.Line (2, 2)-(9, 7), , BF Case 2 Picture1.Print "画椭圆" Picture1.Circle (4.5, 5.5), 3.2, , , , 1.4 Case Else End End Select End Sub
电气信息学院 计算机系
控件数组
例2：建立一个专用输入账号的数字按钮。 要求： 在窗体上放一个标签Label1。其BackColor设置为白 色，BorderStyle设置为1，用于显示数字键按下后的 数字； 窗体放一个Command1，其Index属性值设置为0，程序 运行时自动产生1～9的9个Command1控件数组元素， Caption设置为下标对应数字； 窗体放一个Command2， Caption设置为“C”，用于清 除Label1控件的内容。
7
7 j+1
9
共进行——6-1次比较，即令j从1至6-1,每取一个 第一轮： 值，把a(j)与a(j+1)进行比较。
电气信息学院 计算机系
i=5
j=1
j=2
j=3
j=4
For j=1 to 4 6 2
a(1)
a(2) a(3) a(4)
6 j
6
6 2
6 2
j
8 j+1 8 j
2 3 7 9
常 用 算
法
方法2： 冒泡法排序：设数组为a(n)。首先将相邻两个数a(1)和 a(2)比较，按要求将这两个数排好序；再将a(2)和a(3) 比较,…；直到将最后两个数比较并处理完毕。这时，最 大的一个数已经换到最后一个位置。这是第一轮的比较 和处理。每进行一轮，把剩下的数中最大的一个移到最 后位置，共进行若干轮。 示例：对n个数由小到大排序。 下面以n=6为例。 冒泡法排序。分析如后
2 j+1 3 7 9
8
3
3
7 8 9
共进行多少轮比较呢
7
9
3 j+1
N-1轮
8 j 7 j+1 9
a(5)
a(6)
共进行—6-2次比较，即令j从1至6-2,每取一个值 第二轮： ，把a(j)与a(j+1)进行比较。
电气信息学院 计算机系
常 用 算
法
根据以上分析：可以用双重循环来排序： ①外循环的循环控制变量i控制第几轮，共进行n-1轮 比较交换，即i从1到n-1; ②内循环控制每一轮的比较次数，第i轮共要比较n-i 次，每次比较a(j)与a(j+1)