vb求最大值的问题

来源：百度知道 编辑：UC知道 时间：2024/05/16 05:01:57
有一个m乘n的矩阵,用vb编写程序,找出其中最大的元素所在的行和列,并输出其值及行号和列号.

假设矩阵为一个数组a(1 to m,1 to n)
Sub Max()
Dim b() As Single, maxx As Single
For i = 1 To m
b(i) = a(i, 1)
For j = 1 To n
If b(i) <= a(i, j) Then b(i) = a(i, j):kk=i
Next j
Next i
maxx = b(1)
For k = 1 To m
If maxx <= b(k) Then maxx = b(k)
Next k
Print "最大值为：" & maxx & "行号为：" & k & "列号为：" & kk
End Sub

冒泡法