第7篇使用数组.ppt

第7章 使用数组 Visual Basic 程序设计教程 本章介绍： 构造结构类型——数组 列表框 组合框 一些典型算法 数组（Arrary）是构造的一种新的数据表达。 数组是一组具有相同变量名和类型的数据（叫做数组元素）的连续存储单元。 数组中包含了一个或多个元素 下标给出了数组中元素的顺序 数组和循环结构配合，使数据处理变得容易。 【例7-1】设计程序，如图。对一批马拉松运动员按成绩（单位：小时）排名次。 控件： 2个标签 2个列表框 1个命令按钮 “输入数据并排名”按钮作用： 输入运行员人数 输入各运动员的姓名和成绩 左列表框放排序前的数据 右列表框放排序后的名次数据。 事件： 主要是Command1的Click事件 排序又称分类。有多种方法：选择分类法、冒泡分类法等。 对n个数a(1)～a(n)，采用选择分类法的算法是： 先在n个数中选最小数，放在第1个数组元素中。 取第1个数，与后面n-1（即2到n）个数逐个比较。 若第1个数大，则a(1)与参与比较的元素中的值进行互换 再将互换后的第1个数与剩下的数据比较，直到最后。 再在第2至n个元素中，选最小数，放在第2个数组元素中。 取第2个数，与后面n-2（即3到n）个数逐个比较。 若第2个数大，则与数组元素中的值进行互换，…，直到最后。 重复以上步骤，直至在最后两个数中选取最小数，放在第n-1个数组元素中。 最后第n个元素已是最大数了。 在第i至n个元素中，选最小数并放入a(i) 的程序是： For j = i + 1 To n 将a(i)与a(i+1)～a(n)逐一比较 If a(i) a(j) Then Temp = a(i) : a(i) = a(j) : a(j) = Temp 互换 Next j然后再将i从1循环到n-1，就可构成分类（排序）程序段。 Private Sub Command1_Click()Dim Name1() As String, Score() As Single ‘动态数组声明Dim TempName As String, TempScore As SingleDim N As Integer, i As Integer, j As IntegerN = Val(InputBox(“请输入运动员人数”, “输入”))ReDim Name1(N), Score(N) ’根据人数动态定义数组的大小List1.Clear: List2.Clear ‘清除两个列表框中数据For i = 1 To N 输入姓名和成绩,放入左列表框 Name1(i) = InputBox(请输入第 i 位运动员姓名, 姓名) Score(i) = Val(InputBox(请输入第 i 位运动员成绩, 成绩)) List1.AddItem Name1(i) Score(i), 0 Next i For i = 1 To N - 1 开始按成绩从小到大排序 For j = i + 1 To N If Score(i) Score(j) Then 同时交换姓名和成绩 TempName = Name1(i): Name1(i) = Name1(j): Name1(j) = TempName TempScore = Score(i): Score(i) = Score(j): Score(j) = TempScore End If Next j Next i For i = 1 To N 将排序后数据及名次放入右列表框 List2.AddItem i Name1(i) Score(i) Next i End Sub 7.3.1 如何声明一维数组 只有一个下标的数组，称为一维数组。 使用n（1≤n≤16）个下标的数组，称为ｎ维数组。 数组在使用前必须先声明。格式： Dim 数组名(下标说明) [As类型名] [,数组名(下标说明) [As数据名]] … 说明： 数组名的命名方式与变量名一样，但不能和简单变量名重名。 下标说明又称维定义符，定义了这个维的大小。 它有两种表示形式： 上界 下界 To 上界 下界和上界必须使用数值型常量表达式 下界和上界表示数组元素的下标的范围 在缺省状态下，起始下标（下界值）为0 Dim A(50)，表示数组A有51个元素，即