VB实验3数组.doc

本科实验报告 课程名称： 人机界面程序设计基础 实验项目： 三、 数组 实验地点： 北区多学科楼 专业班级： 学号： 学生姓名： 指导教师： 年 月 日 一、实验目的和要求 1、掌握数组的声明、数组元素的引用。 2、掌握固定长度数组和动态数组的使用差别。 3、掌握数组常用的操作和常用算法。 4、掌握列表框和组合框的使用。 二、实验内容和原理 1、随机产生30~100(包括30、100)的10个正整数，求最大值、最小值、平均值，并显示整个数组的值和结果。 2、随机产生20个学生的成绩，统计各分数段人数并显示结果。产生的数据在List1显示，统计结果在List2显示。 提示：①、在通用声明段声明一个数组。例如：Dim mark%（19）；在Command2声明一个数组s（9）,分别存放分数段的人数。 ②、统计时的关??在于确定每个人的分数mark（i）与数组s下标之间的关系。 3、窗体上建立一个简单组合框，在组合框的文本框输入数字字符，按回车键后加入到组合框的列表框内，单击“交换”按钮，将列表框中最小值项目和第0个项目交换；最大值项目与最后项目交换。 三、主要仪器设备 计算机 四、实验结果与分析（必填） 随机产生30～100（包括30，100）的10个正整数，求最大值、最小值、平均值，并显示整个数组的值和结果，。 代码： Private Sub Form_Click() Dim i%, s%(1 To 10), max%, min%, avg! For i = 1 To 10 s(i) = Int(Rnd * 71 + 30) Next i max = s(1) min = s(1) avg = s(1) For i = 2 To 10 If s(i) max Then max = s(i) If s(i) min Then min = s(i) avg = avg + s(i) Next i avg = avg / 10 For i = 1 To 10 Print s(i); Next i Print Print max=; max; min=; min; avg=; avg End Sub 随机产生20个学生的成绩，统计各分数段人数。即0～59，60～69，70～79，80～89, 90~100, 并显示结果。产生的数据在picture1显示，统计结果在picture2显示，如图E3所示。 代码： Dim mark%(19), i% Private Sub Command1_Click() Me.Picture1.Cls For i = 0 To 19 mark(i) = Int(Rnd * 101) Me.Picture1.Print mark(i); If (i + 1) Mod 5 = 0 Then Me.Picture1.Print Next i End Sub Private Sub Command2_Click() Me.Picture2.Cls Dim s%(9) For i = 0 To 19 k = mark(i) \ 10 Select Case k Case 0 To 5 s(5) = s(5) + 1 Case 9 To 10 s(9) = s(9) + 1 Case 6 To 8 s(k) = s(k) + 1 End Select Next i For k = 5 To 9 If s(k) 0 Then Me.Picture2.Print s(; k; )的人数有; s(k); 个 End If Next k End Sub 窗体上建立一个简单组合框，在组合框的文本框输入数字字符，按回车键后加入到组合框的列表框内，如图E.8所示；单击“交换”按钮，将列表框中最小值项目和第0个项目交换；最大值项目与最后项目交换，如图E9所示。 代码： Private Sub Combo1_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 48 To 57, 13 Case Else KeyAscii = 0 End Select If KeyAscii = 13 Then Me.Combo1.AddItem Me.Combo1.Text: Me.Combo1.Text = End If End Sub Private Sub