📄 form1.frm
字号:
Height = 465
Index = 1
Left = 7650
TabIndex = 10
Top = 975
Width = 1215
End
Begin VB.CheckBox Check3
Caption = "3.A"
Height = 465
Index = 0
Left = 7050
TabIndex = 9
Top = 975
Width = 1215
End
Begin VB.CheckBox Check2
Caption = "2.D"
Height = 465
Index = 3
Left = 8850
TabIndex = 8
Top = 675
Width = 1215
End
Begin VB.CheckBox Check2
Caption = "2.C"
Height = 465
Index = 2
Left = 8250
TabIndex = 7
Top = 675
Width = 1215
End
Begin VB.CheckBox Check2
Caption = "2.B"
Height = 465
Index = 1
Left = 7650
TabIndex = 6
Top = 675
Width = 1215
End
Begin VB.CheckBox Check2
Caption = "2.A"
Height = 465
Index = 0
Left = 7050
TabIndex = 5
Top = 675
Width = 1215
End
Begin VB.CheckBox Check1
Caption = "1.D"
Height = 390
Index = 3
Left = 8850
TabIndex = 4
Top = 375
Width = 1140
End
Begin VB.CheckBox Check1
Caption = "1.C"
Height = 390
Index = 2
Left = 8250
TabIndex = 3
Top = 375
Width = 1140
End
Begin VB.CheckBox Check1
Caption = "1.B"
Height = 390
Index = 1
Left = 7650
TabIndex = 2
Top = 375
Width = 1140
End
Begin VB.CheckBox Check1
Caption = "1.A"
Height = 390
Index = 0
Left = 7050
TabIndex = 1
Top = 375
Width = 1140
End
Begin VB.Frame Frame1
Caption = "答题卡"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 8265
Left = 6975
TabIndex = 0
Top = 0
Width = 5610
End
Begin VB.Menu mnufile
Caption = "文件(&F)"
Begin VB.Menu mnufile1
Caption = "关于我们"
Shortcut = {F1}
End
Begin VB.Menu mnufile2
Caption = "软件介绍"
Shortcut = {F2}
End
Begin VB.Menu mnufile0
Caption = "-"
End
Begin VB.Menu mnufile3
Caption = "退出系统"
Shortcut = {F3}
End
End
Begin VB.Menu mnuedit
Caption = "试题(&E)"
Begin VB.Menu mnueditA
Caption = "A卷试题"
Shortcut = ^A
End
Begin VB.Menu mnueditB
Caption = "B卷试题"
Shortcut = ^B
End
Begin VB.Menu mnueditC
Caption = "C卷试题"
Shortcut = ^C
End
Begin VB.Menu mnueditD
Caption = "D卷试题"
Shortcut = ^D
End
Begin VB.Menu mnueditE
Caption = "E卷试题"
Shortcut = ^E
End
Begin VB.Menu mnuedit0
Caption = "-"
End
Begin VB.Menu mnueditF
Caption = "统计分数"
Shortcut = {F5}
End
End
Begin VB.Menu mnuhelp
Caption = "答案(&H)"
Begin VB.Menu mnuhelpA
Caption = "A卷答案"
Shortcut = ^{F1}
End
Begin VB.Menu mnuhelpB
Caption = "B卷答案"
Shortcut = ^{F2}
End
Begin VB.Menu mnuhelpC
Caption = "C卷答案"
Shortcut = ^{F3}
End
Begin VB.Menu mnuhelpD
Caption = "D卷答案"
Shortcut = ^{F4}
End
Begin VB.Menu mnuhelpE
Caption = "E卷答案"
Shortcut = ^{F5}
End
Begin VB.Menu mnuhelp0
Caption = "-"
End
Begin VB.Menu mnuhelpF
Caption = "考生须知"
Shortcut = {F4}
End
End
Begin VB.Menu mnukuai
Caption = "快捷"
Visible = 0 'False
Begin VB.Menu mnu0
Caption = "A卷试题"
Index = 0
End
Begin VB.Menu mnu0
Caption = "B卷试题"
Index = 1
End
Begin VB.Menu mnu0
Caption = "C卷试题"
Index = 2
End
Begin VB.Menu mnu0
Caption = "D卷试题"
Index = 3
End
Begin VB.Menu mnu0
Caption = "E卷试题"
Index = 4
End
Begin VB.Menu mnu0
Caption = "-"
Index = 5
End
Begin VB.Menu mnu0
Caption = "A卷答案"
Index = 6
End
Begin VB.Menu mnu0
Caption = "B卷答案"
Index = 7
End
Begin VB.Menu mnu0
Caption = "C卷答案"
Index = 8
End
Begin VB.Menu mnu0
Caption = "D卷答案"
Index = 9
End
Begin VB.Menu mnu0
Caption = "E卷答案"
Index = 10
End
Begin VB.Menu mnu0
Caption = "-"
Index = 11
End
Begin VB.Menu mnu0
Caption = "统计分数"
Index = 12
End
Begin VB.Menu mnu0
Caption = "退出系统"
Index = 13
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Option1(0).Value = True
RichTextBox1.Text = " 欢迎你的使用 " & _
" 本系统的试题共分为三套，每一套以分为若干试卷，一般50题为一份试卷。 " & _
"其中，A套有一卷试题，B套和C套各有4卷试题，分别为1-50，51-100，101-150，151-200." & _
"请从菜单中选择试题，并在右边选择试卷，以便我们为你统计分数。"
mnueditF.Enabled = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
cc = MsgBox("你确定要退出本系统吗？", vbOKCancel + vbInformation + vbDefaultButton2, "全国计算机等级考试（二级）试题系统")
If cc = vbCancel Then
Cancel = 1
End If
End Sub
Private Sub mnu0_Click(Index As Integer)
Select Case Index
Case 0
Call mnueditA_Click
Case 1
Call mnueditB_Click
Case 2
Call mnueditC_Click
Case 3
Call mnueditD_Click
Case 4
Call mnueditE_Click
Case 6
Call mnuhelpA_Click
Case 7
Call mnuhelpB_Click
Case 8
Call mnuhelpC_Click
Case 9
Call mnuhelpD_Click
Case 10
Call mnuhelpE_Click
Case 12
Call mnueditF_Click
Case 13
Call mnufile3_Click
End Select
End Sub
Private Sub mnueditA_Click()
Frame1.Caption = "A卷试题答题卡"
mnu0(7).Enabled = False
mnu0(8).Enabled = False
mnu0(9).Enabled = False
mnu0(10).Enabled = False
mnu0(6).Enabled = True
mnuhelpA.Enabled = True
mnuhelpB.Enabled = False
mnuhelpC.Enabled = False
mnuhelpD.Enabled = False
mnuhelpE.Enabled = False
mnueditF.Enabled = True
CommonDialog1.FileName = "d:\cheng\试题系统\ml1.rtf"
RichTextBox1.LoadFile CommonDialog1.FileName
End Sub
Private Sub mnueditB_Click()
mnu0(6).Enabled = False
mnu0(8).Enabled = False
mnu0(9).Enabled = False
mnu0(10).Enabled = False
mnu0(7).Enabled = True
mnuhelpB.Enabled = True
Frame1.Caption = "B卷试题答题卡"
mnueditF.Enabled = True
mnuhelpA.Enabled = False
mnuhelpC.Enabled = False
mnuhelpD.Enabled = False
mnuhelpE.Enabled = False
CommonDialog1.FileName = "d:\cheng\试题系统\ml2.rtf"
RichTextBox1.LoadFile CommonDialog1.FileName
End Sub
Private Sub mnueditC_Click()
mnu0(7).Enabled = False
mnu0(6).Enabled = False
mnu0(9).Enabled = False
mnu0(10).Enabled = False
mnu0(8).Enabled = True
mnuhelpB.Enabled = False
mnuhelpC.Enabled = True
mnuhelpA.Enabled = False
mnuhelpD.Enabled = False
mnuhelpE.Enabled = False
mnueditF.Enabled = True
Frame1.Caption = "C卷试题答题卡"
CommonDialog1.FileName = "D:\cheng\试题系统\ml3.rtf"
RichTextBox1.LoadFile CommonDialog1.FileName
End Sub
Private Sub mnueditD_Click()
mnuhelpB.Enabled = False
mnuhelpC.Enabled = False
mnuhelpD.Enabled = False
mnuhelpE.Enabled = False
mnuhelpA.Enabled = False
mnueditF.Enabled = False
mnu0(7).Enabled = False
mnu0(8).Enabled = False
mnu0(9).Enabled = False
mnu0(10).Enabled = False
mnu0(6).Enabled = False
MsgBox "对不起，该项试题及答案暂空", vbInformation, "全国计算机等级考试（二级）试题系统"
End Sub
Private Sub mnueditE_Click()
mnuhelpB.Enabled = False
mnuhelpC.Enabled = False
mnuhelpD.Enabled = False
mnuhelpA.Enabled = False
mnuhelpE.Enabled = False
mnueditF.Enabled = False
mnu0(7).Enabled = False
mnu0(8).Enabled = False
mnu0(9).Enabled = False
mnu0(10).Enabled = False
mnu0(6).Enabled = False
MsgBox "对不起，该项试题及答案暂空", vbInformation, "全国计算机等级考试（二级）试题系统"
End Sub
Private Sub mnueditF_Click()
Dim i As Integer
Dim u As Integer
Dim c As Integer
For i = 0 To 3
If Frame1.Caption = "答题卡" And Option1(i).Value = False Then
MsgBox "请从<选项>菜单中选择试卷并从答题卡上选择试题.", vbCritical, "试题系统提示信息:错误"
End If
Next i
'A卷
If Frame1.Caption = "A卷试题答题卡" Then
If Check1(2).Value = 1 Then
c = c + 2
End If
If Check2(3).Value = 1 Then
c = c + 2
End If
If Check3(1).Value = 1 Then
c = c + 2
End If
If Check4(3).Value = 1 Then
c = c + 2
End If
If Check5(0).Value = 1 Then
c = c + 2
End If
If Check6(2).Value = 1 Then
c = c + 2
End If
If Check7(2).Value = 1 Then
c = c + 2
End If
If Check8(3).Value = 1 Then
c = c + 2
End If
If Check9(0).Value = 1 Then
c = c + 2
End If
If Check10(0).Value = 1 Then
c = c + 2
End If
If Check11(3).Value = 1 Then
c = c + 2
End If
If Check12(3).Value = 1 Then
c = c + 2
End If
If Check13(0).Value = 1 Then
c = c + 2
End If
If Check14(1).Value = 1 Then
c = c + 2
End If
If Check15(2).Value = 1 Then
c = c + 2
End If
If Check16(3).Value = 1 Then
c = c + 2
End If
If Check17(2).Value = 1 Then
c = c + 2
End If
If Check18(3).Value = 1 Then
c = c + 2
End If
If Check19(2).Value = 1 Then
c = c + 2
End If
If Check20(0).Value = 1 Then
c = c + 2
End If
If Check21(0).Value = 1 Then
c = c + 2
End If
If Check22(1).Value = 1 Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -