📄 class2.frm
字号:
Height = 375
Left = 960
TabIndex = 15
Top = 2520
Width = 375
End
Begin VB.Label Label3
Alignment = 2 'Center
BackStyle = 0 'Transparent
ForeColor = &H000000FF&
Height = 375
Left = 1320
TabIndex = 14
Top = 2520
Width = 495
End
Begin VB.Label Label4
Alignment = 2 'Center
BackStyle = 0 'Transparent
ForeColor = &H000000FF&
Height = 375
Left = 1800
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 = "class2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim ji As Integer
Dim jj1 As Integer
Dim mystep1 As Integer
Dim i, j 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
Me.Line (200, 6100)-(9100, 6100)
Me.Line (200, 6100)-(200, 2900)
Me.CurrentX = 120
Me.CurrentY = 2900
Me.Print "∧" + "区间"
Me.CurrentX = 120
Me.CurrentY = 5100
Me.Print "-"
Me.CurrentX = 0
Me.CurrentY = 5400
Me.Print "余"
Me.CurrentY = 5600
Me.Print "零"
Me.CurrentX = 120
Me.CurrentY = 4000
Me.Print "-"
Me.CurrentX = 0
Me.CurrentY = 4400
Me.Print "余"
Me.CurrentY = 4600
Me.Print "一"
Me.CurrentX = 0
Me.CurrentY = 3300
Me.Print "余"
Me.CurrentY = 3500
Me.Print "二"
Me.CurrentX = 9100
Me.CurrentY = 6030
Me.Print "＞"
Me.CurrentX = 9100
Me.CurrentY = 6200
Me.Print "期数"
If jjj - 1 = Adodc2.Recordset.RecordCount Then
jj = 0
jjjj = 1
jjj = 1
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
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 class3
class3.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, "##.##%")
jj = 0
jjj = 1
jj1 = 0
mystep1 = 0
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 (200, 6100)-(9100, 6100)
Me.Line (200, 6100)-(200, 2900)
Me.CurrentX = 120
Me.CurrentY = 2900
Me.Print "∧" + "区间"
Me.CurrentX = 120
Me.CurrentY = 5100
Me.Print "-"
Me.CurrentX = 0
Me.CurrentY = 5400
Me.Print "余"
Me.CurrentY = 5600
Me.Print "零"
Me.CurrentX = 120
Me.CurrentY = 4000
Me.Print "-"
Me.CurrentX = 0
Me.CurrentY = 4400
Me.Print "余"
Me.CurrentY = 4600
Me.Print "一"
Me.CurrentX = 0
Me.CurrentY = 3300
Me.Print "余"
Me.CurrentY = 3500
Me.Print "二"
Me.CurrentX = 9100
Me.CurrentY = 6030
Me.Print "＞"
Me.CurrentX = 9100
Me.CurrentY = 6200
Me.Print "期数"
End Sub
Private Sub Timer1_Timer()
zero1
End Sub
Private Sub Timer2_Timer()
If mystep1 = 23 Then
Me.DrawStyle = 0
Timer2.interval = 0
End If
If mystep1 <= 22 Then
Me.Line (200, 6100 - (Val(Label10.Caption) * 100))-(200 + jj1 * 400, 6100 - (Val(Label10.Caption) * 100)), QBColor(13)
Me.Line (200, 5100 - (Val(Label11.Caption) * 100))-(200 + jj1 * 400, 5100 - (Val(Label11.Caption) * 100)), QBColor(13)
Me.Line (200, 4000 - (Val(Label12.Caption) * 100))-(200 + jj1 * 400, 4000 - (Val(Label12.Caption) * 100)), QBColor(13)
jj1 = jj1 + 1
End If
mystep1 = mystep1 + 1
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -