Visual Basic/ Access

[torkvamedo]

Всех приветствую, товарищи, нужна ваша помощь. Есть тест на бейсике, к нему подключена БД access с вопросами , ответами, и.т.д. Вопрос : как сделать, что бы после прохождения теста, выдавало форму сравнения правильных ответом, и тех которые ответил студент.

код


Dim N As Integer
Dim K, v, i As Integer
Dim otv(1 To 21) As String

Private Sub Command1_Click()

If Command1.Caption = "следующий вопрос " Then
N = Val(Text1.Text)
If v = Text2 Then
K = K + 5
End If
Label5 = K
If N < 20 Then
Data1.Recordset.MoveNext
Else
Command1.Caption = "выйти"
Text2 = 6
Data1.Recordset.MoveNext


Label5 = "вы набрали " & K & " баллов !! поздравляю !!!"
Frame1.Visible = False
Label1.Visible = False
Frame2.Visible = False
Text1.Visible = False
Label6.Visible = False
End If
Else
Form3.Hide
Form2.Show
End If
End Sub


Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Private Sub Label2_Click()
Option1(0).Value = True
v = Option1(Index).Index + 1
v = 1
End Sub

Private Sub Label3_Click()
Option1(1).Value = True
v = Option1(Index).Index + 1
v = 2
End Sub

Private Sub Label4_Click()
Option1(2).Value = True
v = Option1(Index).Index + 1
v = 3
End Sub


Private Sub Option1_Click(Index As Integer)
v = Option1(Index).Index + 1
End Sub