VB实验E 数组和自定义类型.docVIP

实验E 数组和自定义类型 一、实验目的 掌握数组的声明、数组元素的引用。 掌握固定长度数组和动态数组的使用差别。 掌握数组常用的操作和常用算法。 掌握列表和组合框的使用。 掌握自定义类型及数组的使用。 二、实验内容 随机产生30～100（包括30，100）的10个正整数，求最大值、最小值、平均值，并显示整个数组的值和结果，如图E11所示。 代码： 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 已知6个学生的成绩，通过对数组赋初值的方法，利用String函数，以每5分为一个“◆”显示，并显示学生的成绩，如图E2所示。 代码： Private Sub Form_Click() Dim s%(1 To 6), n% For i = 1 To 6 s(i) = Val(InputBox(请输入学生的成绩)) n = s(i) \ 5 Print String(n, ◆); s(i) Next i 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 随机产生10个2位数，按从大到小递减的顺序排列，并显示排序结果。 代码： Private Sub Form_Click() Dim s%(9) Print 排序前, For i = 0 To 9 s(i) = Int(Rnd * 90 + 10) Print s(i); Next i For n = 0 To 8 nmax = n For m = n + 1 To 9 If s(m) s(nmax) Then nmax = m Next m t = s(nmax): s(nmax) = s(n): s(n) = t Next n Print Print 排序前, For i = 0 To 9 Print s(i); Next i End Sub 参照教材例5.3，在通用声明段声明两个数组，利用随机函数形成如下两个数组： 60 57 50 52 121 111 131 131 A= 64 36 66 39 , B= 133 116 132 139 66 69 53 41 111 103 131 124 51 57 44 64 123 109 113 133 要求： 以下三角形显示A数组、上三角形式显示B数组。 求A数组主对角线元素之和和B数组副对角线