form1.frm

双色球,七星彩随机生成号码程序,生成后可以打印,一次生成五组,刚好10块钱的彩票

VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "彩票随机选号程序（QQ:33102150）"
   ClientHeight    =   3225
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   5325
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3225
   ScaleWidth      =   5325
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command3 
      Caption         =   "打印"
      Height          =   375
      Left            =   3360
      TabIndex        =   37
      Top             =   2640
      Width           =   975
   End
   Begin VB.CommandButton Command2 
      Caption         =   "7星彩"
      Height          =   375
      Left            =   2160
      TabIndex        =   1
      Top             =   2640
      Width           =   975
   End
   Begin VB.TextBox Text5 
      BackColor       =   &H00FF0000&
      ForeColor       =   &H00FFFFFF&
      Height          =   270
      Index           =   6
      Left            =   4560
      TabIndex        =   36
      Top             =   2160
      Width           =   495
   End
   Begin VB.TextBox Text5 
      BackColor       =   &H000000FF&
      ForeColor       =   &H00FFFFFF&
      Height          =   270
      Index           =   5
      Left            =   3840
      TabIndex        =   35
      Top             =   2160
      Width           =   495
   End
   Begin VB.TextBox Text5 
      BackColor       =   &H000000FF&
      ForeColor       =   &H00FFFFFF&
      Height          =   270
      Index           =   4
      Left            =   3120
      TabIndex        =   34
      Top             =   2160
      Width           =   495
   End
   Begin VB.TextBox Text5 
      BackColor       =   &H000000FF&
      ForeColor       =   &H00FFFFFF&
      Height          =   270
      Index           =   3
      Left            =   2400
      TabIndex        =   33
      Top             =   2160
      Width           =   495
   End
   Begin VB.TextBox Text5 
      BackColor       =   &H000000FF&
      ForeColor       =   &H00FFFFFF&
      Height          =   270
      Index           =   2
      Left            =   1680
      TabIndex        =   32
      Top             =   2160
      Width           =   495
   End
   Begin VB.TextBox Text5 
      BackColor       =   &H000000FF&
      ForeColor       =   &H00FFFFFF&
      Height          =   270
      Index           =   1
      Left            =   960
      TabIndex        =   31
      Top             =   2160
      Width           =   495
   End
   Begin VB.TextBox Text5 
      BackColor       =   &H000000FF&
      ForeColor       =   &H00FFFFFF&
      Height          =   270
      Index           =   0
      Left            =   240
      TabIndex        =   30
      Top             =   2160
      Width           =   495
   End
   Begin VB.TextBox Text4 
      BackColor       =   &H00FF0000&
      ForeColor       =   &H00FFFFFF&
      Height          =   270
      Index           =   6
      Left            =   4560
      TabIndex        =   29
      Top             =   1680
      Width           =   495
   End
   Begin VB.TextBox Text4 
      BackColor       =   &H000000FF&
      ForeColor       =   &H00FFFFFF&
      Height          =   270
      Index           =   5
      Left            =   3840
      TabIndex        =   28
      Top             =   1680
      Width           =   495
   End
   Begin VB.TextBox Text4 
      BackColor       =   &H000000FF&
      ForeColor       =   &H00FFFFFF&
      Height          =   270
      Index           =   4
      Left            =   3120
      TabIndex        =   27
      Top             =   1680
      Width           =   495
   End
   Begin VB.TextBox Text4 
      BackColor       =   &H000000FF&
      ForeColor       =   &H00FFFFFF&
      Height          =   270
      Index           =   3
      Left            =   2400
      TabIndex        =   26
      Top             =   1680
      Width           =   495
   End
   Begin VB.TextBox Text4 
      BackColor       =   &H000000FF&
      ForeColor       =   &H00FFFFFF&
      Height          =   270
      Index           =   2
      Left            =   1680
      TabIndex        =   25
      Top             =   1680
      Width           =   495
   End
   Begin VB.TextBox Text4 
      BackColor       =   &H000000FF&
      ForeColor       =   &H00FFFFFF&
      Height          =   270
      Index           =   1
      Left            =   960
      TabIndex        =   24
      Top             =   1680
      Width           =   495
   End
   Begin VB.TextBox Text4 
      BackColor       =   &H000000FF&
      ForeColor       =   &H00FFFFFF&
      Height          =   270
      Index           =   0
      Left            =   240
      TabIndex        =   23
      Top             =   1680
      Width           =   495
   End
   Begin VB.TextBox Text3 
      BackColor       =   &H00FF0000&
      ForeColor       =   &H00FFFFFF&
      Height          =   270
      Index           =   6
      Left            =   4560
      TabIndex        =   22
      Top             =   1200
      Width           =   495
   End
   Begin VB.TextBox Text3 
      BackColor       =   &H000000FF&
      ForeColor       =   &H00FFFFFF&
      Height          =   270
      Index           =   5
      Left            =   3840
      TabIndex        =   21
      Top             =   1200
      Width           =   495
   End
   Begin VB.TextBox Text3 
      BackColor       =   &H000000FF&
      ForeColor       =   &H00FFFFFF&
      Height          =   270
      Index           =   4
      Left            =   3120
      TabIndex        =   20
      Top             =   1200
      Width           =   495
   End
   Begin VB.TextBox Text3 
      BackColor       =   &H000000FF&
      ForeColor       =   &H00FFFFFF&
      Height          =   270
      Index           =   3
      Left            =   2400
      TabIndex        =   19
      Top             =   1200
      Width           =   495
   End
   Begin VB.TextBox Text3 
      BackColor       =   &H000000FF&
      ForeColor       =   &H00FFFFFF&
      Height          =   270
      Index           =   2
      Left            =   1680
      TabIndex        =   18
      Top             =   1200
      Width           =   495
   End
   Begin VB.TextBox Text3 
      BackColor       =   &H000000FF&
      ForeColor       =   &H00FFFFFF&
      Height          =   270
      Index           =   1
      Left            =   960
      TabIndex        =   17
      Top             =   1200
      Width           =   495
   End
   Begin VB.TextBox Text3 
      BackColor       =   &H000000FF&
      ForeColor       =   &H00FFFFFF&
      Height          =   270
      Index           =   0
      Left            =   240
      TabIndex        =   16
      Top             =   1200
      Width           =   495
   End
   Begin VB.TextBox Text2 
      BackColor       =   &H00FF0000&
      ForeColor       =   &H00FFFFFF&
      Height          =   270
      Index           =   6
      Left            =   4560
      TabIndex        =   15
      Top             =   720
      Width           =   495
   End
   Begin VB.TextBox Text2 
      BackColor       =   &H000000FF&
      ForeColor       =   &H00FFFFFF&
      Height          =   270
      Index           =   5
      Left            =   3840
      TabIndex        =   14
      Top             =   720
      Width           =   495
   End
   Begin VB.TextBox Text2 
      BackColor       =   &H000000FF&
      ForeColor       =   &H00FFFFFF&
      Height          =   270
      Index           =   4
      Left            =   3120
      TabIndex        =   13
      Top             =   720
      Width           =   495
   End
   Begin VB.TextBox Text2 
      BackColor       =   &H000000FF&
      ForeColor       =   &H00FFFFFF&
      Height          =   270
      Index           =   3
      Left            =   2400
      TabIndex        =   12
      Top             =   720
      Width           =   495
   End
   Begin VB.TextBox Text2 
      BackColor       =   &H000000FF&
      ForeColor       =   &H00FFFFFF&
      Height          =   270
      Index           =   2
      Left            =   1680
      TabIndex        =   11
      Top             =   720
      Width           =   495
   End
   Begin VB.TextBox Text2 
      BackColor       =   &H000000FF&
      ForeColor       =   &H00FFFFFF&