考试主体.frm

这是一个用VB编写的在线考试系统

If Check1(2).Value = 1 Then kaoiq(kesu, kaoiq(kesu, 0)) = kaoiq(kesu, kaoiq(kesu, 0)) + 7
If Check1(3).Value = 1 Then kaoiq(kesu, kaoiq(kesu, 0)) = kaoiq(kesu, kaoiq(kesu, 0)) + 9
End If
End Sub

Private Sub Command1_Click()
'单选题
kesu = 1
Frame1.Caption = Command1.Caption
If kaohao(kesu) = "" Then
Label6.Caption = readfile(0, 32 + kesu, 0)
kaohao(kesu) = Label6.Caption
Text1.Text = readfile(0, 32 + kesu, 0)
kaoask(kesu) = Text1.Text
Else
Label6.Caption = kaohao(kesu)
Text1.Text = kaoask(kesu)
End If
Check1(0).Visible = False
Check1(1).Visible = False
Check1(2).Visible = False
Check1(3).Visible = False
Option2(0).Visible = False
Option2(1).Visible = False
Option1(0).Visible = True
Option1(1).Visible = True
Option1(2).Visible = True
Option1(3).Visible = True
Command8.Visible = True
Command9.Visible = True
Command10.Visible = True
Command11.Visible = True
'
Label8.Caption = Frame1.Caption & "共有：" & kaoiq(kesu, 50) & "题"
Label9.Caption = " 当前为第：" & kaoiq(kesu, 0) & "题"
datamix = 2
Select Case kesu
Case 1
Option1(0).Value = False
Option1(1).Value = False
Option1(2).Value = False
Option1(3).Value = False
If kaoiq(kesu, kaoiq(kesu, 0)) = 1 Then Option1(0).Value = True
If kaoiq(kesu, kaoiq(kesu, 0)) = 2 Then Option1(1).Value = True
If kaoiq(kesu, kaoiq(kesu, 0)) = 3 Then Option1(2).Value = True
If kaoiq(kesu, kaoiq(kesu, 0)) = 4 Then Option1(3).Value = True
Case 2
Check1(0).Value = 0
Check1(1).Value = 0
Check1(2).Value = 0
Check1(3).Value = 0
If kaoiq(kesu, kaoiq(kesu, 0)) = 1 Or kaoiq(kesu, kaoiq(kesu, 0)) = 6 Or kaoiq(kesu, kaoiq(kesu, 0)) = 8 Or kaoiq(kesu, kaoiq(kesu, 0)) = 10 Or kaoiq(kesu, kaoiq(kesu, 0)) = 13 Or kaoiq(kesu, kaoiq(kesu, 0)) = 15 Or kaoiq(kesu, kaoiq(kesu, 0)) = 22 Then Check1(0).Value = 1
If kaoiq(kesu, kaoiq(kesu, 0)) = 5 Or kaoiq(kesu, kaoiq(kesu, 0)) = 6 Or kaoiq(kesu, kaoiq(kesu, 0)) = 12 Or kaoiq(kesu, kaoiq(kesu, 0)) = 14 Or kaoiq(kesu, kaoiq(kesu, 0)) = 13 Or kaoiq(kesu, kaoiq(kesu, 0)) = 15 Or kaoiq(kesu, kaoiq(kesu, 0)) = 21 Or kaoiq(kesu, kaoiq(kesu, 0)) = 22 Then Check1(1).Value = 1
If kaoiq(kesu, kaoiq(kesu, 0)) = 7 Or kaoiq(kesu, kaoiq(kesu, 0)) = 8 Or kaoiq(kesu, kaoiq(kesu, 0)) = 12 Or kaoiq(kesu, kaoiq(kesu, 0)) = 16 Or kaoiq(kesu, kaoiq(kesu, 0)) = 13 Or kaoiq(kesu, kaoiq(kesu, 0)) = 21 Or kaoiq(kesu, kaoiq(kesu, 0)) = 22 Then Check1(2).Value = 1
If kaoiq(kesu, kaoiq(kesu, 0)) = 9 Or kaoiq(kesu, kaoiq(kesu, 0)) = 10 Or kaoiq(kesu, kaoiq(kesu, 0)) = 14 Or kaoiq(kesu, kaoiq(kesu, 0)) = 16 Or kaoiq(kesu, kaoiq(kesu, 0)) = 15 Or kaoiq(kesu, kaoiq(kesu, 0)) = 21 Or kaoiq(kesu, kaoiq(kesu, 0)) = 22 Then Check1(3).Value = 1
Case 3
Option2(0).Value = False
Option2(1).Value = False
If kaoiq(kesu, kaoiq(kesu, 0)) = 1 Then Option2(0).Value = True
If kaoiq(kesu, kaoiq(kesu, 0)) = 2 Then Option2(1).Value = True
End Select
datamix = 1
If kaoiq(kesu, 0) = 1 Then
Command8.Enabled = False
Command9.Enabled = False
Command10.Enabled = True
Command11.Enabled = True
ElseIf kaoiq(kesu, 0) = kaoiq(kesu, 50) Then
Command8.Enabled = True
Command9.Enabled = True
Command10.Enabled = False
Command11.Enabled = False
Else
Command8.Enabled = True
Command9.Enabled = True
Command10.Enabled = True
Command11.Enabled = True
End If
Command13.Visible = False
Command14.Visible = False
End Sub
Private Sub Command10_Click()
'下一题
kaoiq(kesu, 0) = kaoiq(kesu, 0) + 1
Label6.Caption = readfile(0, 32 + kesu, 0)
Text1.Text = readfile(0, 32 + kesu, 0)
kaoask(kesu) = Text1.Text
kaohao(kesu) = Label6.Caption
If kaoiq(kesu, 0) = kaoiq(kesu, 50) Then
Command8.Enabled = True
Command9.Enabled = True
Command10.Enabled = False
Command11.Enabled = False
Else
Command8.Enabled = True
Command9.Enabled = True
Command10.Enabled = True
Command11.Enabled = True
End If
'
Label9.Caption = " 当前为第：" & kaoiq(kesu, 0) & "题"
datamix = 2
Select Case kesu
Case 1
Option1(0).Value = False
Option1(1).Value = False
Option1(2).Value = False
Option1(3).Value = False
If kaoiq(kesu, kaoiq(kesu, 0)) = 1 Then Option1(0).Value = True
If kaoiq(kesu, kaoiq(kesu, 0)) = 2 Then Option1(1).Value = True
If kaoiq(kesu, kaoiq(kesu, 0)) = 3 Then Option1(2).Value = True
If kaoiq(kesu, kaoiq(kesu, 0)) = 4 Then Option1(3).Value = True
Case 2
Check1(0).Value = 0
Check1(1).Value = 0
Check1(2).Value = 0
Check1(3).Value = 0
If kaoiq(kesu, kaoiq(kesu, 0)) = 1 Or kaoiq(kesu, kaoiq(kesu, 0)) = 6 Or kaoiq(kesu, kaoiq(kesu, 0)) = 8 Or kaoiq(kesu, kaoiq(kesu, 0)) = 10 Or kaoiq(kesu, kaoiq(kesu, 0)) = 13 Or kaoiq(kesu, kaoiq(kesu, 0)) = 15 Or kaoiq(kesu, kaoiq(kesu, 0)) = 22 Then Check1(0).Value = 1
If kaoiq(kesu, kaoiq(kesu, 0)) = 5 Or kaoiq(kesu, kaoiq(kesu, 0)) = 6 Or kaoiq(kesu, kaoiq(kesu, 0)) = 12 Or kaoiq(kesu, kaoiq(kesu, 0)) = 14 Or kaoiq(kesu, kaoiq(kesu, 0)) = 13 Or kaoiq(kesu, kaoiq(kesu, 0)) = 15 Or kaoiq(kesu, kaoiq(kesu, 0)) = 21 Or kaoiq(kesu, kaoiq(kesu, 0)) = 22 Then Check1(1).Value = 1
If kaoiq(kesu, kaoiq(kesu, 0)) = 7 Or kaoiq(kesu, kaoiq(kesu, 0)) = 8 Or kaoiq(kesu, kaoiq(kesu, 0)) = 12 Or kaoiq(kesu, kaoiq(kesu, 0)) = 16 Or kaoiq(kesu, kaoiq(kesu, 0)) = 13 Or kaoiq(kesu, kaoiq(kesu, 0)) = 21 Or kaoiq(kesu, kaoiq(kesu, 0)) = 22 Then Check1(2).Value = 1
If kaoiq(kesu, kaoiq(kesu, 0)) = 9 Or kaoiq(kesu, kaoiq(kesu, 0)) = 10 Or kaoiq(kesu, kaoiq(kesu, 0)) = 14 Or kaoiq(kesu, kaoiq(kesu, 0)) = 16 Or kaoiq(kesu, kaoiq(kesu, 0)) = 15 Or kaoiq(kesu, kaoiq(kesu, 0)) = 21 Or kaoiq(kesu, kaoiq(kesu, 0)) = 22 Then Check1(3).Value = 1
Case 3
Option2(0).Value = False
Option2(1).Value = False
If kaoiq(kesu, kaoiq(kesu, 0)) = 1 Then Option2(0).Value = True
If kaoiq(kesu, kaoiq(kesu, 0)) = 2 Then Option2(1).Value = True
End Select
datamix = 1
End Sub

