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

会计考友

补充代码
　　本程序的功能是在二维数组中查找鞍点元素，即该元素在所在行中为最大，且在所在列中为最小。在一个数组中可能存在，也可能不存在这样的元素。数组各元素的值从文件data.txt中读取。
3 h4 X; y! M: K4 f5 O) x) U以下是引用片段：
　　Private Sub Form_Click()
: M$ X0 U3 m* R# {- C) ]' I9 Y　　Dim a(3,3) As Integer,i As Integer,j As Integer
$ U  H4 J1 w+ E　　Dim maxvr As Integer,col As Integer, As Integer
! H- \* I0 M9 R, K1 T　　Open data.txt For Input As #1
　　For i=1 To 3
+ K4 t. ?# o! D4 J　　For j=1 To 3
$ X; @3 b4 f4 T4 k+ i　　Input #1,a(i,j)
　　Print a(i,j);
　　Next j
9 E. X* r9 t6 O0 O6 @8 u' K) Y! X　　Print
# f. p5 `* C$ m　　Next i
5 E! S# V% @; o" x　　For i=1 To 3
7 Z6 E' A8 S6 R; b% U. |% G5 c　　maxvr= (1)
9 c5 u) K1 i! x7 h3 `　　col=1
" F+ a* v" G9 z- ?: g8 @　　For j=2 To 3
# F0 R6 O0 z8 o8 h* b4 W, t: C　　If maxvr
　　maxvr= (2)
　　col=j
　　End If
0 J  V- u0 u/ h2 X" N' V$ {　　Next j
( _( g$ I* W" A# J( X# E5 f* S　　For j=1 To 3
5 x( ^. F+ G' u( P! _- a. N$ w7 X　　If maxvr>a(j,col) Then (3)
　　Next j