📄 form1.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form Form1
AutoRedraw = -1 'True
BorderStyle = 1 'Fixed Single
Caption = "大奖号码产生器"
ClientHeight = 8280
ClientLeft = 6585
ClientTop = 3540
ClientWidth = 8445
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 8280
ScaleWidth = 8445
Begin MSComctlLib.ProgressBar PBar1
Height = 315
Left = 165
TabIndex = 26
Top = 6015
Width = 8175
_ExtentX = 14420
_ExtentY = 556
_Version = 393216
BorderStyle = 1
Appearance = 1
Scrolling = 1
End
Begin VB.CommandButton CmdZH
Caption = "人机组合"
BeginProperty Font
Name = "黑体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 4425
TabIndex = 25
Top = 5490
Width = 3915
End
Begin VB.Timer Timer1
Left = -60
Top = 7275
End
Begin VB.CommandButton CmdExit
Caption = "退 出"
Height = 345
Left = 6975
TabIndex = 24
Top = 7860
Width = 1365
End
Begin VB.CommandButton CmdCls
Caption = "清 除"
Height = 345
Left = 6975
TabIndex = 23
Top = 7395
Width = 1365
End
Begin VB.CommandButton CmdFS
Caption = "发 送"
Height = 345
Left = 5385
TabIndex = 22
ToolTipText = "将产生的号码发送到记事本"
Top = 7860
Width = 1365
End
Begin VB.CommandButton CmdCK
Caption = "查看概率"
Height = 345
Left = 5385
TabIndex = 21
ToolTipText = "统计各号码出现的次数"
Top = 7395
Width = 1365
End
Begin VB.CheckBox Ck4
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 4290
TabIndex = 20
Top = 7860
Width = 210
End
Begin VB.CheckBox Ck3
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 4290
TabIndex = 19
Top = 7380
Width = 240
End
Begin VB.TextBox Text2
Alignment = 1 'Right Justify
Height = 360
Left = 2175
MaxLength = 3
OLEDropMode = 2 'Automatic
TabIndex = 16
Text = "Tex"
Top = 7605
Width = 570
End
Begin VB.Frame Frame1
Caption = "彩票项目选择"
Height = 780
Left = 150
TabIndex = 10
Top = 6465
Width = 8190
Begin VB.CheckBox Ck2
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 4455
TabIndex = 13
Top = 315
Width = 285
End
Begin VB.CheckBox Ck1
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 240
TabIndex = 11
Top = 375
Width = 270
End
Begin VB.Label Lab2
Caption = "电脑福利彩票（32选7）"
Height = 270
Left = 4860
TabIndex = 14
Top = 330
Width = 2550
End
Begin VB.Label Lab1
Caption = "电脑体育彩票（36选7）"
Height = 270
Left = 645
TabIndex = 12
Top = 345
Width = 2550
End
End
Begin VB.CommandButton CmdRnd
Caption = "随机选号"
BeginProperty Font
Name = "黑体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 150
TabIndex = 9
Top = 5490
Width = 3915
End
Begin VB.CommandButton Cmdstart
Caption = "机 选 开 始"
BeginProperty Font
Name = "黑体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 135
TabIndex = 8
Top = 4950
Width = 8205
End
Begin VB.TextBox Text1
BackColor = &H00C0FFFF&
BeginProperty Font
Name = "Arial"
Size = 42
Charset = 0
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 960
Index = 7
Left = 7245
MaxLength = 2
TabIndex = 7
Text = "Te"
Top = 150
Width = 1065
End
Begin VB.TextBox Text1
BackColor = &H00C0FFFF&
BeginProperty Font
Name = "Arial"
Size = 42
Charset = 0
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 960
Index = 6
Left = 6060
MaxLength = 2
TabIndex = 6
Text = "Te"
Top = 150
Width = 1065
End
Begin VB.TextBox Text1
BackColor = &H00C0FFFF&
BeginProperty Font
Name = "Arial"
Size = 42
Charset = 0
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 960
Index = 5
Left = 4875
MaxLength = 2
TabIndex = 5
Text = "03"
Top = 150
Width = 1065
End
Begin VB.TextBox Text1
BackColor = &H00C0FFFF&
BeginProperty Font
Name = "Arial"
Size = 42
Charset = 0
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 960
Index = 4
Left = 3690
MaxLength = 2
TabIndex = 4
Text = "Te"
Top = 150
Width = 1065
End
Begin VB.TextBox Text1
BackColor = &H00C0FFFF&
BeginProperty Font
Name = "Arial"
Size = 42
Charset = 0
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 960
Index = 3
Left = 2505
MaxLength = 2
TabIndex = 3
Text = "Te"
Top = 150
Width = 1065
End
Begin VB.TextBox Text1
BackColor = &H00C0FFFF&
BeginProperty Font
Name = "Arial"
Size = 42
Charset = 0
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 960
Index = 2
Left = 1320
MaxLength = 2
TabIndex = 2
Text = "Te"
Top = 150
Width = 1065
End
Begin VB.TextBox Text1
BackColor = &H00C0FFFF&
BeginProperty Font
Name = "Arial"
Size = 42
Charset = 0
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 960
Index = 1
Left = 135
MaxLength = 2
TabIndex = 1
Text = "Te"
Top = 150
Width = 1065
End
Begin VB.TextBox Textnum
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 3585
Index = 0
Left = 120
MultiLine = -1 'True
OLEDragMode = 1 'Automatic
ScrollBars = 2 'Vertical
TabIndex = 0
Text = "Form1.frx":0000
Top = 1260
Width = 8205
End
Begin VB.Label Lab5
Caption = "机选5注"
Height = 345
Left = 3240
TabIndex = 18
Top = 7860
Width = 840
End
Begin VB.Label Lab4
Caption = "机选1注"
Height = 330
Left = 3240
TabIndex = 17
Top = 7395
Width = 840
End
Begin VB.Label Lab3
Caption = "选择奖券注数数："
Height = 315
Left = 180
TabIndex = 15
Top = 7680
Width = 1920
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim num As Integer '定义彩票注数
Dim kind As Integer '定义彩票种类
Dim m As Integer '定义 随机 产生的彩票注数
Dim CP_num(1 To 999) As String '定义彩票号码组 的 数组
Dim sp(1 To 36) As Integer '定义彩票号码1-36出现的次数
Dim p As Integer, q As Integer, spx As Integer '定义概率统中使用的计变量
Dim X As Double '定义临时变量
Dim n(7) As String '定义号码数组--------即一组号码的7个数
Dim Y As String '定义临时号码变量
Dim s As String '定义注数序号
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -