form1.frm

自己做的双色球手选,机选,功能程序.在windows xp 上测试通过可以正常使用

VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "双色球包号数据生成器"
   ClientHeight    =   3240
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6840
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   3240
   ScaleWidth      =   6840
   StartUpPosition =   2  '屏幕中心
   Begin VB.TextBox Text3 
      Height          =   270
      Left            =   6240
      TabIndex        =   19
      Text            =   "138"
      Top             =   2560
      Width           =   495
   End
   Begin VB.TextBox Text2 
      Height          =   270
      Left            =   6240
      TabIndex        =   17
      Text            =   "42"
      Top             =   2200
      Width           =   495
   End
   Begin VB.Data Data1 
      Connect         =   "Access"
      DatabaseName    =   "f:\Adlm\cp\hm.mdb"
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   345
      Left            =   2640
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "hm"
      Top             =   0
      Width           =   2055
   End
   Begin VB.TextBox Text1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000004&
      BorderStyle     =   0  'None
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   18
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   2535
      Left            =   40
      MultiLine       =   -1  'True
      TabIndex        =   7
      Text            =   "Form1.frx":0000
      Top             =   280
      Width           =   180
   End
   Begin VB.Timer Timer1 
      Left            =   4800
      Top             =   0
   End
   Begin VB.Label Label12 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "打印数据"
      ForeColor       =   &H80000008&
      Height          =   210
      Left            =   5880
      TabIndex        =   21
      Top             =   2880
      Width           =   855
   End
   Begin VB.Label Label9 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "保存数据"
      ForeColor       =   &H80000008&
      Height          =   210
      Left            =   4920
      TabIndex        =   20
      Top             =   2880
      Width           =   855
   End
   Begin VB.Label Label11 
      Caption         =   "数值和最小可能                  数值和最大可能"
      Height          =   615
      Left            =   4920
      TabIndex        =   18
      Top             =   2280
      Width           =   1455
   End
   Begin VB.Label Label10 
      Caption         =   "2、概率缩水"
      Height          =   255
      Left            =   4920
      TabIndex        =   16
      Top             =   2040
      Width           =   1215
   End
   Begin VB.Line Line5 
      X1              =   4920
      X2              =   6720
      Y1              =   1920
      Y2              =   1920
   End
   Begin VB.Shape Shape2 
      Height          =   210
      Left            =   4920
      Top             =   1680
      Width           =   1815
   End
   Begin VB.Label Label5 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FF8080&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "100%"
      ForeColor       =   &H00FFFFFF&
      Height          =   210
      Left            =   4920
      TabIndex        =   12
      Top             =   1680
      Width           =   855
   End
   Begin VB.Label Label8 
      Caption         =   "01010101010101"
      Height          =   255
      Left            =   5400
      TabIndex        =   15
      Top             =   1440
      Width           =   1335
   End
   Begin VB.Label Label7 
      Caption         =   "01010101010101"
      Height          =   255
      Left            =   5400
      TabIndex        =   14
      Top             =   1080
      Width           =   1335
   End
   Begin VB.Label Label6 
      BackStyle       =   0  'Transparent
      Caption         =   "读取      比较"
      Height          =   615
      Left            =   4920
      TabIndex        =   13
      Top             =   1080
      Width           =   495
   End
   Begin VB.Label Label4 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "开始"
      ForeColor       =   &H80000008&
      Height          =   195
      Left            =   6000
      TabIndex        =   11
      Top             =   720
      Width           =   735
   End
   Begin VB.Label Label3 
      Caption         =   "1、顺序缩水"
      Height          =   255
      Left            =   4920
      TabIndex        =   10
      Top             =   745
      Width           =   1095
   End
   Begin VB.Line Line4 
      X1              =   4920
      X2              =   6720
      Y1              =   600
      Y2              =   600
   End
   Begin VB.Label Label2 
      Caption         =   "    数据生成完成，请选择以下操作。"
      Height          =   375
      Left            =   4920
      TabIndex        =   9
      Top             =   120
      Width           =   1815
   End
   Begin VB.Line Line3 
      X1              =   4800
      X2              =   4800
      Y1              =   0
      Y2              =   3240
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Caption         =   "本程序所算数据仅供参考(作者:范毅 [e-mail])"
      Height          =   255
      Left            =   120
      TabIndex        =   8
      Top             =   3000
      Width           =   4575
   End
   Begin VB.Line Line2 
      X1              =   60
      X2              =   4680
      Y1              =   2880
      Y2              =   2880
   End
   Begin VB.Shape Shape1 
      Height          =   255
      Index           =   6
      Left            =   240
      Top             =   2520
      Width           =   2295
   End
   Begin VB.Shape Shape1 
      Height          =   255
      Index           =   5
      Left            =   240
      Top             =   2160
      Width           =   4455
   End
   Begin VB.Shape Shape1 
      Height          =   255
      Index           =   4
      Left            =   240
      Top             =   1800
      Width           =   4455
   End
   Begin VB.Shape Shape1 
      Height          =   255
      Index           =   3
      Left            =   240
      Top             =   1440
      Width           =   4455
   End
   Begin VB.Shape Shape1 
      Height          =   255
      Index           =   2
      Left            =   240
      Top             =   1080
      Width           =   4455
   End
   Begin VB.Shape Shape1 
      Height          =   255
      Index           =   1
      Left            =   240
      Top             =   720
      Width           =   4455
   End
   Begin VB.Shape Shape1 
      Height          =   255
      Index           =   0
      Left            =   240
      Top             =   360
      Width           =   4455
   End
   Begin VB.Line Line1 
      X1              =   2160
      X2              =   2280
      Y1              =   120
      Y2              =   120
   End
   Begin VB.Label l7 
      Alignment       =   2  'Center
      Caption         =   "01"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty