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

dim i,j,max,maxi,maxj
dim a(1 to n,1 to m)
'给数组赋值省略.....
max=a(1,1)
for i=1 to n
for j=1 to m
if max<=a(i,j) then
max=a(i,j)
maxi=i
maxj=j
end if
next
next
msgbox"最大元素是：" & max & "它所在行是：" & maxi & "所在列是：" & maxj

上面的n,m要换成你的实际数值才行
例子：
Option Explicit

Private Sub Command2_Click()
Cls
Dim i, j, max, maxi, maxj
Dim a(1 To 4, 1 To 5)
Dim x, y As Integer
For x = 1 To 4
For y = 1 To 5
Randomize
a(x, y) = Int(Rnd * 100)
Print a(x, y) & vbTab;
Next
Print
Next
max = a(1, 1)
For i = 1 To 4
For j = 1 To 5
If max <= a(i, j) Then
max = a(i, j)
maxi = i
maxj = j
End If
Next
Next
MsgBox "最大元素是：" & max & "它所在行是：" & maxi & "所在列是：" & maxj
End Sub