📄 class3.frm
字号:
TabIndex = 13
Top = 2520
Width = 375
End
Begin VB.Label Label5
Alignment = 2 'Center
BackStyle = 0 'Transparent
ForeColor = &H000000FF&
Height = 375
Left = 2190
TabIndex = 12
Top = 2520
Width = 375
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 Label7
Alignment = 2 'Center
BackStyle = 0 'Transparent
ForeColor = &H000000FF&
Height = 375
Left = 3120
TabIndex = 10
Top = 2520
Width = 615
End
Begin VB.Label Label8
Alignment = 2 'Center
BackStyle = 0 'Transparent
ForeColor = &H000000FF&
Height = 375
Left = 3720
TabIndex = 9
Top = 2520
Width = 615
End
Begin VB.Label Label9
Alignment = 2 'Center
BackStyle = 0 'Transparent
ForeColor = &H000000FF&
Height = 375
Left = 4320
TabIndex = 8
Top = 2520
Width = 495
End
Begin VB.Label Label10
Alignment = 2 'Center
BackStyle = 0 'Transparent
ForeColor = &H000000FF&
Height = 375
Left = 4920
TabIndex = 7
Top = 2520
Width = 495
End
Begin VB.Label Label11
Alignment = 2 'Center
BackStyle = 0 'Transparent
ForeColor = &H000000FF&
Height = 375
Left = 5400
TabIndex = 6
Top = 2520
Width = 615
End
Begin VB.Label Label12
Alignment = 2 'Center
BackStyle = 0 'Transparent
ForeColor = &H000000FF&
Height = 375
Left = 6000
TabIndex = 5
Top = 2520
Width = 495
End
Begin VB.Label Label13
Alignment = 2 'Center
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 6600
TabIndex = 4
Top = 2520
Width = 495
End
Begin VB.Label Label14
Alignment = 2 'Center
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 7080
TabIndex = 3
Top = 2520
Width = 495
End
Begin VB.Label Label15
Alignment = 2 'Center
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 7680
TabIndex = 2
Top = 2520
Width = 495
End
Begin VB.Label Label16
Alignment = 2 'Center
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 8280
TabIndex = 1
Top = 2520
Width = 975
End
End
Attribute VB_Name = "class3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim ji As Integer
Dim mystep As Integer
Dim i, j As Integer
Dim jj1 As Integer
Dim mystep1 As Integer
Private Sub CandyCommand1_Click()
'四分区间
class1.Show
End Sub
Private Sub CandyCommand3_Click()
'绘图
For i = 0 To 1
For j = 0 To 4
Me.PaintPicture Picture2.Picture, j * Picture2.Width, i * Picture2.Height + 2900, _
Picture2.Width, Picture2.Height
Next j, i
If jjj - 1 = Adodc2.Recordset.RecordCount Then
jj = 0
jjjj = 1
jjj = 1
mystep = 0
End If
If jjj - 1 = 40 Or jjj - 1 = 80 Or jjj - 1 = 120 Or jjj - 1 = 160 Or jjj - 1 = 200 Or jjj - 1 = 240 Then
jj = 0
jjjj = 0
mystep = 0
End If
Timer1.interval = 100
End Sub
Private Sub CandyCommand4_Click()
'平均
jj1 = 0
mystep1 = 0
Me.DrawStyle = 2
Timer2.interval = 100
End Sub
Private Sub CandyCommand8_Click()
'除三区间
Load class2
class2.Show
End Sub
Private Sub Form_Load()
Adodc2.Refresh
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, "##.##%")
mystep = 0
jj = 0
jj1 = 0
mystep1 = 0
jjj = 1
jjjj = 1
End Sub
Private Sub Form_Paint()
For i = 0 To 2
For j = 0 To 4
Me.PaintPicture Picture1.Picture, j * Picture1.Width, i * Picture1.Height, _
Picture1.Width, Picture1.Height
Next j, i
'
'
' Me.Line (400, 6100)-(8900, 6100)
' Me.Line (400, 5355)-(8900, 5355)
' Me.Line (400, 4610)-(8900, 4610)
' Me.Line (400, 4500)-(8900, 4500)
' Me.Line (400, 3755)-(8900, 3755)
' Me.Line (400, 3010)-(8900, 3010)
' Me.Line (400, 6100)-(400, 2900)
'
' Me.CurrentX = 330
' Me.CurrentY = 2870
' Me.Print "∧"
' Me.CurrentX = 0
' Me.CurrentY = 2900
' Me.Print "奇偶"
' Me.CurrentX = 165
' Me.CurrentY = 3383
' Me.Print "奇"
' Me.CurrentX = 165
' Me.CurrentY = 4128
' Me.Print "偶"
' Me.CurrentX = 330
' Me.CurrentY = 4490
' Me.Print "∧"
' Me.CurrentX = 0
' Me.CurrentY = 4550
' Me.Print "大小"
' Me.CurrentX = 165
' Me.CurrentY = 4983
' Me.Print "大"
' Me.CurrentX = 165
' Me.CurrentY = 5728
' Me.Print "小"
'
' Me.CurrentX = 8900
' Me.CurrentY = 6030
' Me.Print "＞"
' Me.CurrentX = 8900
' Me.CurrentY = 4430
' Me.Print "＞"
' Me.CurrentX = 8900
' Me.CurrentY = 6200
' Me.Print "期数"
' Me.CurrentX = 8900
' Me.CurrentY = 4600
' Me.Print "期数"
End Sub
Private Sub Timer1_Timer()
If mystep = 69 Then
Timer1.interval = 0
End If
If mystep <= 8 Then
Me.Line (400, 6100)-(400 + jj * 400, 6100)
Me.Line (400, 5355)-(400 + jj * 400, 5355)
Me.Line (400, 4610)-(400 + jj * 400, 4610)
Me.Line (400, 4500)-(400 + jj * 400, 4500)
Me.Line (400, 3755)-(400 + jj * 400, 3755)
Me.Line (400, 3010)-(400 + jj * 400, 3010)
Me.Line (400, 6100)-(400, 6100 - jj * 400)
jj = jj + 1
End If
If mystep = 9 Then
Me.CurrentX = 330
Me.CurrentY = 2870
Me.Print "∧"
Me.CurrentX = 0
Me.CurrentY = 2900
Me.Print "奇偶"
Me.CurrentX = 165
Me.CurrentY = 3383
Me.Print "奇"
Me.CurrentX = 165
Me.CurrentY = 4128
Me.Print "偶"
Me.CurrentX = 330
Me.CurrentY = 4490
Me.Print "∧"
Me.CurrentX = 0
Me.CurrentY = 4550
Me.Print "大小"
Me.CurrentX = 165
Me.CurrentY = 4983
Me.Print "大"
Me.CurrentX = 165
Me.CurrentY = 5728
Me.Print "小"
jj = 0
End If
If mystep > 10 And mystep <= 25 Then
Me.Line (3400, 6100)-(3400 + jj * 400, 6100)
Me.Line (3400, 5355)-(3400 + jj * 400, 5355)
Me.Line (3400, 4610)-(3400 + jj * 400, 4610)
Me.Line (3400, 4500)-(3400 + jj * 400, 4500)
Me.Line (3400, 3755)-(3400 + jj * 400, 3755)
Me.Line (3400, 3010)-(3400 + jj * 400, 3010)
jj = jj + 1
End If
If mystep = 26 Then
Me.CurrentX = 8900
Me.CurrentY = 6030
Me.Print "＞"
Me.CurrentX = 8900
Me.CurrentY = 4430
Me.Print "＞"
Me.CurrentX = 8900
Me.CurrentY = 6200
Me.Print "期数"
Me.CurrentX = 8900
Me.CurrentY = 4600
Me.Print "期数"
jj = 0
End If
If mystep >= 27 Then
zero3
End If
mystep = mystep + 1
End Sub
Private Sub Timer2_Timer()
If mystep1 = 23 Then
Me.DrawStyle = 0
Timer2.interval = 0
End If
If mystep1 <= 22 Then
Me.Line (400, 6100 - (Val(Label5.Caption) * 180))-(400 + jj1 * 400, 6100 - (Val(Label5.Caption) * 180)), QBColor(13)
Me.Line (400, 4610 + (Val(Label4.Caption) * 180))-(400 + jj1 * 400, 4610 + (Val(Label4.Caption) * 180)), QBColor(13)
Me.Line (400, 4500 - (Val(Label3.Caption) * 180))-(400 + jj1 * 400, 4500 - (Val(Label3.Caption) * 180)), QBColor(13)
Me.Line (400, 3010 + (Val(Label2.Caption) * 180))-(400 + jj1 * 400, 3010 + (Val(Label2.Caption) * 180)), QBColor(13)
jj1 = jj1 + 1
End If
mystep1 = mystep1 + 1
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -