实验E+数组答案.docVIP

实验E 数组答案 1、随机产生30~100（包括30、100）的10个正整数，求最大值、最小值、平均值，并显示整个数组的值和结果，如图E.1所示。 程序： Private Sub Command1_Click() Dim a(1 To 10) As Integer Dim i%, max%, min%, sum!, avg! For i = 1 To 10 随机产生10个30~100之间的随机数存放在一维数组a中 a(i) = Int(Rnd * (100 - 30 + 1)) + 30 sum = sum + a(i) 所有元素求和 Print a(i); Next i Print avg = sum / 10 max = a(1): min = a(1) 设定擂主 For i = 1 To 10 If a(i) max Then max = a(i) If a(i) min Then min = a(i) Next i Print Max=; max; Min=; min; Avg=; avg End Sub 2、已知6个学生的成绩，通过对数组赋初值的方法，利用String函数，以每5分为一个“◆”显示，并显示学生的成绩，如图E.2所示。 程序： Option Base 1 Private Sub Command1_Click() Dim a()