A1=0
           B1=0
           Num1=0
           for u=1 to 4
               sele zifubiao1
               go u
               X=cnt_zifu11
               A1=A1+cnt_zifu11
               C=zifu11
               for v=1 to 4
                   sele zifubiao2
                   go v
                   Y=cnt_zifu12
                   B1=B1+cnt_zifu12
                   D=zifu12
                   SET EXACT OFF
                   if C=D=.T.
                      Num1=Num1+min(X,Y)
                   endif  
               endfor   
           endfor
           xiangsidu1=2*Num1/(A1+B1)
           ?xiangsidu1

循环次数好像老是不对，感觉是X和Y赋值的语句的问题

[此贴子已经被作者于2016-6-7 20:51编辑过]