Option Base 1
Private Sub Command1_Click()
Cls
Me.Font.Size = 30
Dim anma() As Integer
Dim m As Integer, n As Integer
m = 5: n = 6
ReDim anma(m, n)
Dim i As Integer, j As Integer
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 Integer
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
Private Sub Command1_Click()
Cls
Me.Font.Size = 30
Dim anma() As Integer
Dim m As Integer, n As Integer
m = 5: n = 6
ReDim anma(m, n)
Dim i As Integer, j As Integer
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
Next i
Dim row_max As Integer, column_max As Integer
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
一.实验问题及解决方法
因刚开始编写程序匆忙,很多字母没有定义,仔细检查后,定义了所有的字母,中间有许多程序都不会编码,在网上找到参考后,略懂一点,在这次程序中,我了解到pubilc sub这种大的范围声明,了解了情况的分类和列举,打程序时,很多情况都没考虑到,很多东西都是找的网上参考才使程序完整。