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