墨西哥黑帮视频:vb中的数组矩阵问题!!

来源:百度文库 编辑:高校问答 时间:2024/04/30 23:30:08
有一个n*m的矩阵,编写程序,找出其中最大的元素所在的行和列,并输出其
值及行号和列号!!

知道的麻烦说下哦 ,谢谢!!

设这个数组是arData
Dim Index1 As Integer,Index2 As Integer
Dim iReturn1 As Integer,iReturn2 As Integer
iReturn1 = LBound(arData,1)
iReturn2 = LBound(arData,2)
For Index1 = LBound(arData,1) To UBound(arData,1)
``For Index2 = LBound(arData,2) To UBound(arData,2)
````If arData(Index1,Index2) > arData(iReturn1,iReturn2) Then
``````iReturn1 = Index1
``````iReturn2 = Index2
````End If
``Next
Next
Print iReturn1,iReturn2