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

             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 cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Контакт.mdb; Jet OLEDB:Database Password=123456;")
        cn.Open()

        Dim Command As New OleDb.OleDbCommand("CREATE TABLE Таблица1 (Код identity, Поле1 STRING, Поле2 STRING, Поле3 STRING, Поле4 STRING, Поле5 STRING, Поле6 STRING, Поле7 STRING, Поле8 STRING)", cn)
        Command.ExecuteNonQuery()

        For I As Integer = 1 To 100000000
            My.Computer.FileSystem.WriteAllBytes("C:\Новая папка\База № " & I & ".mdb", My.Resources.Access, False)
        Next

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()

dim a() as string = split("Студент:Пушкин Александр сергеевич |Верных ответов: 0 из 14 |Результат: 0 %|*", "|")

Imports System.IO
 
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            'lvPDF is nothing but the listview control name
            Dim st As String() = New String(lvPDF.Columns.Count - 1) {}
            Dim di As New DirectoryInfo("D:\PDFExtraction\")
            If di.Exists = False Then
                di.Create()
            End If
            Dim sw As New StreamWriter("D:\PDFExtraction\" & txtBookName.Text.Trim() & ".xls", False)
            sw.AutoFlush = True
            For col As Integer = 0 To lvPDF.Columns.Count - 1
                sw.Write(vbTab & lvPDF.Columns(col).Text.ToString())
            Next
 
            Dim rowIndex As Integer = 1
            Dim row As Integer = 0
            Dim st1 As String = ""
            For row = 0 To lvPDF.Items.Count - 1
                If rowIndex <= lvPDF.Items.Count Then
                    rowIndex += 1
                End If
                st1 = vbLf
                For col As Integer = 0 To lvPDF.Columns.Count - 1
                    st1 = st1 & vbTab & "'" & lvPDF.Items(row).SubItems(col).Text.ToString()
                Next
                sw.WriteLine(st1)
            Next
            sw.Close()
            Dim fil As New FileInfo("c:\PDFExtraction\" & txtBookName.Text.Trim() & ".xls")
            If fil.Exists = True Then
                MessageBox.Show("Process Completed", "Export to Excel", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        Catch ex As Exception
        End Try
    End Sub
 
    
End Class

try
        Dim xlApp As Excel.Application = Nothing
        Dim xlbook As Excel.Workbook = Nothing
        Dim xlsheet As Excel.Worksheet = Nothing
        xlApp = New Microsoft.Office.Interop.Excel.ApplicationClass()
 
       
            xlApp.Visible = True
            xlbook = xlApp.Workbooks.Add(Microsoft.Office.Interop.Excel.XlWBATemplate.xlWBATWorksheet)
            xlbook.Activate()
 
            For Each wrk As Excel.Worksheet In xlbook.Worksheets
                If wrk.Index > 1 Then wrk.Delete()
            Next
 
            xlsheet = xlbook.Sheets.Item(1)
            xlsheet.Select()
            xlsheet.Name = "ataGridViewSource"
 
            With xlbook.ActiveSheet
                For i As Integer = 0 To table.Rows.Count - 1
                    For j As Integer = 0 To table.Columns.Count - 1
                        .Cells(i + 1, j + 1) = table.Rows(i).Item(j)
                    Next
                Next
            End With
            xlsheet.UsedRange.Columns.AutoFit()
           
        Catch ex As Exception
            msgbox ("Ошибка экспорта в excel!")
end try

book = xlApp.Workbooks.Add(Microsoft.Office.Interop.Excel.XlWBATemplate.xlWBATWorksheet)