计算机二级VB常用算法：补充代码

会计考友

补充代码
! c0 a; d6 q; x* A$ I　　本程序的功能是在二维数组中查找鞍点元素，即该元素在所在行中为最大，且在所在列中为最小。在一个数组中可能存在，也可能不存在这样的元素。数组各元素的值从文件data.txt中读取。
以下是引用片段：
8 T4 w" i2 |  {8 U. q/ k　　Private Sub Form_Click()
　　Dim a(3,3) As Integer,i As Integer,j As Integer
* t, x3 t6 f: U0 H　　Dim maxvr As Integer,col As Integer, As Integer
　　Open data.txt For Input As #1
　　For i=1 To 3
　　For j=1 To 3
　　Input #1,a(i,j)
　　Print a(i,j);
　　Next j
　　Print
　　Next i
  j/ f( b4 n# E4 s  `; y! S1 q' z　　For i=1 To 3
　　maxvr= (1)
　　col=1
) R/ d+ n5 m0 A" K　　For j=2 To 3
　　If maxvr
　　maxvr= (2)
+ t0 \, z, Y' v( q. U　　col=j
# V. z) y4 s6 _' p8 H　　End If
- a& h4 t$ Y+ Z) v; e% F2 r, P5 V　　Next j
, O; s, v( Y  C　　For j=1 To 3
　　If maxvr>a(j,col) Then (3)
2 l, y, Q6 M" w　　Next j