seeall.frm

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

            i = i + 1
          End If
        Next l
      End If
      End If
      
    Adodc4.Recordset.MoveNext
    valueflag = False
    i = 1
  Loop
  
Adodc4.Recordset.MoveFirst
i = 1
Do While Not Adodc4.Recordset.EOF
  For k = 1 To 32
    If Len(Adodc4.Recordset.Fields(0).Value) = 4 And Adodc4.Recordset.Fields(k).Value <> "0" Then
      j = j + 1
      valueflag = True
      Exit For
    End If
  Next k
      
      If valueflag Then
      If Len(Adodc4.Recordset.Fields(0).Value) = 4 Then
        For l = 1 To 32
          If Len(Adodc4.Recordset.Fields(l - 1).Value) > 1 Then
            xlsheet1.Cells(i, j) = Adodc4.Recordset.Fields(l - 1).Value
            i = i + 1
          End If
        Next l
      End If
    End If
    
    Adodc4.Recordset.MoveNext
    valueflag = False
    i = 1
  Loop
  
' sheet1 Macro
' zw 记录的宏 2003-2-11
    Columns("A:U").Select
    ActiveWindow.SmallScroll ToRight:=1
    Selection.ColumnWidth = 3.5
    ActiveWindow.ScrollColumn = 1
    Range("V7").Select
  
'综合敏感度分析
Dim cymint(1 To 2, 1 To 32) As Single

For i = 1 To 32
  cymint(1, i) = i
Next i

For l = 1 To 32
midstring = Trim(Str(cymint(1, l)))
            
For j = 1 To 21
      For k = 1 To 8
        '综合敏感度分析
        If Trim(midstring) = Trim(xlsheet1.Cells(k + 1, j)) Then
          m = m + k
          n = n + 1
        End If
    Next k
Next j
       
If n <> 0 Then
  cymint(2, l) = m / n
Else
  cymint(2, l) = 100
End If
'    Debug.Print Str(cymint(1, l)) & "  " & m & "  " & n & Chr(13)
m = 0
n = 0

Next l

For o = 1 To 32
 For p = o + 1 To 32
   If cymint(2, o) > cymint(2, p) Then
      minnumber = cymint(1, o)
      minval = cymint(2, o)
      
      cymint(1, o) = cymint(1, p)
      cymint(2, o) = cymint(2, p)
      
      cymint(1, p) = minnumber
      cymint(2, p) = minval
    End If
 Next p
 xlsheet2.Cells(1, o) = cymint(1, o)
 xlsheet2.Cells(2, o) = cymint(2, o)
Next o

' sheet2 Macro
' zw 记录的宏 2003-2-11

    Columns("A:AF").Select
    ActiveWindow.ScrollColumn = 1
    Selection.ColumnWidth = 3.25
    ActiveWindow.SmallScroll ToRight:=9
    ActiveWindow.ScrollColumn = 1
    Selection.ColumnWidth = 2.13
    Selection.ColumnWidth = 2.25
    Range("A1:H2").Select
    With Selection.Interior
        .ColorIndex = 38
        .Pattern = xlSolid
    End With
    Range("I1:P2").Select
    With Selection.Interior
        .ColorIndex = 42
        .Pattern = xlSolid
    End With
    Range("Q1:X2").Select
    With Selection.Interior
        .ColorIndex = 36
        .Pattern = xlSolid
    End With
    Range("Y1:AF2").Select
    With Selection.Interior
        .ColorIndex = 35
        .Pattern = xlSolid
    End With
    
