源代码文档格式.docx
- 文档编号:20441112
- 上传时间:2023-01-23
- 格式:DOCX
- 页数:14
- 大小:15.74KB
源代码文档格式.docx
《源代码文档格式.docx》由会员分享,可在线阅读,更多相关《源代码文档格式.docx(14页珍藏版)》请在冰豆网上搜索。
A(24)=Val(Text24.Text)
A(25)=Val(Text25.Text)
A(26)=Val(Text26.Text)
A(27)=Val(Text27.Text)
A(28)=Val(Text28.Text)
A(29)=Val(Text29.Text)
A(30)=Val(Text30.Text)
A(31)=Val(Text31.Text)
A(32)=Val(Text32.Text)
A(33)=Val(Text33.Text)
A(34)=Val(Text34.Text)
A(35)=Val(Text35.Text)
A(36)=Val(Text36.Text)
A(37)=Val(Text37.Text)
A(38)=Val(Text38.Text)
A(39)=Val(Text39.Text)
A(40)=Val(Text40.Text)
A(41)=Val(Text41.Text)
A(42)=Val(Text42.Text)
A(43)=Val(Text43.Text)
A(44)=Val(Text44.Text)
A(45)=Val(Text45.Text)
A(46)=Val(Text46.Text)
A(47)=Val(Text47.Text)
A(48)=Val(Text48.Text)
A(49)=Val(Text49.Text)
A(50)=Val(Text50.Text)
A(51)=Val(Text51.Text)
A(52)=Val(Text52.Text)
Callsub101
Callsub201
Callsub301
Callsub401
Callsub501
List1.AddItem"
-WHX制作-仅供参考-"
2009-09-09"
EndSub
PrivateSubsub101()
站位:
"
Fori=5To8
Forj=9To20
S1=A(i)+A(j)
Callsub102
Nextj
Nexti
PrivateSubsub102()
Forl=9To19
Form=l+1To20
S2=A(l)+A(m)
Ifj<
>
lAndj<
mAndAbs(S2-S1)Mod5=0ThenCallsub103
Nextm
Nextl
PrivateSubsub103()
Forp=1To3
IfAbs(A(i+8*p)+A(j+8*p)-A(l+8*p)-A(m+8*p))Mod5<
0ThenExitSub
Nextp
IfAbs(A(i+8*p)+A(j+8*p)-A(l+8*p)-A(m+8*p))Mod5<
0Then
List1.AddItem"
A("
&
m&
"
)"
+"
l&
="
j&
i&
List1.AddItemA(m+8*(p-1))&
、"
A(l+8*(p-1))&
合"
(A(m+8*(p-1))+A(l+8*(p-1)))Mod10&
,"
A(j+8*(p-1))&
A(i+8*(p-1))&
(A(j+8*(p-1))+A(i+8*(p-1)))Mod10
List1.AddItemA(m+8*(p-2))&
A(l+8*(p-2))&
(A(m+8*(p-2))+A(l+8*(p-2)))Mod10&
A(j+8*(p-2))&
A(i+8*(p-2))&
(A(j+8*(p-2))+A(i+8*(p-2)))Mod10
List1.AddItemA(m+8*(p-3))&
A(l+8*(p-3))&
(A(m+8*(p-3))+A(l+8*(p-3)))Mod10&
A(j+8*(p-3))&
A(i+8*(p-3))&
(A(j+8*(p-3))+A(i+8*(p-3)))Mod10
List1.AddItemA(m+8*(p-4))&
A(l+8*(p-4))&
(A(m+8*(p-4))+A(l+8*(p-4)))Mod10&
A(j+8*(p-4))&
A(i+8*(p-4))&
(A(j+8*(p-4))+A(i+8*(p-4)))Mod10
List1.AddItemA(m+8*(p-5))&
A(l+8*(p-5))&
(A(m+8*(p-5))+A(l+8*(p-5)))Mod10&
A(j+8*(p-5))&
i-4&
(A(m+8*(p-5))+A(l+8*(p-5))+5)Mod10
EndIf
PrivateSubsub201()
合分:
Forj=i+1To8
Callsub202
PrivateSubsub202()
IfAbs(S2-S1)Mod5=0ThenCallsub203
PrivateSubsub203()
j-4&
PrivateSubsub301()
Fori=5To7
Callsub302
PrivateSubsub302()
Forl=i+1To8
Form=9To20
Ifm<
jAndAbs(S2-S1)Mod5=0ThenCallsub303
PrivateSubsub303()
+"
l-4&
_"
PrivateSubsub401()
近十三期冷热码统计:
Fori=0To9
p=0
Forj=1To52
IfA(j)=iThenp=p+1
Nextj
List1.AddItemi&
字出现的次数是"
p&
次"
PrivateSubsub501()
近十三期大小单双统计:
Fori=1To4
q=0
r=0
s=0
Forj=1To13
IfA(4*(j-1)+i)>
=5Thenp=p+1Elseq=q+1
IfA(4*(j-1)+i)Mod2<
0Thenr=r+1Elses=s+1
Callsub502
PrivateSubsub502()
位出大"
次"
小"
q&
单"
r&
双"
s&
PrivateSubCommand2_Click()
Text1.Text="
Text2.Text="
Text3.Text="
Text4.Text="
Text5.Text="
Text6.Text="
Text7.Text="
Text8.Text="
Text9.Text="
Text10.Text="
Text11.Text="
Text12.Text="
Text13.Text="
Text14.Text="
Text15.Text="
Text16.Text="
Text17.Text="
Text18.Text="
Text19.Text="
Text20.Text="
Text21.Text="
Text22.Text="
Text23.Text="
Text24.Text="
Text25.Text="
Text26.Text="
Text27.Text="
Text28.Text="
Text29.Text="
Text30.Text="
Text31.Text="
Text32.Text="
Text33.Text="
Text34.Text="
Text35.Text="
Text36.Text="
Text37.Text="
Text38.Text="
Text39.Text="
Text40.Text="
Text41.Text="
Text42.Text="
Text43.Text="
Text44.Text="
Text45.Text="
Text46.Text="
Text47.Text="
Text48.Text="
Text49.Text="
Text50.Text="
Text51.Text="
Text52.Text="
List1.Clear
Command1.Enabled=False
Text1.SetFocus
PrivateSubCommand3_Click()
End
PrivateSubText1_Change()
Text2.SetFocus
PrivateSubText2_Change()
Text3.SetFocus
PrivateSubText3_Change()
Text4.SetFocus
PrivateSubText4_Change()
Text5.SetFocus
PrivateSubText5_Change()
Text6.SetFocus
PrivateSubText6_Change()
Text7.SetFocus
PrivateSubText7_Change()
Text8.SetFocus
PrivateSubText8_Change()
Text9.SetFocus
PrivateSubText9_Change()
Text10.SetFocus
PrivateSubText10_Change()
Text11.SetFocus
PrivateSubText11_Change()
Text12.SetFocus
PrivateSubText12_Change()
Text13.SetFocus
PrivateSubText13_Change()
Text14.SetFocus
PrivateSubText14_Change()
Text15.SetFocus
PrivateSubText15_Change()
Text16.SetFocus
PrivateSubText16_Change()
Text17.SetFocus
PrivateSubText17_Change()
Text18.SetFocus
PrivateSubText18_Change()
Text19.SetFocus
PrivateSubText19_Change()
Text20.SetFocus
PrivateSubText20_Change()
Text21.SetFocus
PrivateSubText21_Change()
Text22.SetFocus
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 源代码