Scribd Logo
Upload

Welcome to Scribd!

  • 32 views

    Sergio

    Uploaded by

    dandisarai
    This document contains the code for a Visual Basic .NET quiz application with multiple forms. The application loads questions from a database and displays them on subsequent forms along with answer options. The user's selection is checked and feedback is provided by enabling and disabling options or displaying messages. The code establishes database connections and uses data adapters to retrieve and display the question text and answer options from different tables on each form.

    Copyright:

    Attribution Non-Commercial (BY-NC)
    Download as DOCX, PDF, TXT or read online from Scribd

    Sergio

    Uploaded by

    dandisarai
    32 views18 pages
    This document contains the code for a Visual Basic .NET quiz application with multiple forms. The application loads questions from a database and displays them on subsequent forms along with answer options. The user's selection is checked and feedback is provided by enabling and disabling options or displaying messages. The code establishes database connections and uses data adapters to retrieve and display the question text and answer options from different tables on each form.

    Original Title

    sergio

    Copyright

    © Attribution Non-Commercial (BY-NC)

    Available Formats

    DOCX, PDF, TXT or read online from Scribd

    Did you find this document useful?

    Is this content inappropriate?

    This document contains the code for a Visual Basic .NET quiz application with multiple forms. The application loads questions from a database and displays them on subsequent forms along with answer options. The user's selection is checked and feedback is provided by enabling and disabling options or displaying messages. The code establishes database connections and uses data adapters to retrieve and display the question text and answer options from different tables on each form.

    Copyright:

    Attribution Non-Commercial (BY-NC)
    Download as DOCX, PDF, TXT or read online from Scribd
    Download as docx, pdf, or txt
    32 views18 pages

    Sergio

    Uploaded by

    dandisarai
    This document contains the code for a Visual Basic .NET quiz application with multiple forms. The application loads questions from a database and displays them on subsequent forms along with answer options. The user's selection is checked and feedback is provided by enabling and disabling options or displaying messages. The code establishes database connections and uses data adapters to retrieve and display the question text and answer options from different tables on each form.

    Copyright:

    Attribution Non-Commercial (BY-NC)
    Download as DOCX, PDF, TXT or read online from Scribd
    Download as docx, pdf, or txt
    of 18

    Conalep 1

    Sarai acosta ibañez

    5101

    Programacion

    Psp.-sergio perez

    Proyecto
    Public Class Form1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


    Button2.Click
    Me.Hide()
    Form2.Show()
    Dim fila As Integer = 0
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
    End Class
    Public Class Form2
    Dim dt As New DataTable
    Dim dt2 As New DataTable
    Dim dt3 As New DataTable
    Dim cn2 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\acosta\Proyecto.mdb")
    Dim cn3 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\acosta\Proyecto.mdb")

    Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data


    Source=C:\acosta\Proyecto.mdb")

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


    cn.Open()
    Dim Consultardatos As String = "Select* From Preguntas "
    Dim dataAdapter As New OleDb.OleDbDataAdapter(Consultardatos, cn)
    dataAdapter.Fill(dt)
    fila = 0

    P1.Text = (dt.Rows(fila)("Preguntas"))

    dataAdapter.Dispose()

    Dim Consultardatos2 As String = "Select* From Preguntas "


    Dim dataAdapter2 As New OleDb.OleDbDataAdapter(Consultardatos2, cn)
    dataAdapter2.Fill(dt2)
    fila = 0

    a.Text = (dt2.Rows(fila)("Correcta"))

    dataAdapter2.Dispose()

    Dim Consultardatos3 As String = "Select* From Preguntas "


    Dim dataAdapter3 As New OleDb.OleDbDataAdapter(Consultardatos3, cn)
    dataAdapter3.Fill(dt3)
    fila = 0

    b.Text = (dt3.Rows(fila)("Incorrecto"))

    dataAdapter3.Dispose()
    cn.Close()
    End Sub

    Private Sub a_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


    a.CheckedChanged
    If ((a.Checked = True)) Then
    MsgBox("TU MUY MUY BN!")
    b.Enabled = False
    End If

    Me.Hide()
    Form3.Show()

    End Sub

    Private Sub b_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


    b.CheckedChanged
    If b.Checked = True Then
    MsgBox("Tu respuesta es nefasta")
    a.Enabled = False
    End If
    Me.Hide()
    Form3.Show()
    End Sub
    End Class

    Public Class Form3


    Dim dt As New DataTable
    Dim dt2 As New DataTable
    Dim dt3 As New DataTable
    Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\acosta\Proyecto.mdb")

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


    cn.Open()
    Dim Consultardatos As String = "Select* From Preguntas "
    Dim dataAdapter As New OleDb.OleDbDataAdapter(Consultardatos, cn)
    dataAdapter.Fill(dt)
    fila = +1

    P2.Text = (dt.Rows(fila)("Preguntas"))

    dataAdapter.Dispose()

    Dim Consultardatos2 As String = "Select* From Preguntas "


    Dim dataAdapter2 As New OleDb.OleDbDataAdapter(Consultardatos2, cn)
    dataAdapter2.Fill(dt2)
    fila = +1

    a.Text = (dt2.Rows(fila)("Correcta"))

    dataAdapter2.Dispose()

    Dim Consultardatos3 As String = "Select* From Preguntas "


    Dim dataAdapter3 As New OleDb.OleDbDataAdapter(Consultardatos3, cn)
    dataAdapter3.Fill(dt3)
    fila = +1

    b.Text = (dt3.Rows(fila)("Incorrecto"))

    dataAdapter3.Dispose()
    cn.Close()
    End Sub

    Private Sub a_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


    a.CheckedChanged
    If a.Checked = True Then
    b.Enabled = False
    End If
    MsgBox("Tu respuesta es nefasta")
    Me.Hide()
    Form4.Show()
    End Sub

    Private Sub b_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


    b.CheckedChanged
    If ((a.Checked = True)) Then
    b.Enabled = False
    End If
    MsgBox("TU MUY MUY BN!")

    Me.Hide()
    Form4.Show()
    End Sub
    End Class

    Public Class Form4


    Dim dt As New DataTable
    Dim dt2 As New DataTable
    Dim dt3 As New DataTable
    Dim cn2 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\acosta\Proyecto.mdb")
    Dim cn3 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\acosta\Proyecto.mdb")

    Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data


    Source=C:\acosta\Proyecto.mdb")
    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    cn.Open()
    Dim Consultardatos As String = "Select* From Preguntas "
    Dim dataAdapter As New OleDb.OleDbDataAdapter(Consultardatos, cn)
    dataAdapter.Fill(dt)
    fila = +2

    P3.Text = (dt.Rows(fila)("Preguntas"))

    dataAdapter.Dispose()

    Dim Consultardatos2 As String = "Select* From Preguntas "


    Dim dataAdapter2 As New OleDb.OleDbDataAdapter(Consultardatos2, cn)
    dataAdapter2.Fill(dt2)
    fila = +2

    a.Text = (dt2.Rows(fila)("Correcta"))

    dataAdapter2.Dispose()

    Dim Consultardatos3 As String = "Select* From Preguntas "


    Dim dataAdapter3 As New OleDb.OleDbDataAdapter(Consultardatos3, cn)
    dataAdapter3.Fill(dt3)
    fila = +2

    b.Text = (dt3.Rows(fila)("Incorrecto"))

    dataAdapter3.Dispose()
    cn.Close()
    End Sub

    Private Sub a_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


    a.CheckedChanged
    If a.Checked = True Then
    MsgBox("TU MUY MUY BN!")
    b.Enabled = False
    End If
    Me.Hide()
    Form5.Show()
    End Sub

    Private Sub b_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


    b.CheckedChanged
    If ((b.Checked = True)) Then
    MsgBox("Tu respuesta es nefasta")
    a.Enabled = False
    End If

    Me.Hide()
    Form5.Show()
    End Sub
    End Class

    Public Class Form5


    Dim dt As New DataTable
    Dim dt2 As New DataTable
    Dim dt3 As New DataTable
    Dim cn2 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\acosta\Proyecto.mdb")
    Dim cn3 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\acosta\Proyecto.mdb")

    Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data


    Source=C:\acosta\Proyecto.mdb")

    Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


    cn.Open()
    Dim Consultardatos As String = "Select* From Preguntas "
    Dim dataAdapter As New OleDb.OleDbDataAdapter(Consultardatos, cn)
    dataAdapter.Fill(dt)
    fila = +3

    P4.Text = (dt.Rows(fila)("Preguntas"))

    dataAdapter.Dispose()

    Dim Consultardatos2 As String = "Select* From Preguntas "


    Dim dataAdapter2 As New OleDb.OleDbDataAdapter(Consultardatos2, cn)
    dataAdapter2.Fill(dt2)
    fila = +3

    a.Text = (dt2.Rows(fila)("Correcta"))

    dataAdapter2.Dispose()

    Dim Consultardatos3 As String = "Select* From Preguntas "


    Dim dataAdapter3 As New OleDb.OleDbDataAdapter(Consultardatos3, cn)
    dataAdapter3.Fill(dt3)
    fila = +3

    b.Text = (dt3.Rows(fila)("Incorrecto"))

    dataAdapter3.Dispose()
    cn.Close()
    End Sub

    Private Sub a_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


    a.CheckedChanged
    If ((a.Checked = True)) Then
    MsgBox("TU MUY MUY BN!")
    b.Enabled = False
    End If

    Me.Hide()
    Form6.Show()
    End Sub

    Private Sub b_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


    b.CheckedChanged
    If b.Checked = True Then
    MsgBox("Tu respuesta es nefasta")
    a.Enabled = False
    End If
    Me.Hide()
    Form6.Show()
    End Sub
    End Class

    Public Class Form6


    Dim dt As New DataTable
    Dim dt2 As New DataTable
    Dim dt3 As New DataTable
    Dim cn2 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\acosta\Proyecto.mdb")
    Dim cn3 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\acosta\Proyecto.mdb")

    Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data


    Source=C:\acosta\Proyecto.mdb")
    Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    cn.Open()
    Dim Consultardatos As String = "Select* From Preguntas "
    Dim dataAdapter As New OleDb.OleDbDataAdapter(Consultardatos, cn)
    dataAdapter.Fill(dt)
    fila = +4

    P5.Text = (dt.Rows(fila)("Preguntas"))

    dataAdapter.Dispose()
    Dim Consultardatos2 As String = "Select* From Preguntas "
    Dim dataAdapter2 As New OleDb.OleDbDataAdapter(Consultardatos2, cn)
    dataAdapter2.Fill(dt2)
    fila = +4

    a.Text = (dt2.Rows(fila)("Correcta"))

    dataAdapter2.Dispose()

    Dim Consultardatos3 As String = "Select* From Preguntas "


    Dim dataAdapter3 As New OleDb.OleDbDataAdapter(Consultardatos3, cn)
    dataAdapter3.Fill(dt3)
    fila = +4

    b.Text = (dt3.Rows(fila)("Incorrecto"))

    dataAdapter3.Dispose()
    cn.Close()
    End Sub

    Private Sub a_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


    a.CheckedChanged
    If a.Checked = True Then
    MsgBox("TU MUY MUY BN!")
    b.Enabled = False
    End If
    Me.Hide()
    Form7.Show()
    End Sub

    Private Sub b_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


    b.CheckedChanged
    If ((b.Checked = True)) Then
    MsgBox("Tu respuesta es nefasta")
    a.Enabled = False
    End If

    Me.Hide()
    Form7.Show()
    End Sub
    End Class

    Public Class Form7


    Dim dt As New DataTable
    Dim dt2 As New DataTable
    Dim dt3 As New DataTable
    Dim cn2 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\acosta\Proyecto.mdb")
    Dim cn3 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\acosta\Proyecto.mdb")

    Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data


    Source=C:\acosta\Proyecto.mdb")
    Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    cn.Open()
    Dim Consultardatos As String = "Select* From Preguntas "
    Dim dataAdapter As New OleDb.OleDbDataAdapter(Consultardatos, cn)
    dataAdapter.Fill(dt)
    fila = +5

    P6.Text = (dt.Rows(fila)("Preguntas"))

    dataAdapter.Dispose()

    Dim Consultardatos2 As String = "Select* From Preguntas "


    Dim dataAdapter2 As New OleDb.OleDbDataAdapter(Consultardatos2, cn)
    dataAdapter2.Fill(dt2)
    fila = +5

    a.Text = (dt2.Rows(fila)("Correcta"))
    dataAdapter2.Dispose()

    Dim Consultardatos3 As String = "Select* From Preguntas "


    Dim dataAdapter3 As New OleDb.OleDbDataAdapter(Consultardatos3, cn)
    dataAdapter3.Fill(dt3)
    fila = +5

    b.Text = (dt3.Rows(fila)("Incorrecto"))

    dataAdapter3.Dispose()
    cn.Close()
    End Sub

    Private Sub a_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


    a.CheckedChanged
    If a.Checked = True Then
    MsgBox("TU MUY MUY BN!")
    b.Enabled = False
    End If
    Me.Hide()
    Form8.Show()
    End Sub

    Private Sub b_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


    b.CheckedChanged
    If ((b.Checked = True)) Then
    MsgBox("Tu respuesta es nefasta")
    a.Enabled = False
    End If

    Me.Hide()
    Form8.Show()
    End Sub
    End Class

    Public Class Form8


    Dim dt As New DataTable
    Dim dt2 As New DataTable
    Dim dt3 As New DataTable
    Dim cn2 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\acosta\Proyecto.mdb")
    Dim cn3 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\acosta\Proyecto.mdb")

    Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data


    Source=C:\acosta\Proyecto.mdb")
    Private Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    cn.Open()
    Dim Consultardatos As String = "Select* From Preguntas "
    Dim dataAdapter As New OleDb.OleDbDataAdapter(Consultardatos, cn)
    dataAdapter.Fill(dt)
    fila = +6

    P7.Text = (dt.Rows(fila)("Preguntas"))

    dataAdapter.Dispose()

    Dim Consultardatos2 As String = "Select* From Preguntas "


    Dim dataAdapter2 As New OleDb.OleDbDataAdapter(Consultardatos2, cn)
    dataAdapter2.Fill(dt2)
    fila = +6

    a.Text = (dt2.Rows(fila)("Correcta"))

    dataAdapter2.Dispose()

    Dim Consultardatos3 As String = "Select* From Preguntas "


    Dim dataAdapter3 As New OleDb.OleDbDataAdapter(Consultardatos3, cn)
    dataAdapter3.Fill(dt3)
    fila = +6

    b.Text = (dt3.Rows(fila)("Incorrecto"))

    dataAdapter3.Dispose()
    cn.Close()
    End Sub

    Private Sub a_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


    a.CheckedChanged
    If ((a.Checked = True)) Then
    MsgBox("TU MUY MUY BN!")
    b.Enabled = False
    End If

    Me.Hide()
    Form9.Show()
    End Sub

    Private Sub b_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


    b.CheckedChanged
    If b.Checked = True Then
    MsgBox("Tu respuesta es nefasta")
    a.Enabled = False
    End If
    Me.Hide()
    Form9.Show()
    End Sub
    End Class

    Public Class Form9


    Dim dt As New DataTable
    Dim dt2 As New DataTable
    Dim dt3 As New DataTable
    Dim cn2 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\acosta\Proyecto.mdb")
    Dim cn3 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\acosta\Proyecto.mdb")

    Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data


    Source=C:\acosta\Proyecto.mdb")
    Private Sub Form9_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    cn.Open()
    Dim Consultardatos As String = "Select* From Preguntas "
    Dim dataAdapter As New OleDb.OleDbDataAdapter(Consultardatos, cn)
    dataAdapter.Fill(dt)
    fila = +7

    P8.Text = (dt.Rows(fila)("Preguntas"))

    dataAdapter.Dispose()

    Dim Consultardatos2 As String = "Select* From Preguntas "


    Dim dataAdapter2 As New OleDb.OleDbDataAdapter(Consultardatos2, cn)
    dataAdapter2.Fill(dt2)
    fila = +7

    a.Text = (dt2.Rows(fila)("Correcta"))

    dataAdapter2.Dispose()

    Dim Consultardatos3 As String = "Select* From Preguntas "


    Dim dataAdapter3 As New OleDb.OleDbDataAdapter(Consultardatos3, cn)
    dataAdapter3.Fill(dt3)
    fila = +7

    b.Text = (dt3.Rows(fila)("Incorrecto"))

    dataAdapter3.Dispose()
    cn.Close()
    End Sub
    Private Sub a_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
    a.CheckedChanged
    If a.Checked = True Then
    MsgBox("TU MUY MUY BN!")
    b.Enabled = False
    End If
    Me.Hide()
    Form10.Show()
    End Sub

    Private Sub b_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


    b.CheckedChanged
    If ((b.Checked = True)) Then
    MsgBox("Tu respuesta es nefasta")
    a.Enabled = False
    End If

    Me.Hide()
    Form10.Show()
    End Sub
    End Class

    Public Class Form10


    Dim dt As New DataTable
    Dim dt2 As New DataTable
    Dim dt3 As New DataTable
    Dim cn2 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\acosta\Proyecto.mdb")
    Dim cn3 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\acosta\Proyecto.mdb")

    Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data


    Source=C:\acosta\Proyecto.mdb")
    Private Sub Form10_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    cn.Open()
    Dim Consultardatos As String = "Select* From Preguntas "
    Dim dataAdapter As New OleDb.OleDbDataAdapter(Consultardatos, cn)
    dataAdapter.Fill(dt)
    fila = +8

    P9.Text = (dt.Rows(fila)("Preguntas"))

    dataAdapter.Dispose()

    Dim Consultardatos2 As String = "Select* From Preguntas "


    Dim dataAdapter2 As New OleDb.OleDbDataAdapter(Consultardatos2, cn)
    dataAdapter2.Fill(dt2)
    fila = +8

    a.Text = (dt2.Rows(fila)("Correcta"))

    dataAdapter2.Dispose()

    Dim Consultardatos3 As String = "Select* From Preguntas "


    Dim dataAdapter3 As New OleDb.OleDbDataAdapter(Consultardatos3, cn)
    dataAdapter3.Fill(dt3)
    fila = +8

    b.Text = (dt3.Rows(fila)("Incorrecto"))

    dataAdapter3.Dispose()
    cn.Close()
    End Sub

    Private Sub a_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


    a.CheckedChanged
    If a.Checked = True Then
    MsgBox("TU MUY MUY BN!")
    b.Enabled = False
    End If
    Me.Hide()
    Form11.Show()
    End Sub
    Private Sub b_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
    b.CheckedChanged
    If ((b.Checked = True)) Then
    MsgBox("Tu respuesta es nefasta")
    a.Enabled = False
    End If

    Me.Hide()
    Form11.Show()
    End Sub
    End Class

    Public Class Form11


    Dim dt As New DataTable
    Dim dt2 As New DataTable
    Dim dt3 As New DataTable
    Dim cn2 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\acosta\Proyecto.mdb")
    Dim cn3 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\acosta\Proyecto.mdb")

    Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data


    Source=C:\acosta\Proyecto.mdb")
    Private Sub Form11_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    cn.Open()
    Dim Consultardatos As String = "Select* From Preguntas "
    Dim dataAdapter As New OleDb.OleDbDataAdapter(Consultardatos, cn)
    dataAdapter.Fill(dt)
    fila = +9

    P10.Text = (dt.Rows(fila)("Preguntas"))

    dataAdapter.Dispose()

    Dim Consultardatos2 As String = "Select* From Preguntas "


    Dim dataAdapter2 As New OleDb.OleDbDataAdapter(Consultardatos2, cn)
    dataAdapter2.Fill(dt2)
    fila = +9

    a.Text = (dt2.Rows(fila)("Correcta"))

    dataAdapter2.Dispose()

    Dim Consultardatos3 As String = "Select* From Preguntas "


    Dim dataAdapter3 As New OleDb.OleDbDataAdapter(Consultardatos3, cn)
    dataAdapter3.Fill(dt3)
    fila = +9

    b.Text = (dt3.Rows(fila)("Incorrecto"))

    dataAdapter3.Dispose()
    cn.Close()
    End Sub

    Private Sub a_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


    a.CheckedChanged
    If a.Checked = True Then
    MsgBox("TU MUY MUY BN!")
    b.Enabled = False
    End If
    Me.Hide()
    Form12.Show()
    End Sub

    Private Sub b_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


    b.CheckedChanged
    If ((b.Checked = True)) Then
    MsgBox("Tu respuesta es nefasta")
    a.Enabled = False
    End If

    Me.Hide()
    Form12.Show()
    End Sub
    End Class

    Public Class Form12


    Dim dt As New DataTable
    Dim dt2 As New DataTable
    Dim dt3 As New DataTable
    Dim cn2 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\acosta\Proyecto.mdb")
    Dim cn3 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\acosta\Proyecto.mdb")

    Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data


    Source=C:\acosta\Proyecto.mdb")
    Private Sub Form12_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    cn.Open()
    Dim Consultardatos As String = "Select* From Preguntas "
    Dim dataAdapter As New OleDb.OleDbDataAdapter(Consultardatos, cn)
    dataAdapter.Fill(dt)
    fila = +10

    P11.Text = (dt.Rows(fila)("Preguntas"))

    dataAdapter.Dispose()

    Dim Consultardatos2 As String = "Select* From Preguntas "


    Dim dataAdapter2 As New OleDb.OleDbDataAdapter(Consultardatos2, cn)
    dataAdapter2.Fill(dt2)
    fila = +10

    a.Text = (dt2.Rows(fila)("Correcta"))

    dataAdapter2.Dispose()

    Dim Consultardatos3 As String = "Select* From Preguntas "


    Dim dataAdapter3 As New OleDb.OleDbDataAdapter(Consultardatos3, cn)
    dataAdapter3.Fill(dt3)
    fila = +10

    b.Text = (dt3.Rows(fila)("Incorrecto"))

    dataAdapter3.Dispose()
    cn.Close()
    End Sub

    Private Sub a_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


    a.CheckedChanged
    If ((b.Checked = True)) Then
    a.Enabled = False
    End If
    MsgBox("Tu respuesta es nefasta")

    Me.Hide()
    Form13.Show()
    End Sub

    Private Sub b_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


    b.CheckedChanged
    If a.Checked = True Then
    b.Enabled = False
    End If
    MsgBox("TU MUY MUY BN!")
    Me.Hide()
    Form13.Show()
    End Sub
    End Class

    Public Class Form13


    Dim dt As New DataTable
    Dim dt2 As New DataTable
    Dim dt3 As New DataTable
    Dim cn2 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\acosta\Proyecto.mdb")
    Dim cn3 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\acosta\Proyecto.mdb")

    Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data


    Source=C:\acosta\Proyecto.mdb")
    Private Sub Form13_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    cn.Open()
    Dim Consultardatos As String = "Select* From Preguntas "
    Dim dataAdapter As New OleDb.OleDbDataAdapter(Consultardatos, cn)
    dataAdapter.Fill(dt)
    fila = +11

    P12.Text = (dt.Rows(fila)("Preguntas"))

    dataAdapter.Dispose()

    Dim Consultardatos2 As String = "Select* From Preguntas "


    Dim dataAdapter2 As New OleDb.OleDbDataAdapter(Consultardatos2, cn)
    dataAdapter2.Fill(dt2)
    fila = +11

    a.Text = (dt2.Rows(fila)("Correcta"))

    dataAdapter2.Dispose()

    Dim Consultardatos3 As String = "Select* From Preguntas "


    Dim dataAdapter3 As New OleDb.OleDbDataAdapter(Consultardatos3, cn)
    dataAdapter3.Fill(dt3)
    fila = +11

    b.Text = (dt3.Rows(fila)("Incorrecto"))

    dataAdapter3.Dispose()
    cn.Close()
    End Sub

    Private Sub a_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


    a.CheckedChanged
    If ((b.Checked = True)) Then
    a.Enabled = False
    End If
    MsgBox("Tu respuesta es nefasta")

    Me.Hide()
    Form14.Show()
    End Sub

    Private Sub b_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


    b.CheckedChanged
    If a.Checked = True Then
    b.Enabled = False
    End If
    MsgBox("TU MUY MUY BN!")
    Me.Hide()
    Form14.Show()
    End Sub
    End Class

    Public Class Form14


    Dim dt As New DataTable
    Dim dt2 As New DataTable
    Dim dt3 As New DataTable
    Dim cn2 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\acosta\Proyecto.mdb")
    Dim cn3 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\acosta\Proyecto.mdb")

    Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data


    Source=C:\acosta\Proyecto.mdb")
    Private Sub Form14_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    cn.Open()
    Dim Consultardatos As String = "Select* From Preguntas "
    Dim dataAdapter As New OleDb.OleDbDataAdapter(Consultardatos, cn)
    dataAdapter.Fill(dt)
    fila = +12

    P13.Text = (dt.Rows(fila)("Preguntas"))

    dataAdapter.Dispose()

    Dim Consultardatos2 As String = "Select* From Preguntas "


    Dim dataAdapter2 As New OleDb.OleDbDataAdapter(Consultardatos2, cn)
    dataAdapter2.Fill(dt2)
    fila = +12

    a.Text = (dt2.Rows(fila)("Correcta"))

    dataAdapter2.Dispose()

    Dim Consultardatos3 As String = "Select* From Preguntas "


    Dim dataAdapter3 As New OleDb.OleDbDataAdapter(Consultardatos3, cn)
    dataAdapter3.Fill(dt3)
    fila = +12

    b.Text = (dt3.Rows(fila)("Incorrecto"))

    dataAdapter3.Dispose()
    cn.Close()
    End Sub

    Private Sub a_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


    a.CheckedChanged
    If ((b.Checked = True)) Then
    a.Enabled = False
    End If
    MsgBox("Tu respuesta es nefasta")

    Me.Hide()
    Form15.Show()
    End Sub

    Private Sub b_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


    b.CheckedChanged
    If a.Checked = True Then
    b.Enabled = False
    End If
    MsgBox("TU MUY MUY BN!")
    Me.Hide()
    Form15.Show()
    End Sub
    End Class

    Public Class Form15


    Dim dt As New DataTable
    Dim dt2 As New DataTable
    Dim dt3 As New DataTable
    Dim cn2 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\acosta\Proyecto.mdb")
    Dim cn3 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\acosta\Proyecto.mdb")

    Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data


    Source=C:\acosta\Proyecto.mdb")
    Private Sub Form15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    cn.Open()
    Dim Consultardatos As String = "Select* From Preguntas "
    Dim dataAdapter As New OleDb.OleDbDataAdapter(Consultardatos, cn)
    dataAdapter.Fill(dt)
    fila = +13

    P14.Text = (dt.Rows(fila)("Preguntas"))

    dataAdapter.Dispose()
    Dim Consultardatos2 As String = "Select* From Preguntas "
    Dim dataAdapter2 As New OleDb.OleDbDataAdapter(Consultardatos2, cn)
    dataAdapter2.Fill(dt2)
    fila = +13

    a.Text = (dt2.Rows(fila)("Correcta"))

    dataAdapter2.Dispose()

    Dim Consultardatos3 As String = "Select* From Preguntas "


    Dim dataAdapter3 As New OleDb.OleDbDataAdapter(Consultardatos3, cn)
    dataAdapter3.Fill(dt3)
    fila = +13

    b.Text = (dt3.Rows(fila)("Incorrecto"))

    dataAdapter3.Dispose()
    cn.Close()
    End Sub

    Private Sub a_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


    a.CheckedChanged
    If a.Checked = True Then
    b.Enabled = False
    End If
    MsgBox("TU MUY MUY BN!")
    Me.Hide()
    Form16.Show()
    End Sub

    Private Sub b_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


    b.CheckedChanged
    If ((b.Checked = True)) Then
    a.Enabled = False
    End If
    MsgBox("Tu respuesta es nefasta")

    Me.Hide()
    Form16.Show()
    End Sub
    End Class

    Public Class Form16


    Dim dt As New DataTable
    Dim dt2 As New DataTable
    Dim dt3 As New DataTable
    Dim cn2 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\acosta\Proyecto.mdb")
    Dim cn3 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\acosta\Proyecto.mdb")

    Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data


    Source=C:\acosta\Proyecto.mdb")
    Private Sub Form16_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    cn.Open()
    Dim Consultardatos As String = "Select* From Preguntas "
    Dim dataAdapter As New OleDb.OleDbDataAdapter(Consultardatos, cn)
    dataAdapter.Fill(dt)
    fila = +14

    P15.Text = (dt.Rows(fila)("Preguntas"))

    dataAdapter.Dispose()

    Dim Consultardatos2 As String = "Select* From Preguntas "


    Dim dataAdapter2 As New OleDb.OleDbDataAdapter(Consultardatos2, cn)
    dataAdapter2.Fill(dt2)
    fila = +14

    a.Text = (dt2.Rows(fila)("Correcta"))

    dataAdapter2.Dispose()
    Dim Consultardatos3 As String = "Select* From Preguntas "
    Dim dataAdapter3 As New OleDb.OleDbDataAdapter(Consultardatos3, cn)
    dataAdapter3.Fill(dt3)
    fila = +14

    b.Text = (dt3.Rows(fila)("Incorrecto"))

    dataAdapter3.Dispose()
    cn.Close()
    End Sub

    Private Sub a_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


    a.CheckedChanged
    If a.Checked = True Then
    b.Enabled = False
    End If
    MsgBox("TU MUY MUY BN!")
    Me.Hide()
    Form17.Show()
    End Sub

    Private Sub b_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


    b.CheckedChanged
    If ((b.Checked = True)) Then
    a.Enabled = False
    End If
    MsgBox("Tu respuesta es nefasta")

    Me.Hide()
    Form17.Show()
    End Sub
    End Class

    Public Class Form17


    Dim dt As New DataTable
    Dim dt2 As New DataTable
    Dim dt3 As New DataTable
    Dim cn2 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\acosta\Proyecto.mdb")
    Dim cn3 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\acosta\Proyecto.mdb")

    Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data


    Source=C:\acosta\Proyecto.mdb")
    Private Sub Form17_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    cn.Open()
    Dim Consultardatos As String = "Select* From Preguntas "
    Dim dataAdapter As New OleDb.OleDbDataAdapter(Consultardatos, cn)
    dataAdapter.Fill(dt)
    fila = +15

    P16.Text = (dt.Rows(fila)("Preguntas"))

    dataAdapter.Dispose()

    Dim Consultardatos2 As String = "Select* From Preguntas "


    Dim dataAdapter2 As New OleDb.OleDbDataAdapter(Consultardatos2, cn)
    dataAdapter2.Fill(dt2)
    fila = +15

    a.Text = (dt2.Rows(fila)("Correcta"))

    dataAdapter2.Dispose()

    Dim Consultardatos3 As String = "Select* From Preguntas "


    Dim dataAdapter3 As New OleDb.OleDbDataAdapter(Consultardatos3, cn)
    dataAdapter3.Fill(dt3)
    fila = +15
    b.Text = (dt3.Rows(fila)("Incorrecto"))

    dataAdapter3.Dispose()
    cn.Close()
    End Sub

    Private Sub a_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


    a.CheckedChanged
    If a.Checked = True Then
    b.Enabled = False
    End If
    MsgBox("TU MUY MUY BN!")
    Me.Hide()
    Form18.Show()
    End Sub

    Private Sub b_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


    b.CheckedChanged
    If ((b.Checked = True)) Then
    a.Enabled = False
    End If
    MsgBox("Tu respuesta es nefasta")

    Me.Hide()
    Form18.Show()
    End Sub
    End Class

    Public Class Form18


    Dim dt As New DataTable
    Dim dt2 As New DataTable
    Dim dt3 As New DataTable
    Dim cn2 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\acosta\Proyecto.mdb")
    Dim cn3 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\acosta\Proyecto.mdb")

    Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data


    Source=C:\acosta\Proyecto.mdb")
    Private Sub Form18_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    cn.Open()
    Dim Consultardatos As String = "Select* From Preguntas "
    Dim dataAdapter As New OleDb.OleDbDataAdapter(Consultardatos, cn)
    dataAdapter.Fill(dt)
    fila = +16

    P17.Text = (dt.Rows(fila)("Preguntas"))

    dataAdapter.Dispose()

    Dim Consultardatos2 As String = "Select* From Preguntas "


    Dim dataAdapter2 As New OleDb.OleDbDataAdapter(Consultardatos2, cn)
    dataAdapter2.Fill(dt2)
    fila = +16

    a.Text = (dt2.Rows(fila)("Correcta"))

    dataAdapter2.Dispose()

    Dim Consultardatos3 As String = "Select* From Preguntas "


    Dim dataAdapter3 As New OleDb.OleDbDataAdapter(Consultardatos3, cn)
    dataAdapter3.Fill(dt3)
    fila = +16

    b.Text = (dt3.Rows(fila)("Incorrecto"))

    dataAdapter3.Dispose()
    cn.Close()
    End Sub

    Private Sub a_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


    a.CheckedChanged
    If a.Checked = True Then
    b.Enabled = False
    End If
    MsgBox("TU MUY MUY BN!")
    Me.Hide()
    Form19.Show()
    End Sub

    Private Sub b_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


    b.CheckedChanged
    If ((b.Checked = True)) Then
    a.Enabled = False
    End If
    MsgBox("Tu respuesta es nefasta")

    Me.Hide()
    Form19.Show()
    End Sub
    End Class

    Public Class Form19


    Dim dt As New DataTable
    Dim dt2 As New DataTable
    Dim dt3 As New DataTable
    Dim cn2 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\acosta\Proyecto.mdb")
    Dim cn3 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\acosta\Proyecto.mdb")

    Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data


    Source=C:\acosta\Proyecto.mdb")
    Private Sub Form19_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    cn.Open()
    Dim Consultardatos As String = "Select* From Preguntas "
    Dim dataAdapter As New OleDb.OleDbDataAdapter(Consultardatos, cn)
    dataAdapter.Fill(dt)
    fila = +17

    P18.Text = (dt.Rows(fila)("Preguntas"))

    dataAdapter.Dispose()

    Dim Consultardatos2 As String = "Select* From Preguntas "


    Dim dataAdapter2 As New OleDb.OleDbDataAdapter(Consultardatos2, cn)
    dataAdapter2.Fill(dt2)
    fila = +17

    a.Text = (dt2.Rows(fila)("Correcta"))

    dataAdapter2.Dispose()

    Dim Consultardatos3 As String = "Select* From Preguntas "


    Dim dataAdapter3 As New OleDb.OleDbDataAdapter(Consultardatos3, cn)
    dataAdapter3.Fill(dt3)
    fila = +17

    b.Text = (dt3.Rows(fila)("Incorrecto"))

    dataAdapter3.Dispose()
    cn.Close()
    End Sub

    Private Sub a_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


    a.CheckedChanged
    If a.Checked = True Then
    b.Enabled = False
    End If
    MsgBox("TU MUY MUY BN!")
    Me.Hide()
    Form20.Show()
    End Sub
    Private Sub b_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
    b.CheckedChanged
    If ((b.Checked = True)) Then
    a.Enabled = False
    End If
    MsgBox("Tu respuesta es nefasta")

    Me.Hide()
    Form20.Show()
    End Sub
    End Class

    Public Class Form20


    Dim dt As New DataTable
    Dim dt2 As New DataTable
    Dim dt3 As New DataTable
    Dim cn2 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\acosta\Proyecto.mdb")
    Dim cn3 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\acosta\Proyecto.mdb")

    Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data


    Source=C:\acosta\Proyecto.mdb")
    Private Sub Form20_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    cn.Open()
    Dim Consultardatos As String = "Select* From Preguntas "
    Dim dataAdapter As New OleDb.OleDbDataAdapter(Consultardatos, cn)
    dataAdapter.Fill(dt)
    fila = +18

    P19.Text = (dt.Rows(fila)("Preguntas"))

    dataAdapter.Dispose()

    Dim Consultardatos2 As String = "Select* From Preguntas "


    Dim dataAdapter2 As New OleDb.OleDbDataAdapter(Consultardatos2, cn)
    dataAdapter2.Fill(dt2)
    fila = +18

    a.Text = (dt2.Rows(fila)("Correcta"))

    dataAdapter2.Dispose()

    Dim Consultardatos3 As String = "Select* From Preguntas "


    Dim dataAdapter3 As New OleDb.OleDbDataAdapter(Consultardatos3, cn)
    dataAdapter3.Fill(dt3)
    fila = +18

    b.Text = (dt3.Rows(fila)("Incorrecto"))

    dataAdapter3.Dispose()
    cn.Close()
    End Sub

    Private Sub a_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


    a.CheckedChanged
    If a.Checked = True Then
    b.Enabled = False
    End If
    MsgBox("TU MUY MUY BN!")

    End Sub

    Private Sub b_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


    b.CheckedChanged
    If ((b.Checked = True)) Then
    a.Enabled = False
    End If
    MsgBox("Tu respuesta es nefasta")

    End Sub
    End Class

    You might also like