程序填空例子..doc

以下程序的功能如图。 Private Sub Form_Click() Dim a%, b%, c%, d! Dim x1, x2 Dim 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 r = Sqr(d) / (2 * a) x1 = p + r x2 = p - r Else x1 = p x2 = p **********SPACE********** 【?】 Print x1=; x1, x2=; x2 **********SPACE********** 【?】 q = Sqr(-d) / (2 * a) Print x1=; p; +; q; i, x2=; p; -; q; i End If End Sub 『答 案』 1 d 0 或 0 d 2 End If 3 Else 以下程序用于判断一个正整数（≥3）是否为素数。 Private Sub Form_Click() N 2 N-1 2 INT(SQR(N)) n = InputBox(请输入一个正整数（≥3）) k = Int(Sqr(n)) i = 2 swit = 0 **********SPACE********** Do While i = k And 【?】 **********SPACE********** If 【?】 Then swit = 1 Else **********SPACE********** 【?】 End If Loop If swit = 0 Then Print n; 是一个素数 Else Print n; 不是素数 End If End Sub 『答 案』 1 swit = 0 2 n Mod i = 0 或 n/i = n\i 或 n/i = int(n/i) 3 i = i + 1 下面的程序段，用于实现在一个nXm的矩阵中，找出值最大的元素所在的行和列，并输出其值及行号和列号。 Private Sub Form_Click() Dim mat() As Integer Dim n As Integer, m As Integer n = Val(InputBox(请输入矩阵的行数)) m = Val(InputBox(请输入矩阵的列数)) **********SPACE********** 【?】 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 To n For j = 1 To m **********SPACE********** If 【?】 Then Max = mat(i, j) col = j **********SPACE********** 【?】 End If Next j Next i Print Print 矩阵最大的元素的值为：; mat(row, col) Print 它所在的行号为：; row; 列号为：; col End Sub 『答 案』 1 ReDim mat(n, m) As Integer 或 ReDim mat(n, m) 2 Max mat(i, j) 或 mat(i, j) Max 3 row = I 以下程序段用于实现矩阵转置，即将一个n×m的矩阵的行和列互换 Private Sub Form_Click() Const n = 3 Const m = 4 Dim a(n, m) As Integer, b(m, m) As Integer For I = 1 To n For j = 1 To m a(I, j) = Int(Rnd * 90) + 10