'为敏感度排序做手拉手
Dim hand(1 To 2, 1 To 24) As Integer
Dim exitflag As Boolean
hand(1, 1) = xlsheet1.Cells(2, 1) - 1
hand(1, 2) = xlsheet1.Cells(2, 1)
hand(1, 3) = xlsheet1.Cells(2, 1) + 1
hand(1, 4) = xlsheet1.Cells(3, 1) - 1
hand(1, 5) = xlsheet1.Cells(3, 1)
hand(1, 6) = xlsheet1.Cells(3, 1) + 1
hand(1, 7) = xlsheet1.Cells(4, 1) - 1
hand(1, 8) = xlsheet1.Cells(4, 1)
hand(1, 9) = xlsheet1.Cells(4, 1) + 1
hand(1, 10) = xlsheet1.Cells(5, 1) - 1
hand(1, 11) = xlsheet1.Cells(5, 1)
hand(1, 12) = xlsheet1.Cells(5, 1) + 1
hand(1, 13) = xlsheet1.Cells(6, 1) - 1
hand(1, 14) = xlsheet1.Cells(6, 1)
hand(1, 15) = xlsheet1.Cells(6, 1) + 1
hand(1, 16) = xlsheet1.Cells(7, 1) - 1
hand(1, 17) = xlsheet1.Cells(7, 1)
hand(1, 18) = xlsheet1.Cells(7, 1) + 1
hand(1, 19) = xlsheet1.Cells(8, 1) - 1
hand(1, 20) = xlsheet1.Cells(8, 1)
hand(1, 21) = xlsheet1.Cells(8, 1) + 1
hand(1, 22) = xlsheet1.Cells(9, 1) - 1
hand(1, 23) = xlsheet1.Cells(9, 1)
hand(1, 24) = xlsheet1.Cells(9, 1) + 1
For k = 1 To 24
exitflag = False
  For i = 1 To 21
    For j = 2 To 9
      If xlsheet1.Cells(j, i) = hand(1, k) Then
         hand(2, k) = i - 1
         exitflag = True
         Exit For
      End If
    Next j
    
  If exitflag Then
  Exit For
  End If
   
  Next i
If exitflag = False Then
    hand(2, k) = 30
End If

Next k
'手拉手数据的显示
For k = 1 To 24
 For i = 1 To 32
   If hand(1, k) = xlsheet2.Cells(1, i) Then
'      xlsheet2.Cells(3, i) = hand(1, k)
      xlsheet2.Cells(4, i) = hand(2, k)
      Exit For
   End If
 Next i
Next k


 For i = 1 To 32
       '为是否是前两横,前两列赋值
        exitflag = False
        For j = 2 To 3
          For l = 1 To 21
            If Not IsNull(xlsheet1.Cells(j, l)) Then
              If xlsheet1.Cells(j, l) = xlsheet2.Cells(1, i) Then
                xlsheet2.Cells(3, i) = xlsheet2.Cells(1, i)
                exitflag = True
                Exit For
              End If
            End If
          Next l
          
          If exitflag = True Then
            Exit For
          End If
            
        Next j
            
        exitflag = False
        For j = 4 To 9
          For l = 1 To 2
            If Not IsNull(xlsheet1.Cells(j, l)) Then
              If xlsheet1.Cells(j, l) = xlsheet2.Cells(1, i) Then
                xlsheet2.Cells(3, i) = xlsheet2.Cells(1, i)
                exitflag = True
                Exit For
              End If
            End If
          Next l
          
          If exitflag = True Then
            Exit For
          End If
            
        Next j
        
      Next i

'非手拉手数据的显示
For i = 1 To 32
exitflag = False
  For j = 1 To 21
    For k = 2 To 9
      If xlsheet2.Cells(4, i) = "" Then
        If xlsheet2.Cells(1, i) = xlsheet1.Cells(k, j) Then
           xlsheet2.Cells(5, i) = j - 1
           exitflag = True
           Exit For
        End If
        
      Else
       exitflag = True
       Exit For
      End If
    Next k
     
    If exitflag Then
        Exit For
    End If
    
  Next j
  If exitflag = False Then
    xlsheet2.Cells(5, i) = 30
  End If
Next i
        
End Sub

Private Sub Form_Load()
seeallform = True

Dim i As Integer

Adodc2.Refresh
Adodc1.Refresh
Adodc3.Refresh
Adodc4.Refresh

hhfcevn.rsfrequency.Requery
hhfcevn.rssumintsee.Requery

MSHFlexGrid5.RowHeight(0) = 400
MSHFlexGrid5.ColWidth(0, 0) = 150
MSHFlexGrid5.ColWidth(1, 0) = 520
MSHFlexGrid5.ColWidth(2, 0) = 680

MSHFlexGrid5.BackColorFixed = vbCyan
MSHFlexGrid5.BackColorSel = &HFF8080
MSHFlexGrid5.BackColor = &HFF8080

For i = 1 To Adodc3.Recordset.RecordCount
    MSHFlexGrid5.Col = 2
    MSHFlexGrid5.Row = i
    MSHFlexGrid5.Text = Format(MSHFlexGrid5.Text, "#0.##%")
  Next i

MSHFlexGrid4.RowHeight(0) = 400
MSHFlexGrid4.ColWidth(0, 0) = 150
MSHFlexGrid4.ColWidth(1, 0) = 500
MSHFlexGrid4.ColWidth(2, 0) = 500

