Question

求高手给做一VB变成题，谢谢！

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

Answer 1

Option base 1
private sub form_click()
dim ma() as integer
dim N,M as integer
N=inputbox("请输入矩阵的行数")
M=inputbox("请输入矩阵的列数")
dim ma(N,M) as integer
for i=1 to N
for j=1 to M
ma(i,j)=inputbox("请输入数组第"&str(i)&"行第"&str(j)&"列元素值")
next j
next i
print"所建的矩阵为："
for i=1 to N
for j=1 to M
print ma(i,j);
next j
print
next i
ma=ma(1,1)
for i=1 to N
for j=1 to M
if max<ma(i,j) then
max=ma(i,j)
column=j
row=i
end if
next j
next i
print
print"矩阵最大的元素的值为：";ma(row,column)
print"它所在的行号为：";row;",列号为：";column
end sub

Answer 2

Private Sub Form_click()
Dim n As Integer, m As Integer, a() As Variant, max As Integer
max = 0
n = Val(InputBox(""))
m = Val(InputBox(""))
ReDim a(n, m)
For i = 1 To n
For j = 1 To m
a(i, j) = Int(Rnd * 100)
Print a(i, j);
If a(i, j) > max Then max = a(i, j): x = i: y = j
Next
Print
Next
Print max, x, y
End Sub

Answer 3

一楼说的对