VB复习题(带答案).docVIP

程序填空 1、功能：要求输入若干学生的成绩，计算平均分和高于平均分的人数，并将这两个数据放入数组的最后。 Private Sub Form_Click() Dim mark() As Integer, i%, n%, aver n = InputBox(输入学生的人数) 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)。 Private Sub Form_Click() Dim a%, b%, c%, d!, x1, x2, p, q, r a = InputBox(请输入a的值) b = InputBox(请输入b的值) c = InputBox(请输入c的值) d = b * b - 4 * a * c p = -b / (2 * a) If d = 0 Then **********SPACE********** If 【?】 Then d0 r = Sqr(d) / (2 * a) x1 = p + r x2 = p - r Else x1 = p x2 = p **********SPACE********** 【?】 end if Print x1=; x1, x2=; x2 **********SPACE********** 【?】 else q = Sqr(-d) / (2 * a) Print x1=; p; +; q; i, x2=; p; -; q; i End If End Sub 3、功能：以下程序用于判断一个正整数（≥3）是否为素数。 Private Sub Form_Click() n = InputBox(请输入一个正整数（≥3）) k = Int(Sqr(n)) i = 2 swit = 0 **********SPACE********** Do While i = k And 【?】 swit=0 **********SPACE********** If 【?】 Then n mod i=0 swit = 1 Else **********SPACE********** 【?】 i=i+1 End If Loop If swit = 0 Then Print n; 是一个素数 Else Print n; 不是素数 End If End Sub 4、功能：下面的程序段，用于实现在一个nXm的矩阵中，找出值最大的元素所在的行和列，并输出其值及行号和列号。 Private Sub Form_Click() Dim mat() As Integer Dim n as integer, m As Integer n = Val(InputBox(请输入矩阵的行数)) m = Val(InputBox(请输入矩阵的列数)) **********SPACE********** 【?】 ReDim mat(n,m) As Integer For i = 1 To n For j = 1 To m mat(i, j) = InputBox(请输入数组元素值) mat(i, j) = Val(mat(i, j)) Next j Next i Print 所建立的矩阵为 For i = 1 To n For j = 1 To m Print mat(i, j); Next j Print Next i Max = mat(1, 1) For i = 1 T