考试主体.frm

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

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 Command3_Click()
'改错题
kesu = 4
Label8.Caption = Frame1.Caption & "共有：" & kaoiq(kesu, 50) & "题"
Label9.Caption = " 当前为第：" & kaoiq(kesu, 0) & "题"
Frame1.Caption = Command3.Caption
If kaohao(kesu) = "" Then
Label6.Caption = readfile(1, 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
Dim gi As Integer
For gi = 0 To 3
Option1(gi).Visible = False
Check1(gi).Visible = False
If gi <= 1 Then Option2(gi).Visible = False
Next
Command8.Visible = False
Command9.Visible = False
Command10.Visible = False
Command11.Visible = False
Command13.Visible = True
Command14.Visible = True
End Sub

Private Sub Command4_Click()
'编程题
kesu = 5
Label8.Caption = Frame1.Caption & "共有：" & kaoiq(kesu, 50) & "题"
Label9.Caption = " 当前为第：" & kaoiq(kesu, 0) & "题"
Frame1.Caption = Command4.Caption
If kaohao(kesu) = "" Then
Label6.Caption = readfile(1, 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
Dim gi As Integer
For gi = 0 To 3
Option1(gi).Visible = False
Check1(gi).Visible = False
If gi <= 1 Then Option2(gi).Visible = False
Next
Command8.Visible = False
Command9.Visible = False
Command10.Visible = False
Command11.Visible = False
Command13.Visible = True
Command14.Visible = True
End Sub

Private Sub Command5_Click()
'保存
k = 66
Form5.Visible = True
Open App.Path & "\student\" & Form1.Text1.Text & "\data\stu.dat" For Output As #40
Dim i As Integer
Dim j As Integer
For i = 1 To 3
For j = 1 To kaoiq(i, 50)
Print #40, kaoiq(i, j) & Chr(16) & Chr(17)
Next
Next
Close #40
start.Winsock1.SendData "savedata"
End Sub

Private Sub Command6_Click()
'交卷
k = 1
Load Form4
Form4.Caption = "你确定要交卷吗？"
Form4.Label1.Caption = "交卷后就不能再考试了！"
Form4.Command1.Caption = "确定"
Form4.Visible = True
Form4.SetFocus
End Sub

Private Sub Command7_Click()
'求助教师
Load Form4
Form4.Caption = "你确定要求助教师吗？"
Form4.Label1.Caption = "求助教师后你还可以继续考试！"
Form4.Command1.Enabled = True
Form4.Command2.Enabled = True
Form4.Visible = True
Form4.SetFocus
End Sub

Private Sub Command8_Click()
'第一题
kaoiq(kesu, 0) = 1
Command8.Enabled = False
Command9.Enabled = False
Command10.Enabled = True
Command11.Enabled = True
Label6.Caption = readfile(1, 32 + kesu, 0)
kaohao(kesu) = Label6.Caption
Text1.Text = readfile(0, 32 + kesu, 0)
kaoask(kesu) = Text1.Text
'
Label9.Caption = " 当前为第：" & kaoiq(kesu, 0) & "题！"
datamix = 2
kaoiq(kesu, 0) = 1
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 Command9_Click()
'上一题
kaoiq(kesu, 0) = kaoiq(kesu, 0) - 1
Label6.Caption = readfile(2, 32 + kesu, 2)
kaohao(kesu) = Label6.Caption
Text1.Text = readfile(0, 32 + kesu, 0)
kaoask(kesu) = Text1.Text
If kaoiq(kesu, 0) = 1 Then
Command8.Enabled = False
Command9.Enabled = False
Command10.Enabled = True
Command11.Enabled = True
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 Form_Load()
Open finename(kesu) For Binary As #31
kaoiq(1, 50) = Val(readfile(0, 31, 0))
kaoiq(2, 50) = Val(readfile(0, 31, 0))
kaoiq(3, 50) = Val(readfile(0, 31, 0))
kaoiq(4, 50) = Val(readfile(0, 31, 0))
kaoiq(5, 50) = Val(readfile(0, 31, 0))
Close #31
If kaonull = 0 Then
Dim s As String
Open finename(kesu - 1) For Binary As #31
Open finename(kesu - 2) For Binary As #32
Open Left(finename(kesu - 2), Len(finename(kesu - 2)) - 3) & "c" For Output As #33
Open Left(finename(kesu - 1), Len(finename(kesu - 1)) - 3) & "c" For Output As #34
s = readfile(0, 32, 0)
s = readfile(0, 32, 0)
Print #33, s
s = readfile(0, 31, 0)
s = readfile(0, 31, 0)
Print #34, s
Close #31
Close #32
Close #33
Close #34
Else
Open App.Path & "\student\" & Form1.Text1.Text & "\data\stu.dat" For Binary As #32
Dim i, j As Integer
i = 1
If LOF(32) > 6 Then
For i = 1 To 3
For j = 1 To kaoiq(i, 50)
kaoiq(i, j) = Val(readfile(0, 32, 0))
Next
Next
Load Form4
Form4.Caption = "从考！"
Form4.Label1.Caption = "答案还原成功！"
Form4.Visible = True
End If
Close #32
End If

Command8.Enabled = False
Command9.Enabled = False
Command10.Enabled = True
Command11.Enabled = True
Text1.Text = "请点击左边的选项开始考试！" & Chr(13) & Chr(10) & "注意考试记时以开始！"

kesu = 0
miao = 59
Timer1.Enabled = True
For i = 1 To 8
kaoiq(i, 0) = 1
Next
datamix = 1
Open finename(1) For Binary As #33
Open finename(2) For Binary As #34
Open finename(3) For Binary As #35
Open finename(4) For Binary As #36
Open finename(5) For Binary As #37
End Sub
Private Sub Form_Unload(Cancel As Integer)
start.Winsock1.Close
Dim tix As Integer
For tix = 1 To 60
Close #tix
Next
Kill App.Path & "\student\" & Form1.Text1.Text & "\data\*.*"
RmDir App.Path & "\student\" & Form1.Text1 & "\data"
RmDir App.Path & "\student\" & Form1.Text1
End
End Sub

Private Sub Option1_Click(Index As Integer)
If datamix = 1 Then
kaoiq(kesu, kaoiq(kesu, 0)) = Index + 1
End If
End Sub

Private Sub Option2_Click(Index As Integer)
If datamix = 1 Then
kaoiq(kesu, kaoiq(kesu, 0)) = Index + 1
End If
End Sub

Private Sub Timer1_Timer()
miao = miao - 1
If miao <= 0 Then
miao = 60
fen = fen - 1
If fen <= -1 Then
k = 1
Form5.Visible = True
Open App.Path & "\student\" & Form1.Text1.Text & "\data\stu.dat" For Output As #40
Dim i As Integer
Dim j As Integer
For i = 1 To 3
For j = 1 To kaoiq(i, 50)
Print #40, kaoiq(i, j) & Chr(16) & Chr(17)
Next
Next
Close #40
start.Winsock1.SendData "savedata"
End If
End If
If fen > 9 Then
If miao > 9 Then
Form2.Caption = start.Text2.Text & "      " & "余下" & fen & "分" & miao & "秒"
Else
Form2.Caption = start.Text2.Text & "      " & "余下" & fen & "分" & "0" & miao & "秒"
End If
Else
If miao > 9 Then
Form2.Caption = start.Text2.Text & "      " & "余下" & "0" & fen & "分" & miao & "秒"
Else
Form2.Caption = start.Text2.Text & "      " & "余下" & "0" & fen & "分" & "0" & miao & "秒"
End If
End If
End Sub