Private Sub Form_Click()Dim a(1 To 3, 1 To 4) As Integer, Max As Integer, Min As Integer, n As Integer,k As Integera(1, 1) = 1: a(1, 2) = 4: a(1, 3) = 9: a(1, 4) = 8a(2, 1) = 3: a(2, 2) = 4: a(2, 3) = 6: a(2, 4) = 1a(3, 1) = 7: a(3, 2) = 5: a(3, 3) = 8: a(3, 4) = 6"因为数阵有3行4列，所以下面i=3，j=4For i = 1 To 3 "下面的内循环寻找出i行里最大的数 Max = a(i, 1) For j = 1 To 4 If a(i, j) > Max Then Max = a(i, j) n = j "以n标记出最大数所处的列 End If Next j "下面的内循环寻找出n列里最小的数 Min = a(1, n) For k = 1 To 3 If a(k, n) < Min Then Min = a(k, n) Next k "如果两者吻合，则此数是鞍点 If Min = Max Then Print "鞍点处于a(" & i & "," & n & ")" End If Next iEnd Sub。