📄 form1.frm
字号:
Top = 5865
Width = 1275
End
Begin VB.CommandButton Command19
Caption = "对"
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1005
Left = 105
TabIndex = 14
Top = 4755
Width = 1275
End
Begin VB.Label Label16
BackStyle = 0 'Transparent
Height = 645
Left = 13155
TabIndex = 54
Top = 2895
Width = 1935
End
Begin VB.Label Label13
BackStyle = 0 'Transparent
Height = 645
Left = 13155
TabIndex = 53
Top = 3540
Width = 1935
End
Begin VB.Label Label7
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H80000008&
Height = 645
Left = 13155
TabIndex = 52
Top = 2265
Width = 1935
End
Begin VB.Label Label34
BackStyle = 0 'Transparent
Height = 630
Left = 5700
TabIndex = 51
Top = 10830
Width = 1935
End
Begin VB.Label Label33
BackStyle = 0 'Transparent
Height = 630
Left = 3675
TabIndex = 50
Top = 10830
Width = 1920
End
Begin VB.Label Label32
BackStyle = 0 'Transparent
Height = 630
Left = 5700
TabIndex = 49
Top = 10830
Width = 1935
End
Begin VB.Label Label31
BackStyle = 0 'Transparent
Height = 630
Left = 3675
TabIndex = 48
Top = 10830
Width = 1920
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "C1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 7995
TabIndex = 47
Top = 2445
Width = 360
End
Begin VB.Label Label24
BackStyle = 0 'Transparent
Height = 555
Left = 375
TabIndex = 46
Top = 9900
Width = 1905
End
Begin VB.Label Label23
BackStyle = 0 'Transparent
Height = 555
Left = 375
TabIndex = 45
Top = 8975
Width = 1905
End
Begin VB.Label Label22
BackStyle = 0 'Transparent
Height = 555
Left = 375
TabIndex = 44
Top = 8050
Width = 1905
End
Begin VB.Label Label21
BackStyle = 0 'Transparent
Height = 555
Left = 390
TabIndex = 43
Top = 7125
Width = 1905
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "2007年10月26日"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 10065
TabIndex = 42
Top = 3075
Width = 1920
End
Begin VB.Image Image1
Height = 2085
Left = 10395
Top = 4515
Width = 4050
End
Begin VB.Label Label12
BackStyle = 0 'Transparent
Caption = "45"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 270
Left = 11265
TabIndex = 35
Top = 3690
Width = 405
End
Begin VB.Label Label200
Caption = "Label12"
Height = 600
Left = 14655
TabIndex = 31
Top = 11505
Visible = 0 'False
Width = 1995
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 615
Index = 5
Left = 2625
TabIndex = 4
Top = 9900
Width = 12540
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 615
Index = 4
Left = 2640
TabIndex = 3
Top = 8955
Width = 12540
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 615
Index = 3
Left = 2625
TabIndex = 2
Top = 8010
Width = 12540
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 615
Index = 2
Left = 2625
TabIndex = 1
Top = 7170
Width = 12540
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 450
Left = 6675
TabIndex = 20
Top = 5340
Width = 3000
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 450
Left = 6570
TabIndex = 19
Top = 4725
Width = 3000
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 450
Left = 6570
TabIndex = 18
Top = 4080
Width = 3000
End
Begin VB.Label Label3
Alignment = 2 'Center
BackColor = &H00FF0000&
BackStyle = 0 'Transparent
Caption = "001"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 240
Left = 750
TabIndex = 11
Top = 4290
Width = 420
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2850
TabIndex = 10
Top = 1575
Width = 2385
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 450
Left = 6675
TabIndex = 12
Top = 3405
Width = 3000
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5280
TabIndex = 25
Top = 1575
Width = 2385
End
Begin VB.Image Image2
BorderStyle = 1 'Fixed Single
Height = 15
Left = 3045
Top = 1095
Visible = 0 'False
Width = 0
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000005&
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 1770
Index = 1
Left = 15
TabIndex = 0
Top = 5130
Width = 9330
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim aa(1 To 65) As Integer
Dim mingti(1 To 65, 1 To 7) As String
Dim dati(1 To 65) As String
Dim cuoti(1 To 65) As String
Dim xzzs As Integer
Dim ct As Integer
Dim ii As Integer
Dim bb(1 To 35) As Integer
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -