VB实验8数组及其应用解析.pptVIP

实验8  数组及其应用 一、目的和要求 掌握固定数组的定义方法。 掌握固定数组的使用方法。 学会利用固定数组解决一些较为复杂的问题。 二、预备知识 1．数组的基本概念 数组是一组具有相同名称和类型的变量的集合，在程序中可以用一个数组名代表逻辑上相关的一组数据。在Visual Basic中有两种类型的数组：固定大小的数组以及在运行时大小可变的动态数组，有时也称这两种数组为定长数组和可变长数组。数组必须先声明后使用。 2．固定数组的声明 固定大小数组的声明形式如下： Dim 数组名(下标1 [,下标2,…]) [As 数据类型] 其中，下标必须是常数，格式为[下界 To ] 上界，省略下界时，默认值为0；省略As 数据类型时，系统认为是变体数组。 二、预备知识 3．数组的遍历 数组在声明时是一个整体，在使用时必须以数组元素为单位，通常用循环遍历每个元素，逐一处理，一维数组用一重循环，二维数组用二重循环，多维数组用多重循环。 4．For Each/Next循环语句 在处理数组时，For Each/Next结构是一种使用非常方便的循环机制，特别适用于不清楚数组中究竟有多少元素的场合。For Each/Next循环可以用来遍历数组中的所有元素并重复执行一组语句，其格式如下： For Each 变量 In 数组名 循环体 Next [变量] 这个结构可以用于固定数组或动态数组。无论在哪种情况下，变量都必须是变体型。 三、实验内容 实验8-1 实验8-2 实验8-3 实验8-4 实验8-1 【题目】 顺序查找。随机生成20个两位正整数，分两行显示在一个文本框中，查找某个数在其中的位置。 实验8-1 【要求】 （1）用InputBox函数输入要查找的数，若找到且不在最后，则显示位置并询问是否继续查找；若找到且在最后，则显示位置。 （2）若没有找到，则显示没有找到的信息。 实验8-1 【实验步骤】 （1）界面设计 请参照图8-1所示的界面设计窗体。 （2）完善程序代码 （3）运行程序，观察程序运行结果，最后将窗体文件保存为F8-1.frm，工程文件保存为P8-1.vbp。 实验8-2 【题目】 设有一个二维数组A(4,3)，试编写程序求出所有数组元素中的最大值、最小值并计算所有元素的平均值。 实验8-2 【要求】 （1）用InputBox函数输入二维数组，并在图片框中按标准格式（分区格式）输出。 （2）输入时利用InputBox函数上的提示信息要表明当前输入的是二维数组中的哪一个元素，如下图所示。 实验8-2 （3）当单击“最大值”（或“最小值”）按钮时用MsgBox函数的提示信息表明最大值（或最小值）及其所在位置，如图所示。当单击“平均值”按钮时，用MsgBox函数的提示信息输出平均值。 实验8-2 【分析】 二维数组的输入和输出一般利用二重循环实现，外循环控制行的变化，内循环控制列的变化。标准输出格式是在Print语句的输出项之间用逗号分隔。为了产生4行3列的效果，还要在内外循环之间添加无参数的Print语句来实现换行。 实验8-2 【实验步骤】 （1）界面设计 请参照图8-4所示的界面设计窗体。 （2）完善程序代码 （3）运行程序，观察程序运行结果，最后将窗体文件保存为F8-2.frm，工程文件保存为P8-2.vbp。 实验8-3 【题目】 编写程序，建立并输出一个10×10的矩阵，该矩阵对角线元素为1，其余元素均为0。 实验8-3 【分析】 在Visual Basic中矩阵常用二维数组来处理，首先要定义一个二维数组A（1 To 10,1 To 10），接着可以用二重For循环实现二维数组的输入和输出。 处在正对角线上的数组元素，它的行列下标相同，即i = j，处在副对角线上的数组元素，它的行列下标之和等于11，即i + j=11。 实验8-3 【实验步骤】 （1）界面设计 请参照图8-7所示的界面设计窗体。 （2）完善程序代码 （3）运行工程并保存文件 运行程序，观察程序运行结果，最后将窗体文件保存为F8-3.frm，工程文件保存为P8-3.vbp。 实验8-4 【题目】 编程实现将30个互不相同的两位随机正整数按照从大到小降序排列。 实验8-4 【要求】 （1）分别用选择法和冒泡法实现排序。 （2）30个数据的输出格式为每行显示10个数据。 实验8-4 【分析】 对n个数进行排序，典型的算法有选择排序法、冒泡排序法、插入排序法等。 (1）选择排序法，其算法表示如下： S1：使i=1； S2：使j=i+1； S3：若a(i)a(j)，则转S4，否则转