二维数组的鞍点

二维数组m*n的鞍点

一：实验目的

设计vb程序，找到二维数组m*n中的鞍点。

二：实验内容

1.打开vb。

2.单击工具栏中的commandbutton,在form1上单击左键出现commandbutton。

3.单击commandbutton开始编写代码。

程序代码

注：括号内为解释说明。

Option Base 1

（'m*n的二维数组，m行,n列）

Dim anma() As Integer

Dim m As Byte, n As Byte

Private Sub Command1_Click()

   Cls

   Me.Font.Size = 8

    （'生成二维数组）

    （'Dim m AsByte,n As Byte）

    m= 5: n = 6

   ReDim anma(m, n)

    （'此时数组里全是“0”）

    （'我们用一个双重循环来赋初值）

    （'i--m,j—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)

           （'print(anma(i,j)；Spc（3）)

           Next j

           （'print）

       Next i

       

      （ '在窗体上输出已存在的二维数组）

       （'Dim i As Byte,j As Byte）

       For i = 1 To m

           For j = 1 To n

                （'anma(i,j)=10+nt(rnd*90)）

                Print anma(i, j); Spc(3)

           Next j

           Print

       Next i

       'k------?

       （'对数组进行分析）

       （'row-max表示当前行上的最大值）

        （'column-max表示所找到的最大值所在的列号）

       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

       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

4.编写完代码后点击运行即可出现数组。

三、实验心得

如果k<m则找不到鞍点，但K>m+1找得到鞍点