VB程序设计教程（第四版）

Question

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

Answer 1

无课本的人回答如下：
如希望准确回答，请给出课本上的代码和题目要求
Dim a(20, 30) As Single

Private Sub Command1_Click()
For i = 0 To 20
For j = 0 To 30
If Max < a(i, j) Then
Max = a(i, j)
Debug.Print a(i, j); i; j
End If
Next
Next

End Sub

Private Sub Form_Load() '对数组的定义，我自己用随机数做的，课本不一定这样，只是个例子
' n = 20
' m = 30
For i = 0 To n
For j = 0 To m
Randomize
a(i, j) = (Rnd * 1) * 100
Print a(i, j);
Next
Next

End Sub
debug的内容有多个，最后的一个就是最大值 和行、列
debug的哪一行也可以改成 text1=a(i,j) ; i ; j

有疑问可追问