Dim com As Integer
Dim total As Integer
'----------------------------------------------------------------
Function row(filename As String, line As Integer) As Integer
Open filename For Input As #1
Do Until EOF(1)
Line Input #1, fileline
row = row + 1
If row = line Then
Print fileline
End If
Loop
Close #1
End Function
Function row2(filename As String, line As Integer) As Integer
Open filename For Input As #2
Do Until EOF(2)
Line Input #2, fileline
row2 = row2 + 1
If row2 = line Then
Label = Split(fileline, "/")
Label1.Caption = Label(0)
Label2.Caption = Label(1)
Label3.Caption = Label(2)
Label4.Caption = Label(3)
Label6.Caption = Label(4)
End If
Loop
Close #2
End Function
'----------------------------------------------------------------
Private Sub Form_activate()
Me.Caption = "考试复习"
s = row(App.Path & "\题库.txt", 1)
l = row2(App.Path & "\答案.txt", 1)
Label5.Caption = "( )"
Label6.Visible = False
Command1.Caption = "下一题"
Print
Print
Print
Print
Print
Print "你选择"
End Sub
Private Sub Form_Load()
Me.FontSize = 10
Label1.FontSize = 10
Label2.FontSize = 10
Label3.FontSize = 10
Label4.FontSize = 10
Label5.FontSize = 10
End Sub
'----------------------------------------------------------------
Private Sub Label1_Click()
Label5.Caption = "(A)"
End Sub
Private Sub Label2_Click()
Label5.Caption = "(B)"
End Sub
Private Sub Label3_Click()
Label5.Caption = "(C)"
End Sub
Private Sub Label4_Click()
Label5.Caption = "(D)"
End Sub
'----------------------------------------------------------------
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbRed
End Sub
Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.ForeColor = vbRed
End Sub
Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label3.ForeColor = vbRed
End Sub
Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label4.ForeColor = vbRed
End Sub
'----------------------------------------------------------------
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbBlack
Label2.ForeColor = vbBlack
Label3.ForeColor = vbBlack
Label4.ForeColor = vbBlack
End Sub
'----------------------------------------------------------------
Private Sub Command1_Click()
Me.Cls
com = com + 1
If Mid(Label5.Caption, 2, 1) = Label6.Caption Then
total = total + 1
End If
s = row(App.Path & "\题库.txt", 1 + com)
l = row2(App.Path & "\答案.txt", 1 + com)
Label5.Caption = "( )"
Print
Print
Print
Print
Print
Print "你选择"
If com + 1 - s = 1 Then
n = (total / (com)) * 100
MsgBox "答对题数:" & total & vbCrLf & "正确率:" & n & "%"
End
End If
End Sub