VisualBasic程序设计案例教程 第6章 数组.pptVIP

第6章 数 组 理解数组的的概念和应用 熟练掌握控件数组的理解和运用 教学重点与难点： 对一般数组的理解运用；理解掌握并运用控件数组 6.1 数组应用案例 6.1.1 案例实现过程 【案例说明】 输入某小组5个同学的成绩，计算总分和平均分(取小数后一位)。 分析：本例利用InputBox函数来输入成绩，输入完毕后经过计算，再采用Print直接在窗体上输出结果，采用数组进行处理数据。 2．假设10名学生的考试成绩为89，96，81。67．79。90，63，85，95和83，求出最高分和最低分，程序运行后如图6.1所示。 图6.1 运行结果 分析：在Form_Load事件过程中，通过Array函数为数组score赋值。单击“查找”按钮（Commandl）后，开始查找最高分和最低分，找到后显示在标签Labell上 6.1 数组应用案例 3．某学习小组有5名学生，他们的成绩如表6.1所示。设计程序，计算每个学生和每门课的平均分。 表6.1 学生成绩表 程序运行后如图6.2所示。 6.1 数组应用案例 图6.2 求平均分 分析：对于这样一个5行3列的成绩表，可以用一个二维数组a(5，3)来描述。程序中可设置二重循环，用以实现每行和每列上的累加。 4．随机产生10个10~100间的整数，用“选择排序法”由小到大排序，最后输出结果。程序运行结果如图6.3所示。 图6.3排序结果 6.1 数组应用案例 分析： (1)利用Int(91* Rnd +10)产生10~100间的随机整数。 (2)按值从小到大排序。排序方法如下： 先将10个数放人数组a中，再对下标变量a(1)，a(2)，a(3)，…，a(10)进行排序处理。 从这10个下标变量中选出最小值，通过交换把该值存人a(1)。 除a(1)之外(a(1)已存放最小值)，从其余9个下标变量中选出最小值(即10个数中的次小值)，通过交换把该值存人a(2)。 采用上述方法，选出a(3)~a(10)中的最小值，通过交换，把该值存人a(3)。 重复上述处理，至a(8)，可使a(1)~a(8)由小到大排列。 第9次处理，选出a(9)及a(10)中的最小值，通过交换把该值存人a(9)，此时a(10)存放的就是最大值。 (3)程序结构。完成上述比较及排序处理过程，可以采用二重循环结构，外循环变量i从l到9，共循环9次；内循环的变量j从i + 1到10。 6.1 数组应用案例 【技术要点】 该应用程序设计步骤如下。 1．运用【案例说明】中的第一部份：输入某小组5个同学的成绩，计算总分和平均分(取小数后一位)。 （1）本例利用InputBox函数来输入成绩，输入完毕后经过计算，再采用Print直接在窗体上输出结果。 采用Print直接在窗体上输出结果，程序代码如下： Private Sub form_load() Dim d(5) As Integer Dim i As Integer, total As Single, average As Single Show For i = 1 To 5 输入成绩 d(i) = Val(InputBox(请输入第 i 个学生的成绩, _ 输入成绩)) 6.1 数组应用案例 Next i total = 0 For i = 1 To 5 计算总分 total = total + d(i) Next i average = total / 5 Print 总分：; total Print 平均分：; Format(average, ##.0) End Sub 程序中，先通过Dim语句为数组d定义维数及下标范围，即为数组安排一块连续的内存存储区，但这并不意味着在内存里该数组已获得了应有的内容。本例中，输人数组中的数据是由InputBox函数来实现的，共循环了5次，输入的5个数依次赋值给下标变量d(1)~d(5)n。建立了数组中的数据后，就可以按要求进行处理了。 2．运用【案例说明】中的