Программа для тестирования знаний

             Dim Prov1 As Boolean
         Dim Prov2 As Boolean
         Dim Prov3 As Boolean
         Dim Prov4 As Boolean
        if Верно1 = 1 And checkbox1.Checked Then Prov1 = true
        if Верно2 = 2 And checkbox2.Checked Then Prov2 = true
        If Верно3 = 3 And checkbox3.Checked Then Prov3 = True
        If Верно4 = 4 And checkbox4.Checked Then Prov4 = True
        
 
        If Prov1 = True and Prov2 = True and Prov3 = True and Prov4 = True Then
            Кол=Кол+1
        Else
            Кол=Кол
            End If

Dim AdCat As ADOX.Catalog = New ADOX.Catalog
AdCat.Create ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=zap.mdb;Jet OLEDB:Engine Type=5")
cn.Open()
Dim Com As New System.Data.OleDb.OleDbCommand ("CREATE TABLE Результаты (номер COUNTER CONSTRAINT номер PRIMARY KEY,Тема STRING, Дата string ,Группа STRING, Студент STRING  ,Верных_ответов STRING,Верных_ответов_в_процентах STRING )", cn)
Com.ExecuteNonQuery()
cn.Close()

Q = IO.File.ReadAllLines(Application.StartupPath & "\Q.txt", System.Text.Encoding.Default)

ОткрываемФайл (НомерЗаписи1, "ПутьКФайлу", ОткрываемНаЧтение)
ЧитатьПока ФайлНеКончится
Коллекция.Добавить (НомерЗаписи1, ЧитаемСтроку)
Выполнять
ЗакрываемФайл(НомерЗаписи1)