MSHFlexGrid4.BackColorFixed = vbCyan
MSHFlexGrid4.BackColorSel = &HFF8080
MSHFlexGrid4.BackColor = &HFF8080

MSHFlexGrid4.MergeCol(1) = True

MSHFlexGrid3.ColWidth(0, 0) = 150
MSHFlexGrid3.ColWidth(1, 0) = 500
MSHFlexGrid3.ColWidth(2, 0) = 500

MSHFlexGrid3.BackColorFixed = vbCyan
MSHFlexGrid3.BackColorSel = &HFF8080
MSHFlexGrid3.BackColor = &HFF8080

MSHFlexGrid3.MergeCol(2) = True

MSHFlexGrid1.ColWidth(0, 0) = 150
MSHFlexGrid1.ColWidth(1, 0) = 780
MSHFlexGrid1.ColWidth(2, 0) = 400
MSHFlexGrid1.ColWidth(3, 0) = 400
MSHFlexGrid1.ColWidth(4, 0) = 400
MSHFlexGrid1.ColWidth(5, 0) = 400
MSHFlexGrid1.ColWidth(6, 0) = 570
MSHFlexGrid1.ColWidth(7, 0) = 570
MSHFlexGrid1.ColWidth(8, 0) = 570
MSHFlexGrid1.ColWidth(9, 0) = 570
MSHFlexGrid1.ColWidth(10, 0) = 560
MSHFlexGrid1.ColWidth(11, 0) = 560
MSHFlexGrid1.ColWidth(12, 0) = 560
MSHFlexGrid1.ColWidth(13, 0) = 560
MSHFlexGrid1.ColWidth(14, 0) = 560
MSHFlexGrid1.ColWidth(15, 0) = 580
MSHFlexGrid1.ColWidth(16, 0) = 1000

MSHFlexGrid1.BackColorFixed = vbCyan
MSHFlexGrid1.BackColorSel = &HFF8080
MSHFlexGrid1.BackColor = &HFF8080

MSHFlexGrid1.Col = 1
MSHFlexGrid1.Sort = 5

Label2.Caption = Format(jihe / Adodc2.Recordset.RecordCount, "#.##")
 Label3.Caption = Format(ouhe / Adodc2.Recordset.RecordCount, "#.##")
 Label4.Caption = Format(dahe / Adodc2.Recordset.RecordCount, "#.##")
 Label5.Caption = Format(xiaohe / Adodc2.Recordset.RecordCount, "#.##")
 Label6.Caption = Format(yihe / Adodc2.Recordset.RecordCount, "#.##")
 Label7.Caption = Format(erhe / Adodc2.Recordset.RecordCount, "#.##")
 Label8.Caption = Format(sanhe / Adodc2.Recordset.RecordCount, "#.##")
 Label9.Caption = Format(sihe / Adodc2.Recordset.RecordCount, "#.##")
 Label10.Caption = Format(yulinhe / Adodc2.Recordset.RecordCount, "#.##")
 Label11.Caption = Format(yuyihe / Adodc2.Recordset.RecordCount, "#.##")
 Label12.Caption = Format(yuerhe / Adodc2.Recordset.RecordCount, "#.##")
 Label13.Caption = erlianhe
 Label14.Caption = sanlianhe
 Label15.Caption = silianhe
 Label16.Caption = Format(lianhl / Adodc2.Recordset.RecordCount, "##.##%")
 
 
MSHFlexGrid2.ColWidth(0, 0) = 150
MSHFlexGrid2.ColWidth(1, 0) = 705
MSHFlexGrid2.ColWidth(2, 0) = 350
MSHFlexGrid2.ColWidth(3, 0) = 350
MSHFlexGrid2.ColWidth(4, 0) = 350
MSHFlexGrid2.ColWidth(5, 0) = 350
MSHFlexGrid2.ColWidth(6, 0) = 350
MSHFlexGrid2.ColWidth(7, 0) = 350
MSHFlexGrid2.ColWidth(8, 0) = 350
MSHFlexGrid2.ColWidth(9, 0) = 350

MSHFlexGrid2.BackColorFixed = vbCyan
MSHFlexGrid2.BackColorSel = &HFF8080
MSHFlexGrid2.BackColor = &HFF8080

MSHFlexGrid2.Col = 1
MSHFlexGrid2.Sort = 5
End Sub

Private Sub Form_Unload(Cancel As Integer)
seeallform = False

If classform Then
class1.CandyCommand6.Enabled = False
End If

End Sub