vb题(终极版).docxVIP

63下面的程序段，用于实现在一个nXm的矩阵中，找出值最大的元素所在的行和列，并输出其值及行号和列号。Private Sub Form_Click()Dim mat() As IntegerDim n As Integer, m As Integern = Val(InputBox(请输入矩阵的行数))m = Val(InputBox(请输入矩阵的列数))**********FILL**********?ReDim?mat(n,?m)?As?IntegerFor i = 1 To n For j = 1 To m mat(i, j) = InputBox(请输入数组元素值) mat(i, j) = Val(mat(i, j)) Next jNext iPrint 所建立的矩阵为For i = 1 To n For j = 1 To m Print mat(i, j); Next j PrintNext iMax = mat(1, 1)For i = 1 To n For j = 1 To m**********FILL********** If ?Max??mat(i,?j) Then Max = mat(i, j) col = j**********FILL********** ?row?=?i End If Next jNext iPrintPrint 矩阵最大的元素的值为：;