VFP代码:
Create Cursor tt (ti n(1),tj n(1),ixj n(2),ipj n(2))
For i= 2 To 9
For j=2 To 9
If i=j
Loop
Endif
locate for ti=j And tj=i
If Found()
Loop
Endif
Insert Into tt Values (i,j,i*j,i+j)
Endfor
Endfor
Select ixj,Count(ixj) as xn From tt Into Cursor t1 Group By ixj Having xn=1
Select t1
Scan
Select tt
Delete For ixj=t1.ixj
Select t1
Endscan
Select ipj,Count(ipj) as xn From tt Into Cursor t1 Group By ipj Having xn=1
Select t1
Scan
Select tt
Delete For ipj=t1.ipj
Select t1
Endscan
Use In t1
Select tt
Browse