VB复习题(带答案)(1).docxVIP

程序填空 1、’功能：要求输入若干学生的成绩，计算平均分和高于平均分的人数，并将这两个数据放入数 组的最后。 Private Sub Form_Click() Dim mark() As Integer, i%, n%, aver n = lnputBox(输入学生的人数) ReDim mark(1 To n) aver = 0 For i = 1 To n mark(i) = Int(Rnd * 101) aver = aver + mark(i) Next i **********Space********** preserve ReDim【？】 mark(1 To n + 2)增加两个元素，存放平均分和高于平均分的人数，原来的学生成绩仍保留 mark(n + 1) = aver / n mark(n + 2) = 0 For i = 1 To n ********** *SPACE ********** If mark(i) mark(【？】)Then mark(n + 2) = mark(n + 2) + 1 n+1 Next i For i = 1 To n Print mark(; i; )=; mark(i) Next i Print 平均分=;mark(n + 1),高于平均分人数 =;mark(n + 2) End Sub 2、功能：以下程序的功能如 (图1)。