急求！！！高手解答关于VB编程的问题，谢谢！！

2024-12-30 21:07:27

推荐回答（3个）

回答1：

Dim ki As Long, kj As Long
Dim max As Double
max = 0
For ki = 0 To (n - 1)
For kj = 0 To (m - 1)
If Abs(x(ki, kj)) > max Then max = Abs(x(ki, kj))
j=a
y=b
End If
Next b
Next a
Print max "行为";j,"列为";y

回答2：

循环比较，貌似没有更好的办法。。

回答3：

Dim i As Long, j As Long, arr As Double
Dim max As Double
max = 0
For i = 0 To (n - 1)
For j = 0 To (m - 1)
If Abs(a(i, j)) > max Then
max = Abs(a(i, j))
End If
Next
Next
Print max