3d两位位和过滤 BY TKLTKL7676

3d两位位和过滤 BY TKLTKL7676
'=================================================
CpFlt.Add "位置和值"

Function Main()
Pub_CodeCount = CpFlt.CodeCount
For i = 0 to CpFlt.RowCount-1
cnt = 0
cnt1 = 0

cnt=sqr((CpFlt.Code(i,0)+CpFlt.Code(i,1))&(CpFlt.Code(i,1)+CpFlt.Code(i,2))&(CpFlt.Code(i,0)+CpFlt.Code(i,2)))\1

For k = 0 to CpFlt.ConditionCount-1
If CpFlt.Checked(k,"位置和值",cnt) Then
cnt1 = cnt1+1
End If
Next

If CpFlt.LimitChecked(cnt1) then
else
CpFlt.Filter(i)
End if
Next

End Function