Private Sub Command11_Click()
'最后一题
kaoiq(kesu, 0) = kaoiq(kesu, 50)
Command8.Enabled = True
Command9.Enabled = True
Command10.Enabled = False
Command11.Enabled = False
Seek #(32 + kesu), LOF(32 + kesu)
Label6.Caption = readfile(2, 32 + kesu, 0)
Text1.Text = readfile(0, 32 + kesu, 0)
kaoask(kesu) = Text1.Text
kaohao(kesu) = Label6.Caption
'
Label9.Caption = " 当前为第：" & kaoiq(kesu, 0) & "题"
datamix = 2
kaoiq(kesu, 0) = kaoiq(kesu, 50)
Select Case kesu
Case 1
Option1(0).Value = False
Option1(1).Value = False
Option1(2).Value = False
Option1(3).Value = False
If kaoiq(kesu, kaoiq(kesu, 0)) = 1 Then Option1(0).Value = True
If kaoiq(kesu, kaoiq(kesu, 0)) = 2 Then Option1(1).Value = True
If kaoiq(kesu, kaoiq(kesu, 0)) = 3 Then Option1(2).Value = True
If kaoiq(kesu, kaoiq(kesu, 0)) = 4 Then Option1(3).Value = True
Case 2
Check1(0).Value = 0
Check1(1).Value = 0
Check1(2).Value = 0
Check1(3).Value = 0
If kaoiq(kesu, kaoiq(kesu, 0)) = 1 Or kaoiq(kesu, kaoiq(kesu, 0)) = 6 Or kaoiq(kesu, kaoiq(kesu, 0)) = 8 Or kaoiq(kesu, kaoiq(kesu, 0)) = 10 Or kaoiq(kesu, kaoiq(kesu, 0)) = 13 Or kaoiq(kesu, kaoiq(kesu, 0)) = 15 Or kaoiq(kesu, kaoiq(kesu, 0)) = 22 Then Check1(0).Value = 1
If kaoiq(kesu, kaoiq(kesu, 0)) = 5 Or kaoiq(kesu, kaoiq(kesu, 0)) = 6 Or kaoiq(kesu, kaoiq(kesu, 0)) = 12 Or kaoiq(kesu, kaoiq(kesu, 0)) = 14 Or kaoiq(kesu, kaoiq(kesu, 0)) = 13 Or kaoiq(kesu, kaoiq(kesu, 0)) = 15 Or kaoiq(kesu, kaoiq(kesu, 0)) = 21 Or kaoiq(kesu, kaoiq(kesu, 0)) = 22 Then Check1(1).Value = 1
If kaoiq(kesu, kaoiq(kesu, 0)) = 7 Or kaoiq(kesu, kaoiq(kesu, 0)) = 8 Or kaoiq(kesu, kaoiq(kesu, 0)) = 12 Or kaoiq(kesu, kaoiq(kesu, 0)) = 16 Or kaoiq(kesu, kaoiq(kesu, 0)) = 13 Or kaoiq(kesu, kaoiq(kesu, 0)) = 21 Or kaoiq(kesu, kaoiq(kesu, 0)) = 22 Then Check1(2).Value = 1
If kaoiq(kesu, kaoiq(kesu, 0)) = 9 Or kaoiq(kesu, kaoiq(kesu, 0)) = 10 Or kaoiq(kesu, kaoiq(kesu, 0)) = 14 Or kaoiq(kesu, kaoiq(kesu, 0)) = 16 Or kaoiq(kesu, kaoiq(kesu, 0)) = 15 Or kaoiq(kesu, kaoiq(kesu, 0)) = 21 Or kaoiq(kesu, kaoiq(kesu, 0)) = 22 Then Check1(3).Value = 1
Case 3
Option2(0).Value = False
Option2(1).Value = False
If kaoiq(kesu, kaoiq(kesu, 0)) = 1 Then Option2(0).Value = True
If kaoiq(kesu, kaoiq(kesu, 0)) = 2 Then Option2(1).Value = True
End Select
datamix = 1
End Sub

