?? yangjuan.frm
字號:
VERSION 5.00
Begin VB.Form yangjuan
BackColor = &H80000000&
Caption = "yangjuan"
ClientHeight = 5895
ClientLeft = 60
ClientTop = 345
ClientWidth = 6750
LinkTopic = "Form1"
ScaleHeight = 5895
ScaleWidth = 6750
StartUpPosition = 2 '屏幕中心
Begin VB.Label Label1
Caption = "北京市東城區2002年高三總復習"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = -1 'True
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 7
Left = 4200
TabIndex = 7
Top = 4680
Width = 2775
End
Begin VB.Label Label1
Caption = "湖北省2002屆八校聯考"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = -1 'True
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 6
Left = 3960
TabIndex = 6
Top = 3360
Width = 2775
End
Begin VB.Label Label1
Caption = "2000年海淀區高考模擬英語試題"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = -1 'True
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 615
Index = 5
Left = 3960
TabIndex = 5
Top = 1920
Width = 2775
End
Begin VB.Label Label1
Caption = "東北三校聯考"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = -1 'True
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 4
Left = 4200
TabIndex = 4
Top = 600
Width = 2415
End
Begin VB.Label Label1
Caption = "1996年全國普通高等學校統一招生英語考試"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = -1 'True
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 3
Left = 360
MousePointer = 99 'Custom
TabIndex = 3
Top = 4680
Width = 2535
End
Begin VB.Label Label1
BackColor = &H8000000A&
Caption = "2003年高考英語仿真試題（一）"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = -1 'True
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 735
Index = 2
Left = 360
MousePointer = 99 'Custom
TabIndex = 2
Top = 3240
Width = 2775
End
Begin VB.Label Label1
Caption = "1994年高等學校招生全國英語統一考試"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = -1 'True
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 615
Index = 1
Left = 480
MousePointer = 99 'Custom
TabIndex = 1
Top = 1920
Width = 2775
End
Begin VB.Label Label1
Caption = "1995年全國普通高等學校統一招生考試"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = -1 'True
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 615
Index = 0
Left = 360
MousePointer = 4 'Icon
TabIndex = 0
Top = 480
Width = 2775
End
Begin VB.Image Image1
Height = 5895
Left = 0
Top = 0
Width = 5415
End
End
Attribute VB_Name = "yangjuan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Label1_Click(Index As Integer)
Dim objWord As Object
Const CLASSOBJECT = "Word.Application"
Set objWord = CreateObject(CLASSOBJECT)
objWord.Visible = True
i = Index
objWord.Documents.Open (App.Path & "\套卷\" & i + 1)
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -