找出二维数组 n*m中的“鞍点”

找出二维数组 n*m中的“鞍点”

姓名：刘兆国
学号：15050342020
实验日期：2016.5.26
Private Sub Command1_Click()

Dim i As Integer, j As Integer, c As Integer, r As Integer

Dim n As Integer

cs1

xs

For i = 1 To 4

    For j = 1 To 4 Private Sub Command1_Click()

Dim i As Integer, j As Integer, c As Integer, r As Integer

Dim n As Integer

cs1

xs

For i = 1 To 4

    For j = 1 To 4

    If a(i, 0) < a(i, j) Then

    c = j

    a(i, 0) = a(i, j)

    End If

    Next

    n = 0

    For j = 1 To 4

        If a(i, 0) < a(j, c) Then

        Print "+";

        n = n + 1

        End If

    Next

    Print

    If n = 3 Then Print "a(" & i & "," & c & ")"; a(i, c)

Next

xs

End Sub

Public a(4, 4) As Integer

Public Sub xs()

Dim i As Integer, j As Integer

For i = 1 To 4

    For j = 0 To 4

    Form1.Print a(i, j); " ";

    Next

    Form1.Print

Next

End Sub

Public Sub cs0()

a(1, 1) = 1

a(1, 2) = 1

a(1, 3) = 1

a(1, 4) = 1

a(2, 1) = 1

a(2, 2) = 1

a(2, 3) = 1

a(2, 4) = 1

a(3, 1) = 1

a(3, 2) = 1

a(3, 3) = 1

a(3, 4) = 1

a(4, 1) = 1

a(4, 2) = 1

a(4, 3) = 1

a(4, 4) = 1

End Sub

Public Sub cs1()

a(1, 1) = 1

a(1, 2) = 2

a(1, 3) = 3

a(1, 4) = 4

a(2, 1) = 1

a(2, 2) = 1

a(2, 3) = 1

a(2, 4) = 5

a(3, 1) = 1

a(3, 2) = 1

a(3, 3) = 1

a(3, 4) = 6

a(4, 1) = 1

a(4, 2) = 1

a(4, 3) = 1

a(4, 4) = 7

End Sub

Public Sub cs2()

a(1, 1) = 1

a(1, 2) = 1

a(1, 3) = 5

a(1, 4) = 1

a(2, 1) = 1

a(2, 2) = 2

a(2, 3) = 4

a(2, 4) = 3

a(3, 1) = 1

a(3, 2) = 1

a(3, 3) = 6

a(3, 4) = 1

a(4, 1) = 1

a(4, 2) = 1

a(4, 3) = 7

a(4, 4) = 1

End Sub

Public Sub cs3()

a(1, 1) = 1

a(1, 2) = 5

a(1, 3) = 1

a(1, 4) = 1

a(2, 1) = 1

a(2, 2) = 4

a(2, 3) = 2

a(2, 4) = 3

a(3, 1) = 1

a(3, 2) = 6

a(3, 3) = 1

a(3, 4) = 1

a(4, 1) = 1

a(4, 2) = 7

a(4, 3) = 1

a(4, 4) = 1

End Sub

    If a(i, 0) < a(i, j) Then

    c = j

    a(i, 0) = a(i, j)

    End If

    Next

    n = 0

    For j = 1 To 4

        If a(i, 0) < a(j, c) Then

        Print "+";

        n = n + 1

        End If

    Next

    Print

    If n = 3 Then Print "a(" & i & "," & c & ")"; a(i, c)

Next

xs

End Sub

Public a(4, 4) As Integer

Public Sub xs()

Dim i As Integer, j As Integer

For i = 1 To 4

    For j = 0 To 4

    Form1.Print a(i, j); " ";

    Next

    Form1.Print

Next

End Sub

Public Sub cs0()

a(1, 1) = 1

a(1, 2) = 1

a(1, 3) = 1

a(1, 4) = 1

a(2, 1) = 1

a(2, 2) = 1

a(2, 3) = 1

a(2, 4) = 1

a(3, 1) = 1

a(3, 2) = 1

a(3, 3) = 1

a(3, 4) = 1

a(4, 1) = 1

a(4, 2) = 1

a(4, 3) = 1

a(4, 4) = 1

End Sub

Public Sub cs1()

a(1, 1) = 1

a(1, 2) = 2

a(1, 3) = 3

a(1, 4) = 4

a(2, 1) = 1

a(2, 2) = 1

a(2, 3) = 1

a(2, 4) = 5

a(3, 1) = 1

a(3, 2) = 1

a(3, 3) = 1

a(3, 4) = 6

a(4, 1) = 1

a(4, 2) = 1

a(4, 3) = 1

a(4, 4) = 7

End Sub

Public Sub cs2()

a(1, 1) = 1

a(1, 2) = 1

a(1, 3) = 5

a(1, 4) = 1

a(2, 1) = 1

a(2, 2) = 2

a(2, 3) = 4

a(2, 4) = 3

a(3, 1) = 1

a(3, 2) = 1

a(3, 3) = 6

a(3, 4) = 1

a(4, 1) = 1

a(4, 2) = 1

a(4, 3) = 7

a(4, 4) = 1

End Sub

Public Sub cs3()

a(1, 1) = 1

a(1, 2) = 5

a(1, 3) = 1

a(1, 4) = 1

a(2, 1) = 1

a(2, 2) = 4

a(2, 3) = 2

a(2, 4) = 3

a(3, 1) = 1

a(3, 2) = 6

a(3, 3) = 1

a(3, 4) = 1

a(4, 1) = 1

a(4, 2) = 7

a(4, 3) = 1

a(4, 4) = 1

End Sub

实验问题及解决方法

程序理解有误，经过向同学请求帮助后得以理解。

自己并不能去透彻得去编写程序，但明白程序的大体内容，后经参考其他同学帮助完成。

感想

Vb是一科逻辑性非常强的科目，仍需透彻研究，抓住并重视细节，再接再厉。