源代码.docx
- 文档编号:7332465
- 上传时间:2023-01-23
- 格式:DOCX
- 页数:14
- 大小:15.74KB
源代码.docx
《源代码.docx》由会员分享,可在线阅读,更多相关《源代码.docx(14页珍藏版)》请在冰豆网上搜索。
源代码
DimA(52)AsInteger,iAsInteger,jAsInteger,lAsInteger,mAsInteger,nAsInteger
DimS1AsInteger,S2AsInteger
DimpAsInteger,qAsInteger,rAsInteger,sAsInteger
PrivateSubCommand1_Click()
A
(1)=Val(Text1.Text)
A
(2)=Val(Text2.Text)
A(3)=Val(Text3.Text)
A(4)=Val(Text4.Text)
A(5)=Val(Text5.Text)
A(6)=Val(Text6.Text)
A(7)=Val(Text7.Text)
A(8)=Val(Text8.Text)
A(9)=Val(Text9.Text)
A(10)=Val(Text10.Text)
A(11)=Val(Text11.Text)
A(12)=Val(Text12.Text)
A(13)=Val(Text13.Text)
A(14)=Val(Text14.Text)
A(15)=Val(Text15.Text)
A(16)=Val(Text16.Text)
A(17)=Val(Text17.Text)
A(18)=Val(Text18.Text)
A(19)=Val(Text19.Text)
A(20)=Val(Text20.Text)
A(21)=Val(Text21.Text)
A(22)=Val(Text22.Text)
A(23)=Val(Text23.Text)
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制作-仅供参考-"
List1.AddItem"2009-09-09"
EndSub
PrivateSubsub101()
List1.AddItem"站位:
"
Fori=5To8
Forj=9To20
S1=A(i)+A(j)
Callsub102
Nextj
Nexti
EndSub
PrivateSubsub102()
Forl=9To19
Form=l+1To20
S2=A(l)+A(m)
Ifj<>lAndj<>mAndAbs(S2-S1)Mod5=0ThenCallsub103
Nextm
Nextl
EndSub
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&")"&"+"&"A("&l&")"&"="&"A("&j&")"&"+"&"A("&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))&"、"&"A("&i-4&")"&"合"&(A(m+8*(p-5))+A(l+8*(p-5)))Mod10&"、"&(A(m+8*(p-5))+A(l+8*(p-5))+5)Mod10
List1.AddItem""
EndIf
EndSub
PrivateSubsub201()
List1.AddItem"合分:
"
Fori=5To8
Forj=i+1To8
S1=A(i)+A(j)
Callsub202
Nextj
Nexti
EndSub
PrivateSubsub202()
Forl=9To19
Form=l+1To20
S2=A(l)+A(m)
IfAbs(S2-S1)Mod5=0ThenCallsub203
Nextm
Nextl
EndSub
PrivateSubsub203()
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&")"&"+"&"A("&l&")"&"="&"A("&j&")"&"+"&"A("&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-4&")"&"、"&"A("&i-4&")"&"合"&(A(m+8*(p-5))+A(l+8*(p-5)))Mod10&"、"&(A(m+8*(p-5))+A(l+8*(p-5))+5)Mod10
List1.AddItem""
EndIf
EndSub
PrivateSubsub301()
Fori=5To7
Forj=9To20
S1=A(i)+A(j)
Callsub302
Nextj
Nexti
EndSub
PrivateSubsub302()
Forl=i+1To8
Form=9To20
S2=A(l)+A(m)
Ifm<>jAndAbs(S2-S1)Mod5=0ThenCallsub303
Nextm
Nextl
EndSub
PrivateSubsub303()
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&")"&"+"&"A("&l&")"&"="&"A("&j&")"&"+"&"A("&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-4&")"&"合"&"_"&","&A(j+8*(p-5))&"、"&"A("&i-4&")"&"合"&"_"
List1.AddItem""
EndIf
EndSub
PrivateSubsub401()
List1.AddItem"近十三期冷热码统计:
"
Fori=0To9
p=0
Forj=1To52
IfA(j)=iThenp=p+1
Nextj
List1.AddItemi&"字出现的次数是"&p&"次"
Nexti
List1.AddItem""
EndSub
PrivateSubsub501()
List1.AddItem"近十三期大小单双统计:
"
Fori=1To4
p=0
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
Nextj
Callsub502
Nexti
List1.AddItem""
EndSub
PrivateSubsub502()
List1.AddItemi&"位出大"&p&"次"&"小"&q&"次"&"单"&r&"次"&"双"&s&"次"
EndSub
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
EndSub
PrivateSubCommand3_Click()
End
EndSub
PrivateSubText1_Change()
Text2.SetFocus
EndSub
PrivateSubText2_Change()
Text3.SetFocus
EndSub
PrivateSubText3_Change()
Text4.SetFocus
EndSub
PrivateSubText4_Change()
Text5.SetFocus
EndSub
PrivateSubText5_Change()
Text6.SetFocus
EndSub
PrivateSubText6_Change()
Text7.SetFocus
EndSub
PrivateSubText7_Change()
Text8.SetFocus
EndSub
PrivateSubText8_Change()
Text9.SetFocus
EndSub
PrivateSubText9_Change()
Text10.SetFocus
EndSub
PrivateSubText10_Change()
Text11.SetFocus
EndSub
PrivateSubText11_Change()
Text12.SetFocus
EndSub
PrivateSubText12_Change()
Text13.SetFocus
EndSub
PrivateSubText13_Change()
Text14.SetFocus
EndSub
PrivateSubText14_Change()
Text15.SetFocus
EndSub
PrivateSubText15_Change()
Text16.SetFocus
EndSub
PrivateSubText16_Change()
Text17.SetFocus
EndSub
PrivateSubText17_Change()
Text18.SetFocus
EndSub
PrivateSubText18_Change()
Text19.SetFocus
EndSub
PrivateSubText19_Change()
Text20.SetFocus
EndSub
PrivateSubText20_Change()
Text21.SetFocus
EndSub
PrivateSubText21_Change()
Text22.SetFocus
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 源代码