Private Sub Command12_Click()
'判断题
kesu = 3
Frame1.Caption = Command12.Caption
If kaohao(kesu) = "" Then
Label6.Caption = readfile(0, 32 + kesu, 0)
kaohao(kesu) = Label6.Caption
Text1.Text = readfile(0, 32 + kesu, 0)
kaoask(kesu) = Text1.Text
Else
Label6.Caption = kaohao(kesu)
Text1.Text = kaoask(kesu)
End If
Check1(0).Visible = False
Check1(1).Visible = False
Check1(2).Visible = False
Check1(3).Visible = False
Option1(0).Visible = False
Option1(1).Visible = False
Option1(2).Visible = False
Option1(3).Visible = False
Option2(0).Visible = True
Option2(1).Visible = True
Command8.Visible = True
Command9.Visible = True
Command10.Visible = True
Command11.Visible = True
'
Label8.Caption = Frame1.Caption & "共有：" & kaoiq(kesu, 50) & "题"
Label9.Caption = " 当前为第：" & kaoiq(kesu, 0) & "题"
datamix = 2
Select Case kesu
Case 1
Option1(0).Value = False
Option1(1).Value = False
Option1(2).Value = False
Option1(3).Value = False
If kaoiq(kesu, kaoiq(kesu, 0)) = 1 Then Option1(0).Value = True
If kaoiq(kesu, kaoiq(kesu, 0)) = 2 Then Option1(1).Value = True
If kaoiq(kesu, kaoiq(kesu, 0)) = 3 Then Option1(2).Value = True
If kaoiq(kesu, kaoiq(kesu, 0)) = 4 Then Option1(3).Value = True
Case 2
Check1(0).Value = 0
Check1(1).Value = 0
Check1(2).Value = 0
Check1(3).Value = 0
If kaoiq(kesu, kaoiq(kesu, 0)) = 1 Or kaoiq(kesu, kaoiq(kesu, 0)) = 6 Or kaoiq(kesu, kaoiq(kesu, 0)) = 8 Or kaoiq(kesu, kaoiq(kesu, 0)) = 10 Or kaoiq(kesu, kaoiq(kesu, 0)) = 13 Or kaoiq(kesu, kaoiq(kesu, 0)) = 15 Or kaoiq(kesu, kaoiq(kesu, 0)) = 22 Then Check1(0).Value = 1
If kaoiq(kesu, kaoiq(kesu, 0)) = 5 Or kaoiq(kesu, kaoiq(kesu, 0)) = 6 Or kaoiq(kesu, kaoiq(kesu, 0)) = 12 Or kaoiq(kesu, kaoiq(kesu, 0)) = 14 Or kaoiq(kesu, kaoiq(kesu, 0)) = 13 Or kaoiq(kesu, kaoiq(kesu, 0)) = 15 Or kaoiq(kesu, kaoiq(kesu, 0)) = 21 Or kaoiq(kesu, kaoiq(kesu, 0)) = 22 Then Check1(1).Value = 1
If kaoiq(kesu, kaoiq(kesu, 0)) = 7 Or kaoiq(kesu, kaoiq(kesu, 0)) = 8 Or kaoiq(kesu, kaoiq(kesu, 0)) = 12 Or kaoiq(kesu, kaoiq(kesu, 0)) = 16 Or kaoiq(kesu, kaoiq(kesu, 0)) = 13 Or kaoiq(kesu, kaoiq(kesu, 0)) = 21 Or kaoiq(kesu, kaoiq(kesu, 0)) = 22 Then Check1(2).Value = 1
If kaoiq(kesu, kaoiq(kesu, 0)) = 9 Or kaoiq(kesu, kaoiq(kesu, 0)) = 10 Or kaoiq(kesu, kaoiq(kesu, 0)) = 14 Or kaoiq(kesu, kaoiq(kesu, 0)) = 16 Or kaoiq(kesu, kaoiq(kesu, 0)) = 15 Or kaoiq(kesu, kaoiq(kesu, 0)) = 21 Or kaoiq(kesu, kaoiq(kesu, 0)) = 22 Then Check1(3).Value = 1
Case 3
Option2(0).Value = False
Option2(1).Value = False
If kaoiq(kesu, kaoiq(kesu, 0)) = 1 Then Option2(0).Value = True
If kaoiq(kesu, kaoiq(kesu, 0)) = 2 Then Option2(1).Value = True
End Select
datamix = 1
If kaoiq(kesu, 0) = 1 Then
Command8.Enabled = False
Command9.Enabled = False
Command10.Enabled = True
Command11.Enabled = True
ElseIf kaoiq(kesu, 0) = kaoiq(kesu, 50) Then
Command8.Enabled = True
Command9.Enabled = True
Command10.Enabled = False
Command11.Enabled = False
Else
Command8.Enabled = True
Command9.Enabled = True
Command10.Enabled = True
Command11.Enabled = True
End If
Command13.Visible = False
Command14.Visible = False
End Sub

