VB中的二维鞍点

最新推荐文章于 2018-10-30 22:22:54 发布

cai18732646484

最新推荐文章于 2018-10-30 22:22:54 发布

阅读量1.4k

点赞数

本文链接：https://blog.youkuaiyun.com/cai18732646484/article/details/51569141

版权

这篇博客介绍了如何使用VB编程找出二维数组中的鞍点。通过定义二维数组并填充随机数，然后遍历数组找到每一行的最大值及其对应列的最小值，从而确定鞍点。博主强调了在判断鞍点条件时，k与m的关系是关键，当k等于m+1时，表示找到了鞍点。

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

今天学习了用vb的程序输出一个二维鞍点，程序如下：

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 Byte, j As Byte
    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_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