VB求鞍点的问题？？
用怎么求鞍点啊？各位有空请帮忙看看！！[此贴子已经被作者于2007-4-28 0:17:50编辑过]
找到了，贴上大家看看:
For i = 0 To m - 1 '数组的行数控制
a = i '每一行确定第一个数，如果下面没有比这个大的数，那么max将为第一个数
b = 0
max = array(i, 0)
For j = 1 To n - 1 '数组的列数控制
If max < array(i, j) Then '进行比较交换与记录下标
max = array(i, j)
a = i
b = j
End If
Next
finish = True '控制列之间的比较，并决定是否找到鞍点
For j = 0 To m - 1
If array(i, b) > array(j, b) Then finish = False
Next
If finish = True Then Label1.Text += "array(" + CStr(a) + "," + CStr(b) + ")" + "=" + Str(array(a, b)) + vbCrLf '用label输出找到数据
Next
