VB程序设计实验要求及报告5.docVIP

上海立信会计学院本科实验报告 班级： 学号： 姓名： 指导教师： 系部： 专业： 实验时间： 实验5 数组 实验目的 掌握数组的声明、数组元素的引用 掌握固定长度数组和动态数组的使用差别 二、实验要求 在C:\下建立子文件夹“VB实验5”，按照题目要求，在该文件夹下为各题保存相应的文件，如本实验中的第一题，需保存的文件有：工程文件(51.vbp)、窗体文件(51.frm) 及可执行文件（51.exe），本实验中的第二题，需保存的文件有：工程文件(52.vbp)、窗体文件(52.frm) 及可执行文件（52.exe），其余实验依此类推。 撰写实验过程中出现了哪些问题、错误，你是如何解决的，做一个小结。 实验内容： 随机产生30～100（包括30、100）的10个正整数，存放于数组中，显示该数组的值，并求出最大值、最小值和平均值，如图5-1所示。要求：窗体显示字体默认、大小为小三，通过单击窗体触发程序运行。 图5-1 Private Sub Form_Click() Dim a(9) As Integer, max%, min%, ave! Randomize max = 30: min = 100: ave = 0 For i = 0 To 9 a(i) = Int(Rnd * 71 + 30) Print a(i); ave = ave + a(i) If a(i) max Then max = a(i) If a(i) min Then min = a(i) Next i ave = ave / 10 Print Print Max=; max, Min=; min, Ave=; Format(ave, 0.0) End Sub 已知6个学生的成绩，通过Array函数对数组赋初值，利用String函数，以每5分用一个“◆”符号显示，随后显示学生的成绩。要求：窗体中所有控件字体默认、大小为小四，计算结果在程序启动时立即在窗体中显示。效果如图5-2所示。 图5-2 Private Sub Form_Load() Dim Mark As Variant, i% Form1.Show Mark = Array(56, 78, 98, 88, 76, 78) For i = LBound(Mark) To UBound(Mark) Print String(Mark(i) \ 5, ◆); Mark(i) Print Next i End Sub 随机产生20个学生的成绩（整数），统计各分数段人数。即0～59、60～69、70～79、80～89、90～100，并显示结果，效果如图5-3所示。 要求：（1）单击按钮“产生并显示数据”按钮时，产生的数据在Picture1显示，单击“统计分数段人数”时，统计的结果在Picture2显示。 （2）学生成绩和统计结果分别放在两个不同的数组中。 （3）所有控件字体默认、大小为小四。 图5-3 Dim mark(1 To 20) As Integer Private Sub Command1_Click() Picture1.Cls Dim i%, j% Randomize For i = 1 To 20 mark(i) = Int(Rnd * 101) j = j + 1 Picture1.Print Tab((j - 1) * 6); mark(i); If j Mod 4 = 0 Then j = 0: Picture1.Print Next i End Sub Private Sub Command2_Click() Picture2.Cls Dim s(5 To 9) As Integer, i%, k% For i = 1 To 20 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 i = 5 To 9 If s(i) 0 Then Picture2.Print s(; i; ); 的人数有