📄 iowalotto.frm
字号:
Left = 4200
TabIndex = 31
Top = 3360
Width = 375
End
Begin VB.Label marlohits
Caption = "00"
Height = 495
Index = 9
Left = 8520
TabIndex = 30
Top = 2640
Width = 375
End
Begin VB.Label marlohits
Caption = "00"
Height = 495
Index = 8
Left = 8040
TabIndex = 29
Top = 2640
Width = 375
End
Begin VB.Label marlohits
Caption = "00"
Height = 495
Index = 7
Left = 7560
TabIndex = 28
Top = 2640
Width = 375
End
Begin VB.Label marlohits
Caption = "00"
Height = 495
Index = 6
Left = 7080
TabIndex = 27
Top = 2640
Width = 375
End
Begin VB.Label marlohits
Caption = "00"
Height = 495
Index = 5
Left = 6600
TabIndex = 26
Top = 2640
Width = 375
End
Begin VB.Label marlohits
Caption = "00"
Height = 495
Index = 4
Left = 6120
TabIndex = 25
Top = 2640
Width = 375
End
Begin VB.Label marlohits
Caption = "00"
Height = 495
Index = 3
Left = 5640
TabIndex = 24
Top = 2640
Width = 375
End
Begin VB.Label marlohits
Caption = "00"
Height = 495
Index = 2
Left = 5160
TabIndex = 23
Top = 2640
Width = 375
End
Begin VB.Label marlohits
Caption = "00"
Height = 495
Index = 1
Left = 4680
TabIndex = 22
Top = 2640
Width = 375
End
Begin VB.Label marlohits
Caption = "00"
Height = 495
Index = 0
Left = 4200
TabIndex = 21
Top = 2640
Width = 375
End
Begin VB.Label markhits
Caption = "00"
Height = 495
Index = 9
Left = 8520
TabIndex = 20
Top = 1920
Width = 375
End
Begin VB.Label markhits
Caption = "00"
Height = 495
Index = 8
Left = 8040
TabIndex = 19
Top = 1920
Width = 375
End
Begin VB.Label markhits
Caption = "00"
Height = 495
Index = 7
Left = 7560
TabIndex = 18
Top = 1920
Width = 375
End
Begin VB.Label markhits
Caption = "00"
Height = 495
Index = 6
Left = 7080
TabIndex = 17
Top = 1920
Width = 375
End
Begin VB.Label markhits
Caption = "00"
Height = 495
Index = 5
Left = 6600
TabIndex = 16
Top = 1920
Width = 375
End
Begin VB.Label markhits
Caption = "00"
Height = 495
Index = 4
Left = 6120
TabIndex = 15
Top = 1920
Width = 375
End
Begin VB.Label markhits
Caption = "00"
Height = 495
Index = 3
Left = 5640
TabIndex = 14
Top = 1920
Width = 375
End
Begin VB.Label markhits
Caption = "00"
Height = 495
Index = 2
Left = 5160
TabIndex = 13
Top = 1920
Width = 375
End
Begin VB.Label markhits
Caption = "00"
Height = 495
Index = 1
Left = 4680
TabIndex = 12
Top = 1920
Width = 375
End
Begin VB.Label markhits
Caption = "00"
Height = 495
Index = 0
Left = 4200
TabIndex = 11
Top = 1920
Width = 375
End
Begin VB.Label mark
Caption = " 00"
Height = 495
Left = 3120
TabIndex = 10
Top = 1920
Width = 615
End
Begin VB.Label heading
Caption = "Hit 5 4 3 2 1 5p 4p 3p 2p 1p 0p"
Height = 375
Left = 3600
TabIndex = 9
Top = 1440
Width = 6135
End
Begin VB.Label them
Caption = "00"
Height = 495
Left = 3240
TabIndex = 7
Top = 3960
Width = 615
End
Begin VB.Label us
Caption = "00"
Height = 495
Left = 3240
TabIndex = 6
Top = 3360
Width = 735
End
Begin VB.Label marlo
Caption = "00"
Height = 495
Left = 3240
TabIndex = 5
Top = 2640
Width = 615
End
Begin VB.Label marknmollyl
Caption = "MARK -N- MOLLY:"
Height = 495
Left = 120
TabIndex = 4
Top = 1920
Width = 3135
End
Begin VB.Label usl
Caption = "WORK:"
Height = 495
Left = 1920
TabIndex = 3
Top = 3360
Width = 1215
End
Begin VB.Label theml
Caption = "IBP:"
Height = 495
Left = 2400
TabIndex = 2
Top = 3960
Width = 735
End
Begin VB.Label Marlol
Caption = "MARLO:"
Height = 495
Left = 1800
TabIndex = 1
Top = 2640
Width = 1455
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Combos As Integer
Dim Combosus As Integer
Dim Combosthem As Integer
Dim Combosmarlo As Integer
Dim Combosmark As Integer
Dim Data(146) As String
Dim Power(146) As Integer
Dim Howmany(146) As Integer
Dim Firstnumber As Integer
Dim Secondnumber As Integer
Dim Thirdnumber As Integer
Dim Fourthnumber As Integer
Dim Fifthnumber As Integer
Dim Powernumber As Integer
Dim Winners(146) As Integer
Dim Uss As Integer
Dim Themm As Integer
Dim Marloo As Integer
Dim Markk As Integer
Dim Left2 As Integer
Private Sub Form_Load()
Form1.WindowState = 2
Combosus = 140
Combosthem = 3
Combosmarlo = 1
Combosmark = 2
Combos = Combosus + Combosthem + Combosmarlo + Combosmark
For x = 1 To Combos
Power(x) = 0
Howmany(x) = 0
Winners(x) = 1
Next x
Data(1) = "050609254233"
Data(2) = "010608384823"
Data(3) = "162729404739"
Data(4) = "031020293915"
Data(5) = "061021353609"
Data(6) = "152930314711"
Data(7) = "061422314907"
Data(8) = "242645464804"
Data(9) = "152224304521"
Data(10) = "142632384702"
Data(11) = "172025334816"
Data(12) = "142022343608"
Data(13) = "072428394814"
Data(14) = "203234434636"
Data(15) = "101140444511"
Data(16) = "011819324037"
Data(17) = "222324434423"
Data(18) = "061419363927"
Data(19) = "232941444532"
Data(20) = "293132424714"
Data(21) = "092030373920"
Data(22) = "020521363842"
Data(23) = "142334394801"
Data(24) = "081721314822"
Data(25) = "050823314140"
Data(26) = "032830354411"
Data(27) = "021617252627"
Data(28) = "020625324735"
Data(29) = "133233424802"
Data(30) = "091519203711"
Data(31) = "093032373918"
Data(32) = "233132444921"
Data(33) = "212627424935"
Data(34) = "081114334328"
Data(35) = "051522253940"
Data(36) = "061023354029"
Data(37) = "060741444829"
Data(38) = "101225273337"
Data(39) = "060809162132"
Data(40) = "113338394040"
Data(41) = "111435364332"
Data(42) = "071020384806"
Data(43) = "030709224906"
Data(44) = "030515254732"
Data(45) = "212324444801"
Data(46) = "020322404529"
Data(47) = "162433374031"
Data(48) = "020414183222"
Data(49) = "131723283926"
Data(50) = "072728294227"
Data(51) = "042023303430"
Data(52) = "192028334625"
Data(53) = "071031323910"
Data(54) = "030421374815"
Data(55) = "010920374040"
Data(56) = "012126414740"
Data(57) = "092728293506"
Data(58) = "030912212303"
Data(59) = "031820273815"
Data(60) = "031533404411"
Data(61) = "131932374830"
Data(62) = "022640434418"
Data(63) = "010629364828"
Data(64) = "223237434510"
Data(65) = "040725424833"
Data(66) = "111220224738"
Data(67) = "091625303804"
Data(68) = "161922284704"
Data(69) = "022536373836"
Data(70) = "041721394442"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -