Scribd
Upload
88 views18 pages

Visual Basic Quiz Application Code

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.

Uploaded by

dandisarai
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
88 views18 pages

Visual Basic Quiz Application Code

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.

Uploaded by

dandisarai
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd

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