07 第07章 VB中使用数组.pdfVIP

大学计算机基础教程 TaiYuan University of Technology 第7章 使用数组 Visual Basic 程序设计教程 本章介绍： 构造结构类型——数组 列表框 组合框 一些典型算法 2 Visual Basic程序设计教程 数组（Arrary ）是构造的一种新的数据表达。 数组是一组具有相同变量名和类型的数据（叫做 相同变量名和类型 数组元素）的连续存储单元。 数组中包含了一个或多个元素 下标给出了数组中元素的顺序 数组和循环结构配合，使数据处理变得容易。 3 Visual Basic程序设计教程 【例7-1】设计程序，如图。对一批马拉松运动员按 成绩（单位：小时）排名次。 控件： 2个标签 2个列表框 1个命令按钮 4 Visual Basic程序设计教程 “输入数据并排名”按钮作用： 输入运行员人数 输入各运动员的姓名和成绩 左列表框放排序前的数据 右列表框放排序后的名次数据。 事件： 主要是Command1的Click事件 5 Visual Basic程序设计教程 排序又称分类。有多种方法：选择分类法、冒泡分类 法等。 对n个数a(1)～a(n) ，采用选择分类法的算法是： 先在n个数中选最小数，放在第1个数组元素中。 取第1个数，与后面n-1 （即2到n）个数逐个比较。 若第1个数大，则a(1)与参与比较的元素中的值 进行互换 再将互换后的第1个数与剩下的数据比较，直到 最后。 6 Visual Basic程序设计教程 再在第2至n个元素中，选最小数，放在第2个数组 元素中。 取第2个数，与后面n-2 （即3到n）个数逐个比 较。 若第2个数大，则与数组元素中的值进行互 换，…，直到最后。 重复以上步骤，直至在最后两个数中选取最小数， 放在第n-1个数组元素中。 7 Visual Basic程序设计教程 最后第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，就可构成分类（排序） 程序段。 8 Visual Basic程序设计教程 Private Sub Command1_Click() Dim Name1() As String, Score() As Single ‘动态数组声明 Dim TempName As String, TempScore As Single Dim N As Integer, i As Integer, j As Integer N = Val(InputBox(“请输入运动员人数”, “输入”)) ReDim Name1(N), Score(N) ’根据人数动态定义数组的大小 List1.Clear: List2.Clear