Question

随机产生一个5行5列的二维数组（每个元素为10以内的整数），然后将他们以矩阵形式输出。

并计算矩阵中的最大值及位置。
用VB做的哦 您可以帮我做一下吗 我急用 非常感谢您~

Answer 1

Private Sub Command1_Click()
Dim a%(4, 4), i%, j%, mi%, mj%
For i = 0 To 4: For j = 0 To 4
a(i, j) = Int(Rnd() * 10)
Next j: Next i

For i = 0 To 4: For j = 0 To 4
Print a(i, j);
Next j: Print: Next i

Max = 0
For i = 0 To 4: For j = 0 To 4
If a(i, j) > Max Then Max = a(i, j): mi = i: mj = j
Next j: Print: Next i

Print Max; "Max At:"; mi + 1, mj + 1
End Sub