Private Sub Command13_Click()
Form2.Visible = False
byhwnd = Shell(prg & " " & Left(finename(kesu), Len(finename(kesu)) - 3) & "c", 3)
If byhwnd = 0 Then
MsgBox "打开C程序失败！请和教师联系！"
Form2.Visible = True
Else
Load Form6
Form6.Visible = True
AppActivate byhwnd
End If
End Sub

Private Sub Command14_Click()
Dim s As String
Open Left(finename(kesu), Len(finename(kesu)) - 3) & "c" For Output As #32
s = readfile(1, 32 + kesu, 0)
s = readfile(0, 32 + kesu, 0)
Print #32, s
Close #32
End Sub

Private Sub Command2_Click()
'多选题
kesu = 2
Frame1.Caption = Command2.Caption
If kaohao(kesu) = "" Then
Label6.Caption = readfile(0, 32 + kesu, 0)
kaohao(kesu) = Label6.Caption
Text1.Text = readfile(0, 32 + kesu, 0)
kaoask(kesu) = Text1.Text
Else
Label6.Caption = kaohao(kesu)
Text1.Text = kaoask(kesu)
End If
Option2(0).Visible = False
Option2(1).Visible = False
Option1(0).Visible = False
Option1(1).Visible = False
Option1(2).Visible = False
Option1(3).Visible = False
Check1(0).Visible = True
Check1(1).Visible = True
Check1(2).Visible = True
Check1(3).Visible = True
Command8.Visible = True
Command9.Visible = True
Command10.Visible = True
Command11.Visible = True
'
Label8.Caption = Frame1.Caption & "共有：" & kaoiq(kesu, 50) & "题"
Label9.Caption = " 当前为第：" & kaoiq(kesu, 0) & "题"
datamix = 2
Select Case kesu
Case 1
Option1(0).Value = False
Option1(1).Value = False
Option1(2).Value = False
Option1(3).Value = False
If kaoiq(kesu, kaoiq(kesu, 0)) = 1 Then Option1(0).Value = True
If kaoiq(kesu, kaoiq(kesu, 0)) = 2 Then Option1(1).Value = True
If kaoiq(kesu, kaoiq(kesu, 0)) = 3 Then Option1(2).Value = True
If kaoiq(kesu, kaoiq(kesu, 0)) = 4 Then Option1(3).Value = True
Case 2
Check1(0).Value = 0
Check1(1).Value = 0
Check1(2).Value = 0
Check1(3).Value = 0
If kaoiq(kesu, kaoiq(kesu, 0)) = 1 Or kaoiq(kesu, kaoiq(kesu, 0)) = 6 Or kaoiq(kesu, kaoiq(kesu, 0)) = 8 Or kaoiq(kesu, kaoiq(kesu, 0)) = 10 Or kaoiq(kesu, kaoiq(kesu, 0)) = 13 Or kaoiq(kesu, kaoiq(kesu, 0)) = 15 Or kaoiq(kesu, kaoiq(kesu, 0)) = 22 Then Check1(0).Value = 1
If kaoiq(kesu, kaoiq(kesu, 0)) = 5 Or kaoiq(kesu, kaoiq(kesu, 0)) = 6 Or kaoiq(kesu, kaoiq(kesu, 0)) = 12 Or kaoiq(kesu, kaoiq(kesu, 0)) = 14 Or kaoiq(kesu, kaoiq(kesu, 0)) = 13 Or kaoiq(kesu, kaoiq(kesu, 0)) = 15 Or kaoiq(kesu, kaoiq(kesu, 0)) = 21 Or kaoiq(kesu, kaoiq(kesu, 0)) = 22 Then Check1(1).Value = 1
If kaoiq(kesu, kaoiq(kesu, 0)) = 7 Or kaoiq(kesu, kaoiq(kesu, 0)) = 8 Or kaoiq(kesu, kaoiq(kesu, 0)) = 12 Or kaoiq(kesu, kaoiq(kesu, 0)) = 16 Or kaoiq(kesu, kaoiq(kesu, 0)) = 13 Or kaoiq(kesu, kaoiq(kesu, 0)) = 21 Or kaoiq(kesu, kaoiq(kesu, 0)) = 22 Then Check1(2).Value = 1
If kaoiq(kesu, kaoiq(kesu, 0)) = 9 Or kaoiq(kesu, kaoiq(kesu, 0)) = 10 Or kaoiq(kesu, kaoiq(kesu, 0)) = 14 Or kaoiq(kesu, kaoiq(kesu, 0)) = 16 Or kaoiq(kesu, kaoiq(kesu, 0)) = 15 Or kaoiq(kesu, kaoiq(kesu, 0)) = 21 Or kaoiq(kesu, kaoiq(kesu, 0)) = 22 Then Check1(3).Value = 1
Case 3
Option2(0).Value = False
Option2(1).Value = False
If kaoiq(kesu, kaoiq(kesu, 0)) = 1 Then Option2(0).Value = True
If kaoiq(kesu, kaoiq(kesu, 0)) = 2 Then Option2(1).Value = True
End Select
datamix = 1