数组比较，大侠出手,该如何处理
数组比较，大侠出手
数组a(22,5),b(22,5),变量T，
当a（1,1)=b（1,1),a（1,2)=b（1,2),a（1,3)=b（1,3),a（1,4)=b（1,4),a（1,5)=b（1,5),
a（2,1)=b（2,1),a（2,2)=b（2,2),a（2,3)=b（2,3),a（2,4)=b（2,4),a（2,5)=b（2,5),
....
....
....
a（22,1)=b（22,1),a（22,2)=b（22,2),a（22,3)=b（22,3),a（22,4)=b（22,4),a（22,5)=b（22,5),
时T=0，只要有1个不相等，T=1
FOR循环好做
但是do while 怎么做呢？
------解决方案--------------------
------解决方案--------------------
T=0
I=1
J=ALEN(A)
DO WHILE .T.
IF A(I)=B(I)
T=1
EXIT
ENDIF
I=I+1
IF I>J
EXIT
ENDIF
ENDDO
数组a(22,5),b(22,5),变量T，
当a（1,1)=b（1,1),a（1,2)=b（1,2),a（1,3)=b（1,3),a（1,4)=b（1,4),a（1,5)=b（1,5),
a（2,1)=b（2,1),a（2,2)=b（2,2),a（2,3)=b（2,3),a（2,4)=b（2,4),a（2,5)=b（2,5),
....
....
....
a（22,1)=b（22,1),a（22,2)=b（22,2),a（22,3)=b（22,3),a（22,4)=b（22,4),a（22,5)=b（22,5),
时T=0，只要有1个不相等，T=1
FOR循环好做
但是do while 怎么做呢？
------解决方案--------------------
T=0
For lnI=1 To 22
For lnJ=1 To 5
If a(lnI,lnJ)<>b(lnI,lnJ)
T=1
Exit
Endif
Endfor
If T=1
Exit
Endif
Endfor
------解决方案--------------------
T=0
I=1
J=ALEN(A)
DO WHILE .T.
IF A(I)=B(I)
T=1
EXIT
ENDIF
I=I+1
IF I>J
EXIT
ENDIF
ENDDO