class1.frm

一套35选7黄河风采（兰州福利彩票）完整版。有分析、选号、筛号功能

      Left            =   3120
      TabIndex        =   12
      Top             =   2520
      Width           =   615
   End
   Begin VB.Label Label6 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   2640
      TabIndex        =   11
      Top             =   2520
      Width           =   495
   End
   Begin VB.Label Label5 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   2190
      TabIndex        =   10
      Top             =   2520
      Width           =   375
   End
   Begin VB.Label Label4 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   1800
      TabIndex        =   9
      Top             =   2520
      Width           =   375
   End
   Begin VB.Label Label3 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   1320
      TabIndex        =   8
      Top             =   2520
      Width           =   495
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   960
      TabIndex        =   7
      Top             =   2520
      Width           =   375
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "平  均"
      ForeColor       =   &H000000FF&
      Height          =   255
      Left            =   120
      TabIndex        =   6
      Top             =   2520
      Width           =   735
   End
   Begin VB.Line Line18 
      X1              =   9220
      X2              =   9220
      Y1              =   2880
      Y2              =   2400
   End
   Begin VB.Line Line17 
      X1              =   8220
      X2              =   8220
      Y1              =   2880
      Y2              =   2400
   End
   Begin VB.Line Line16 
      X1              =   7630
      X2              =   7630
      Y1              =   2880
      Y2              =   2400
   End
   Begin VB.Line Line15 
      X1              =   7080
      X2              =   7080
      Y1              =   2400
      Y2              =   2880
   End
   Begin VB.Line Line14 
      X1              =   6530
      X2              =   6530
      Y1              =   2880
      Y2              =   2400
   End
   Begin VB.Line Line13 
      X1              =   5960
      X2              =   5960
      Y1              =   2880
      Y2              =   2400
   End
   Begin VB.Line Line12 
      X1              =   5420
      X2              =   5420
      Y1              =   2880
      Y2              =   2400
   End
   Begin VB.Line Line11 
      X1              =   4850
      X2              =   4850
      Y1              =   2880
      Y2              =   2400
   End
   Begin VB.Line Line10 
      X1              =   4280
      X2              =   4280
      Y1              =   2400
      Y2              =   2880
   End
   Begin VB.Line Line9 
      X1              =   3710
      X2              =   3710
      Y1              =   2400
      Y2              =   2880
   End
   Begin VB.Line Line8 
      X1              =   3140
      X2              =   3140
      Y1              =   2400
      Y2              =   2880
   End
   Begin VB.Line Line7 
      X1              =   2580
      X2              =   2580
      Y1              =   2400
      Y2              =   2880
   End
   Begin VB.Line Line6 
      X1              =   2165
      X2              =   2165
      Y1              =   2400
      Y2              =   2880
   End
   Begin VB.Line Line5 
      X1              =   1760
      X2              =   1760
      Y1              =   2400
      Y2              =   2880
   End
   Begin VB.Line Line4 
      X1              =   1355
      X2              =   1355
      Y1              =   2400
      Y2              =   2880
   End
   Begin VB.Line Line3 
      X1              =   940
      X2              =   940
      Y1              =   2400
      Y2              =   2880
   End
   Begin VB.Line Line2 
      X1              =   0
      X2              =   0
      Y1              =   2400
      Y2              =   2880
   End
   Begin VB.Line Line1 
      X1              =   0
      X2              =   9480
      Y1              =   2880
      Y2              =   2880
   End
End
Attribute VB_Name = "class1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim ji As Integer
Dim da As Integer
Dim quyi As Integer
Dim quer As Integer
Dim qusan As Integer
Dim qusi As Integer
Dim yulin As Integer
Dim yuyi As Integer
Dim yuer As Integer
Dim erlian As Integer
Dim sanlian As Integer
Dim silian As Integer
Dim shzi As String
Dim zhong As String
Dim shongzi As String

Dim jj1 As Integer
Dim mystep1 As Integer
Dim i, j As Integer

Private Sub CandyCommand1_Click()
'数据生成
'Dim iii As Integer
'iii = 0
'ccrppb.Visible = True
'ccrppb.Max = Adodc1.Recordset.RecordCount
'ccrppb.Min = 1
ji = 0
da = 0
quyi = 0
quer = 0
qusan = 0
qusi = 0
yulin = 0
yuyi = 0
yuer = 0
erlian = 0
sanlian = 0
silian = 0
Dim mssage As Integer
mssage = MsgBox("此操作将洗掉原来的数据，重新建立数据。" + Chr(13) + "如以前数据无误，建议使用快速生成操作，继续此操作吗？", vbYesNo, "提示")
If mssage = vbYes Then
frmSplashtemp.Show
Screen.MousePointer = 11
DoEvents

  If Adodc2.Recordset.RecordCount <> 0 Then
    Adodc2.Recordset.MoveFirst
    Do While Not Adodc2.Recordset.EOF
      Adodc2.Recordset.Delete adAffectCurrent
      Adodc2.Recordset.Update
'      Adodc2.Recordset.Resync adAffectCurrent, adResyncAllValues
      Adodc2.Recordset.MoveNext
    Loop
    Adodc2.Recordset.Resync
  End If
  
  If Adodc3.Recordset.RecordCount <> 0 Then
    Adodc3.Recordset.MoveFirst
    Do While Not Adodc3.Recordset.EOF
      Adodc3.Recordset.Delete adAffectCurrent
      Adodc3.Recordset.Update
