为什么要判断k<m,k>m+1

最新推荐文章于 2024-05-25 10:08:54 发布

BIN1516

最新推荐文章于 2024-05-25 10:08:54 发布

阅读量759

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/BIN1516/article/details/51693374

本文介绍了一个使用Visual Basic编写的程序，该程序能够在一个二维数组中查找鞍点。鞍点是指在一个矩阵中，某一行的最大值同时也是所在列的最小值的元素。程序通过随机填充数组并显示其内容，然后找出每一行的最大值，并检查这些最大值是否同时为所在列的最小值。

Option Base 1
Dim anma() As Integer
Dim m As Byte, n As Byte
Private Sub Command1_Click()
Cls
Me.Font.Size = 30
m = 5: n = 6
ReDim anma(m, n)
Dim i As Integer, j As Integer
For i = 1 To m
    For j = 1 To n
    anma(i, j) = 10 + Int(Rnd() * 90)
    Next j
Next i
For i = 1 To m
For j = 1 To n
Print anma(i, j); Spc(3);
Next j
Print
Next i
Dim row_max As Integer, column_max As Byte
For i = 1 To m
row_msx = anma(i, 1)
column_max = 1
For j = 2 To n
If anma(i, j) > row_man Then
row_max = anma(i, j)
column_max = j
End If
Next j
For k = 1 To m
If anma(k, column_max) < row_max Then
Exit For
End If
Next k
If k = m + 1 Then
Print "鞍点：" & i & "," & column_max
End If
Next i
End Sub