首页
相册
注册
登录
由 一品明灯 2010-03-03, 12:45精彩的生活从此开始，敬请耐心等待。
一品彩霞
精彩论坛会一天比一天红火，不会让大家失望
一品彩霞
精彩论坛会一天比一天红火，不会让大家失望+2
Admin
一品明灯
6 posters
一品明灯杀号程序软件下载
miker2009- 普通会员
- 帖子数 : 6
积分 : 10
威望 : 0
注册日期 : 10-03-23
一品明灯 写道:精彩的生活从此开始，敬请耐心等待。
一品彩霞
谢谢你！辛苦了。
tkltkl7676- 普通会员
- 帖子数 : 1
积分 : 1
威望 : 0
注册日期 : 10-05-04
'=================================================
'3d?????? BY tkltkl7676@163.com
'=================================================
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
'?????????????????????
'3d?????? BY tkltkl7676@163.com
'=================================================
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
'?????????????????????
