📄 fushii.frm
字号:
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 375
Left = 5760
MaxLength = 2
TabIndex = 10
Top = 1080
Width = 375
End
Begin VB.TextBox Text9
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 375
Left = 5160
MaxLength = 2
TabIndex = 9
Top = 1080
Width = 375
End
Begin VB.TextBox Text8
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 375
Left = 4560
MaxLength = 2
TabIndex = 8
Top = 1080
Width = 375
End
Begin VB.TextBox Text7
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 375
Left = 3960
MaxLength = 2
TabIndex = 7
Top = 1080
Width = 375
End
Begin VB.TextBox Text6
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 375
Left = 3360
MaxLength = 2
TabIndex = 6
Top = 1080
Width = 375
End
Begin VB.TextBox Text5
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 375
Left = 2760
MaxLength = 2
TabIndex = 5
Top = 1080
Width = 375
End
Begin VB.TextBox Text4
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 375
Left = 2160
MaxLength = 2
TabIndex = 4
Top = 1080
Width = 375
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "华文中宋"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 210
Left = 7560
TabIndex = 47
Top = 720
Width = 90
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "华文中宋"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 210
Left = 6360
TabIndex = 46
Top = 360
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "请在以下空格中按从小到大的顺序添入您的号码："
BeginProperty Font
Name = "华文行楷"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 255
Left = 840
TabIndex = 0
Top = 480
Width = 5625
End
Begin ActiveCandy.CandyScreen CandyScreen1
Height = 6855
Left = 0
Top = 0
Width = 9495
_ExtentX = 16748
_ExtentY = 12091
ScreenType = 1
End
End
Attribute VB_Name = "fushii"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim fushi(1 To 1, 1 To 20) As String
Dim a As Integer
Dim b As Integer: Dim bb As Integer
Dim c As Integer: Dim cc As Integer
Dim d As Integer: Dim dd As Integer
Dim e As Integer: Dim ee As Integer
Dim f As Integer: Dim ff As Integer
Dim g As Integer: Dim gg As Integer
Dim counti As Integer
Private Sub CandyHCommand1_Click() '重置
Dim i As Integer
counti = 0
For i = 1 To 20
fushi(1, i) = "0"
Next i
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text13.Text = ""
Text14.Text = ""
Text15.Text = ""
Text16.Text = ""
Text17.Text = ""
Text18.Text = ""
Text19.Text = ""
Text20.Text = ""
If Adodc2.Recordset.RecordCount <> 0 Then
Adodc2.Recordset.MoveFirst
Do While Not Adodc2.Recordset.EOF
Adodc2.Recordset.Delete adAffectCurrent
Adodc2.Recordset.Update
Adodc2.Recordset.MoveNext
Loop
DoEvents
Adodc2.Recordset.Resync
DoEvents
Adodc2.Refresh
DoEvents
End If
End Sub
Private Sub CandyHCommand2_Click() '确定
If Text1.Text <> "" Then
fushi(1, 1) = Text1.Text
End If
If Text2.Text <> "" Then
fushi(1, 2) = Text2.Text
End If
If Text3.Text <> "" Then
fushi(1, 3) = Text3.Text
End If
If Text4.Text <> "" Then
fushi(1, 4) = Text4.Text
End If
If Text5.Text <> "" Then
fushi(1, 5) = Text5.Text
End If
If Text6.Text <> "" Then
fushi(1, 6) = Text6.Text
End If
If Text7.Text <> "" Then
fushi(1, 7) = Text7.Text
End If
If Text8.Text <> "" Then
fushi(1, 8) = Text8.Text
End If
If Text9.Text <> "" Then
fushi(1, 9) = Text9.Text
End If
If Text10.Text <> "" Then
fushi(1, 10) = Text10.Text
End If
If Text11.Text <> "" Then
fushi(1, 11) = Text11.Text
End If
If Text12.Text <> "" Then
fushi(1, 12) = Text12.Text
End If
If Text13.Text <> "" Then
fushi(1, 13) = Text13.Text
End If
If Text14.Text <> "" Then
fushi(1, 14) = Text14.Text
End If
If Text15.Text <> "" Then
fushi(1, 15) = Text15.Text
End If
If Text16.Text <> "" Then
fushi(1, 16) = Text16.Text
End If
If Text17.Text <> "" Then
fushi(1, 17) = Text17.Text
End If
If Text18.Text <> "" Then
fushi(1, 18) = Text18.Text
End If
If Text19.Text <> "" Then
fushi(1, 19) = Text19.Text
End If
If Text20.Text <> "" Then
fushi(1, 20) = Text20.Text
End If
For a = 1 To 20
If Val(fushi(1, a)) > 32 Or Val(fushi(1, a)) < 0 Then
MsgBox "第" & a & "个数据有错误，请重新输入", vbOKOnly, "提示"
Exit Sub
Else
If fushi(1, a) <> "0" Then
counti = counti + 1
End If
End If
Next a
If counti > 7 Then
Select Case counti
Case 8
Label4.Caption = "共8注"
Case 9
Label4.Caption = "共36注"
Case 10
Label4.Caption = "共120注"
Case 11
Label4.Caption = "共330注"
Case 12
Label4.Caption = "共792注"
Case 13
Label4.Caption = "共1716注"
Case 14
Label4.Caption = "共3432注"
Case 15
Label4.Caption = "共6435注"
Case 16
Label4.Caption = "共11440注"
Case 17
Label4.Caption = "共19448注"
Case 18
Label4.Caption = "共31824注"
Case 19
Label4.Caption = "共50388注"
Case 20
Label4.Caption = "共77520注"
End Select
Else
MsgBox "无足够的被选号码，请从新选择。", vbOKOnly, "提示"
Exit Sub
End If
For a = 1 To counti - 6
bb = a + 1
For b = bb To counti - 5
cc = b + 1
For c = cc To counti - 4
dd = c + 1
For d = dd To counti - 3
ee = d + 1
For e = ee To counti - 2
ff = e + 1
For f = ff To counti - 1
gg = f + 1
For g = gg To counti
' If Val(Trim(fushi(1, a))) >= 15 Then
' Adodc2.Recordset.Resync adAffectAllChapters, adResyncAllValues
' Adodc2.Refresh
' Adodc2.Recordset.MoveFirst
' Adodc2.Recordset.MoveNext
' Label3.Caption = Adodc2.Recordset.RecordCount
' Exit Sub
' Else
' If Val(Trim(fushi(1, g))) > 24 Then
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields(1).Value = fushi(1, a)
Adodc2.Recordset.Fields(2).Value = fushi(1, b)
Adodc2.Recordset.Fields(3).Value = fushi(1, c)
Adodc2.Recordset.Fields(4).Value = fushi(1, d)
Adodc2.Recordset.Fields(5).Value = fushi(1, e)
Adodc2.Recordset.Fields(6).Value = fushi(1, f)
Adodc2.Recordset.Fields(7).Value = fushi(1, g)
Adodc2.Recordset.Update
' End If
' End If
Next g
Next f
Next e
Next d
Next c
Next b
Next a
Adodc2.Recordset.Resync adAffectAllChapters, adResyncAllValues
Adodc2.Refresh
Adodc2.Recordset.MoveFirst
Adodc2.Recordset.MoveNext
Label3.Caption = "实有" & Adodc2.Recordset.RecordCount & "注"
End Sub
Private Sub Form_Load()
Dim i As Integer
Adodc2.Refresh
counti = 0
For i = 1 To 20
fushi(1, i) = "0"
Next i
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -