VB编程：有一个n*m的矩阵，编写程序，找出其中最大的那个元素所在的行和列，并输出其值及行号和列号。

以下是此题的【VB源代码】
Private Sub Form_Click()

Dim mat() As Integer
Dim n, m As Integer
n = InputBox("请输入矩阵的行数")
n = Val(n)
m = InputBox("请输入矩阵的列数")
m = Val(m)

ReDim mat(n, m) As Integer
For i = 1 To n
For j = 1 To m
mat(i, j) = InputBox("请输入数组第" & i & "行第" & j & "列元素值")
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
If Max < mat(i, j) Then
Max = mat(i, j)
col = j
row = i
End If
Next j
Next i
Print
Print "矩阵最大的元素的值为："; mat(row, col)
Print "它所在的行号为:"; row; ",列号为:"; col

End Sub

运行此VB源码后结果情况如下图所示：


新世纪计算机基础教育丛书 丛书主编：谭浩强
Visual Basic 程序设计教程 题解与上机指导（第四版） 刘炳文 编著

来源：visual basic程序设计教程第四版答案(刘炳文)

本文链接：http://www.wb98.com/vb1/post/vb_8.6.html