'      Adodc3.Recordset.Resync adAffectCurrent, adResyncAllValues
      Adodc3.Recordset.MoveNext
    Loop
    Adodc3.Recordset.Resync
  End If
  
  If Adodc4.Recordset.RecordCount <> 0 Then
    Adodc4.Recordset.MoveFirst
    Do While Not Adodc4.Recordset.EOF
      Adodc4.Recordset.Delete adAffectCurrent
      Adodc4.Recordset.Update
'      Adodc4.Recordset.Resync adAffectCurrent, adResyncAllValues
      Adodc4.Recordset.MoveNext
    Loop
    Adodc4.Recordset.Resync
  End If
  
  If Adodc5.Recordset.RecordCount <> 0 Then
    Adodc5.Recordset.MoveFirst
    Do While Not Adodc5.Recordset.EOF
      Adodc5.Recordset.Delete adAffectCurrent
      Adodc5.Recordset.Update
'      Adodc5.Recordset.Resync adAffectCurrent, adResyncAllValues
      Adodc5.Recordset.MoveNext
    Loop
    Adodc5.Recordset.Resync
  End If
  
    Dim i As Integer
    Adodc1.Recordset.MoveFirst
    Do While Not Adodc1.Recordset.EOF
      zhong = Adodc1.Recordset.Fields(1).Value
      
      Adodc2.Recordset.AddNew
      Adodc2.Recordset.Fields(0).Value = Adodc1.Recordset.Fields(0).Value
    
      For i = 1 To 8
        If Val(Adodc1.Recordset.Fields(i).Value) Mod 2 <> 0 Then
        ji = ji + 1
        End If
        If Val(Adodc1.Recordset.Fields(i).Value) >= 17 Then
        da = da + 1
        End If
        If Val(Adodc1.Recordset.Fields(i).Value) <= 8 Then
        quyi = quyi + 1
        End If
        If Val(Adodc1.Recordset.Fields(i).Value) > 8 And Val(Adodc1.Recordset.Fields(i).Value) <= 16 Then
        quer = quer + 1
        End If
        If Val(Adodc1.Recordset.Fields(i).Value) > 16 And Val(Adodc1.Recordset.Fields(i).Value) <= 24 Then
        qusan = qusan + 1
        End If
        If Val(Adodc1.Recordset.Fields(i).Value) > 24 And Val(Adodc1.Recordset.Fields(i).Value) <= 32 Then
        qusi = qusi + 1
        End If
        If Val(Adodc1.Recordset.Fields(i).Value) Mod 3 = 0 Then
        yulin = yulin + 1
        End If
        If Val(Adodc1.Recordset.Fields(i).Value) Mod 3 = 1 Then
        yuyi = yuyi + 1
        End If
        If Val(Adodc1.Recordset.Fields(i).Value) Mod 3 = 2 Then
        yuer = yuer + 1
        End If
        If i <= 7 Then
          If Val(Adodc1.Recordset.Fields(i).Value) - Val(zhong) = 1 Then
           shzi = shzi + Trim(zhong) + Trim(Adodc1.Recordset.Fields(i).Value)
           zhong = Adodc1.Recordset.Fields(i).Value
          Else
           zhong = Adodc1.Recordset.Fields(i).Value
          End If
        End If
       Next i
       
       Adodc2.Recordset.Fields(1).Value = ji
         If Adodc3.Recordset.RecordCount = 0 Then
          Adodc3.Recordset.AddNew
          Adodc3.Recordset.Fields(1).Value = ji
          Adodc3.Recordset.Fields(2).Value = 8 - ji
          Adodc3.Recordset.Fields(5).Value = 1
          Adodc3.Recordset.Update
'          Adodc3.Recordset.Resync
         Else
          Adodc3.Recordset.MoveFirst
          Do While Not Adodc3.Recordset.EOF
            If ji = Adodc3.Recordset.Fields(1).Value Then
               Adodc3.Recordset.Fields(5).Value = Adodc3.Recordset.Fields(5).Value + 1
               Adodc3.Recordset.Update
'               Adodc3.Recordset.Resync adAffectCurrent, adResyncAllValues
               Exit Do
            Else
               Adodc3.Recordset.MoveNext
            End If
          Loop
          If Adodc3.Recordset.EOF Then
            Adodc3.Recordset.AddNew
            Adodc3.Recordset.Fields(1).Value = ji
            Adodc3.Recordset.Fields(2).Value = 8 - ji
            Adodc3.Recordset.Fields(5).Value = 1
            Adodc3.Recordset.Update
'            Adodc3.Recordset.Resync adAffectCurrent, adResyncAllValues
          End If
          Adodc3.Recordset.Resync
          Adodc3.Refresh
        End If
                  
       Adodc2.Recordset.Fields(2).Value = 8 - ji
       Adodc2.Recordset.Fields(3).Value = da
          Adodc3.Recordset.MoveFirst
          Do While Not Adodc3.Recordset.EOF
            If da = Adodc3.Recordset.Fields(1).Value Then
               Adodc3.Recordset.Fields(6).Value = Adodc3.Recordset.Fields(6).Value + 1
               Adodc3.Recordset.Update
'               Adodc3.Recordset.Resync adAffectCurrent, adResyncAllValues
               Exit Do
            Else
               Adodc3.Recordset.MoveNext
            End If
          Loop
          If Adodc3.Recordset.EOF Then
            Adodc3.Recordset.AddNew
            Adodc3.Recordset.Fields(1).Value = da
            Adodc3.Recordset.Fields(2).Value = 8 - da
            Adodc3.Recordset.Fields(6).Value = 1
            Adodc3.Recordset.Update