VB 数组的应用.doc

实验八实验八 数组的应用 一 数组的应用 一 1 1 验证实验一 验证实验一 假定学生的成绩在数组 XS CJ 1 to 10 中 对应的姓名在数组 XS XM 1 To 10 中 单 击按钮 排序 时 能按分数从高到低的排列 即排序后 XS CJ 1 和 XS XM 1 为第一名的 成绩 姓名 题目分析 题目分析 本实验是完成一个对数组元素从大到小的排序 可以采用教材中中介绍的 冒泡法完成排序 在此介绍另一种简单的排序方法 比较交换法 假设对 A N 数组中的数据从大到小排序 比较交换法的排序步骤如下 1 将第一个数与第 2 个到第 10 个数依次比较 如果 A 1 A J J 2 3 10 则 交换 A 1 和 A J 2 将第 2 个数与第 3 个到第 10 个依次比较 如果 A 2 A J J 3 10 则交换 A 2 和 A J 3 重复以上方法 将第 I 个数与第 I 1 个数到第 10 个数依次比较 如果 A I A J J 3 10 则交换 A I 和 A J 共重复 N 1 轮 在本实验中 每次对成绩的比较中 需要交 换的不仅 XS CJ 数组中的元素 而且对应的 XS XM 数组中对应的元素也要进行交换 1 设计界面可参考如下图 8 1 所示 用列表框 LstOldMark 和 LstNewMark 分别 来显示排序前后学生的姓名和成绩 2 编写代码 在窗体模块的声明段声明 Option Base 1 Dim XS XM 10 As string Dim XS CJ 10 As Single 在窗体的 Load 事件过程中完成对数据的输入 For I 1 To 10 XS XM I InputBox 请输入第 Str I 个学生的姓名 成绩排序 XS CJ I val InputBox 请输入第 Str I 个学生的成绩 成绩排序 LstOldMark AddItem XS XM I XS CJ I Next I 在 排序 按钮的 Click 事件过程中完成排序 部分代码如下 用比较交换法进行排序 For I 1 To 9 For J I 1 To 10 If XS CJ I XS CJ J Then 交换学生成绩 T XS CJ I XS CJ I XS CJ J XS CJ J T 交换学生姓名 T XS XM I XS XM I XS XM J XS XM J T End If Next J 图 8 1 设计界面 Next I 排序的结果显示于列表框 LstNewMark 中 请自行补充完成 2 2 验证实验二 验证实验二 在列表框中生成某包含有两位随机整数的 6 行 5 列的矩阵 单击 转置 按钮对该矩阵 进行转置 结果显示于另一个列表框中 题目分析 矩阵的转置就是将矩阵的行和列交换 定义两个二维数组 A 6 5 和 B 5 6 用 二重循环和随机函数产生二维数组 A 6 5 的各元素 1 设计界面如下 列表框 LstA 中显示原矩阵 A 列表框 LstB 中显示转置后的矩阵 B 命令按钮 输入 完成 矩阵 A 的生成和显示 转置 完成矩阵 A 的转置 并将结果显示在 LstB 中 2 编写代码 在窗体模块的声明段声明数组 Dim A 6 5 As Integer B 5 6 As Integer 输入 命令按钮的 Click 事件过程中 用二重循环和随机函数产生二维数组 A 6 5 的 各元素 请自行完成 转置 命令按钮的 Click 事件过程代码 For n 1 To 5 s For m 1 To 6 B n m A m n s s Format B n m Next m LstB AddItem LstB AddItem s Next n 3 3 程序设计一 程序设计一 随机产生 20 名同学的身高 编写程序求最高身高 最低身高和平均身高 假定同学的 身高范围是 1 55 米到 1 80 米 4 4 程序设计二程序设计二 修改验证实验一的界面 增加查找功能 在排好序的数组中查找某个学生的成绩 如 果找到 则显示找到显示该学生的成绩以及名次 如果没有找到 则给出提示 题目分析 这个一个顺序查找的问题 将要查找的学生姓名依次与 XS XM 数组中的元素比 图 8 2 设计界面与运行界 面 较 如果与第 I 个元素相等 表示找到 XS CJ I 和 I 分别是该学生的成绩和名次 如果 遍历完所有的姓名 仍没相等的元素 表明没有该学生的成绩 给出提示信息 5 5 程序设计三 程序设计三 编写程序求一个 3 行 3 列矩阵的三行