鞍点程序

最新推荐文章于 2021-05-24 20:10:57 发布

原创最新推荐文章于 2021-05-24 20:10:57 发布 · 348 阅读

0 ·

CC 4.0 BY-SA版权

本文介绍了一个使用Visual Basic编写的程序，该程序能够在一个指定大小的矩阵中找到所谓的鞍点。鞍点是指在矩阵中某一行上为最大值而在其所在列上又为最小值的元素。程序通过定义一个5行6列的二维数组并随机填充10到99之间的整数来模拟这一过程。之后，程序遍历这个数组以确定是否存在鞍点，并将其位置打印出来。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Option Base 1
Private Sub Command1_Click()
Cls
Me.Font.Size = 30
Dim anma() As Integer
Dim m As Integer, n As Integer
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 Integer
For i = 1 To m
    row_max = anma(i, 1)
    column_max = 1
    For j = 2 To n
        If anma(i, j) > row_max 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