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

《VisualBasic程序设计案例教程 第6章 数组》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第6数组理解数组的的概念和应用熟练掌握控件数组的理解和运用教学重点与难点：对一般数组的理解运用；理解掌握并运用控件数组第6章数组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赋值。单击“查找

2、”按钮（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)产

3、生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)存放的就是

4、最大值。(3)程序结构。完成上述比较及排序处理过程，可以采用二重循环结构，外循环变量i从l到9，共循环9次；内循环的变量j从i+1到10。6.1数组应用案例【技术要点】该应用程序设计步骤如下。1．运用【案例说明】中的第一部份：输入某小组5个同学的成绩，计算总分和平均分(取小数后一位)。（1）本例利用InputBox函数来输入成绩，输入完毕后经过计算，再采用Print直接在窗体上输出结果。采用Print直接在窗体上输出结果，程序代码如下：PrivateSubform_load()Dimd(5)AsIntegerDimiAsInteger,totalAsSingle,averageAs

5、SingleShowFori=1To5'输入成绩d(i)=Val(InputBox("请输入第"&i&"个学生的成绩",_"输入成绩"))6.1数组应用案例Nextitotal=0Fori=1To5'计算总分total=total+d(i)Nextiaverage=total/5Print"总分：";totalPrint"平均分：";Format(average,"##.0")EndSub程序中，先通过Dim语句为数组d定义维数及下标范围，即为数组安排一块连续的内存存储区，但这并不意味着在内存里该数组已获得了应有的内容。本例中，输人数组中的数据是由InputBox函数来实现的，共循

6、环了5次，输入的5个数依次赋值给下标变量d(1)~d(5)n。建立了数组中的数据后，就可以按要求进行处理了。2．运用【案例说明】中的第二部份：假设10名学生的考试成绩为89，96，81。67．79。90，63，85，95和83，求出最高分和最低分。6.1数组应用案例（1）创建应用程序的用户界面和设置对象属性，如图6.4所示。窗体上含有一个标签(Label1)和一个命令按钮(Commandl)。标签Labell用于显示有关信息。按钮Commandl的Caption属性为“查找”。。图6.4界面设计2）编写程序代码。OptionBase1'在模块级声明段中声明DimscoreAsVar

7、iant'score用做数组变量名PrivateSubForm_Load()Label1.Caption="单击“查找”按钮开始查找最高分和最低分"score=Array(89,96,81,67,79,90,63,85,95,83)EndSub6.1数组应用案例PrivateSubcommand1_click()DimmaxAsInteger,minAsIntegermax=score(1)'设定初值min=score(1)Fori=2To10Ifmax