06-08年等级考试卷参考答案.docVIP

PAGE  PAGE 6 2008年春计算机等级考试参考答案(二级Visual Basic) 试题1~6（每小题3分） 12345678BADADACB910111213141516CDABBACD1718192021222324ABBCDCBA试题7（28分） Private Sub Command1_Click() Dim i As Integer, v As Single, x As Single, y As Single Dim a(1 To 10) As Single For i = 1 To 10 a(i) = InputBox(请输入实数a( i )) Next i v = f(a(), 10) Print 平均值为：; v x = Abs(a(1) - v) For i = 2 To 10 If Abs(a(i) - v) x Then x = Abs(a(i) - v) y = a(i) End If Next i Print 所要求的数组元素为：; y End Sub Public Function f(b() As Single, n As Intege