local i,n0,n1,n2,r0
n0=0
n1=0
n2=0
r0=0
for i=1 to 6 if xy[i]=x0 n0=n0+1 if n0>x0 r0=1 exit endif endif if xy[i]=x1 n1=n1+1 if n1>x1 r0=1 exit endif endif if xy[i]=x2 n2=n2+1 if n2>x2 r0=1 exit endif endif
endfor
* BOX的值,就是返回值,.f.就不行,.t.就可以
messagebox(IIF(r0=0,(n0=x0 and n1=x1 and n2=x2),.f.))