鞍点的寻找

鞍点的寻找

一，      实验目的：

①  掌握数组的声明和数组元素的引用。

②  掌握定长数组和动态数组的使用。

③  掌握数组的基本操作。

④  掌握过程的定义和调用。

二，      实验内容

找一个n*m的二维数组的鞍点。鞍点是指它在本行中数值最大。在本列中数值最小，也可能在一个数组中找不到鞍点。输入鞍点的行，列号，如无鞍点则输出“无鞍点”。

三，      实验步骤

❶在form中建立一个commandbutton按钮，在建立两个textbox.

❷编写代码

Option Base 1------通用


Private Sub Command1_Click()
Cls
Dim a() As Integer
Dim m As Byte, n As Byte
n = 5: m = 6
ReDim a(m, n)
Dim i As Byte, j As Byte
For i = 1 To m
    For j = 1 To n
      a(i, j) = 10 + Int(Rnd * 90)
      Print a(i, j); Spc(3);
    Next j
    Print
Next i
Dim row_max As Byte, column_max As Byte
For i = 1 To m
    row_max = a(i, 1)
    column_max = 1
    For j = 2 To n
        If (a(i, j) > row_max) Then
             row_max = a(i, j)
             column_max = j
        End If
             
    Next j
    For k = 1 To m------------------------------------------------------------------------------------------------------循环完了是k=m+1
        If a(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

五，心得体会

从一点都不会，到只会一点，慢慢的自己在网上，搜索，浏览别人的代码，丛书上查看二维数组的运用，一点一点的把最基本的看完，照着网上搜索的打，改了四五次，才可以使，不过他那比较费事，后来自己琢磨想到了比较简单一点的方法，这个真的很难，太费事儿，不过收获也不少，加油加油加油！！！