Dim blanco As Boolean

Dim blanco As Boolean

textBox5.Text = Convert.ToString(comboBox4.SelectedItem);

 If TextBox3.Text  =  " " Then

blanco = False

 MsgBox("Dato no valido, por favor ingrese la nota correcta", MsgBoxStyle.Information, "Error")

TextBox3.Focus()

Else blanco = True

 End If

 Dim contador, carnet1, posicion As Integer

Dim encontrado As Boolean = False

 Dim lugar As Integer

 If blanco = True Then

 carnet1 = Val(cbocarnet.Text)

For contador = 0 To 24

 If (carnet1 = Menuproyecto.notas(contador).carnet) Then

 posicion = contador

encontrado = True

 End If

Next

If encontrado Then

 Select Case cbomateria.SelectedIndex

Case 0

 Menuproyecto.notas(posicion).nota1 = Val(TextBox3.Text)

Case 1 Menuproyecto.notas(posicion).nota2 = Val(TextBox3.Text)

 Case 2 Menuproyecto.notas(posicion).nota3 = Val(TextBox3.Text)

Case 3 Menuproyecto.notas(posicion).nota4 = Val(TextBox3.Text)

Case 4 Menuproyecto.notas(posicion).nota5 = Val(TextBox3.Text)

 Case 5

Menuproyecto.notas(posicion).nota6 = Val(TextBox3.Text)

Case 6 Menuproyecto.notas(posicion).nota7 = Val(TextBox3.Text)

 Case 7 Menuproyecto.notas(posicion).nota8 = Val(TextBox3.Text)

Case 8 Menuproyecto.notas(posicion).nota9 = Val(TextBox3.Text)

Case 9 Menuproyecto.notas(posicion).nota10 = Val(TextBox3.Text)

End Select

 For contador = 0 To 24

DgvInformacion.Rows(contador).Cells(0).Value = Menuproyecto.notas(contador).carnet DgvInformacion.Rows(contador).Cells(1).Value = Menuproyecto.notas(contador).alumno DgvInformacion.Rows(contador).Cells(2).Value = Menuproyecto.notas(contador).apellido DgvInformacion.Rows(contador).Cells(4).Value = Menuproyecto.notas(contador).nota1 DgvInformacion.Rows(contador).Cells(6).Value = Menuproyecto.notas(contador).nota2 DgvInformacion.Rows(contador).Cells(8).Value = Menuproyecto.notas(contador).nota3 DgvInformacion.Rows(contador).Cells(10).Value = Menuproyecto.notas(contador).nota4 DgvInformacion.Rows(contador).Cells(12).Value = Menuproyecto.notas(contador).nota5 DgvInformacion.Rows(contador).Cells(14).Value = Menuproyecto.notas(contador).nota6 DgvInformacion.Rows(contador).Cells(16).Value = Menuproyecto.notas(contador).nota7 DgvInformacion.Rows(contador).Cells(18).Value = Menuproyecto.notas(contador).nota8 DgvInformacion.Rows(contador).Cells(20).Value = Menuproyecto.notas(contador).nota9 DgvInformacion.Rows(contador).Cells(22).Value = Menuproyecto.notas(contador).nota10

Next MsgBox("El alumno se modifico correctamente", MsgBoxStyle.OkOnly, "Modificado") Else MsgBox("El alumno que intento modificar no existe en la base de datos", MsgBoxStyle.OkOnly, "ADVERTENCIA")

TextBox3.Clear()

End If

End If

End Sub

cboopcion.Items.Add ("Alumnos aprobados")

        cboopcion.Items.Add("Alumnos reprobados")

        cboopcion.Items.Add("Todos los alumnos")

        cboopcion.Items.Add("Salir")

   ´

 End Sub

    Private Sub cboopcion_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboopcion.SelectedIndexChanged

        Select Case cboopcion.SelectedIndex

            Case 0

                alumnosaprobados.Show()

            Case 1

                alumnosreprobados.Show()

            Case 2

                alumnosgeneral.Show()

            Case 3

                Me.Close()

        End Select

    End Sub

buscar

        Dim promedio As Double

        Dim contador, carnet1, posicion As Integer

        Dim encontrado As Boolean = False

        carnet1 = Val(cbocarnet.Text)

        For contador = 0 To 24

            If (carnet1 = Menuproyecto.notas(contador).carnet) Then

                posicion = contador

                encontrado = True

            End If

        Next

        If encontrado Then

            DgvInformacion.Rows.Clear()

            DgvInformacion.Rows(0).Cells(0).Value = Menuproyecto.notas(posicion).carnet

            DgvInformacion.Rows(0).Cells(1).Value = Menuproyecto.notas(posicion).alumno

            DgvInformacion.Rows(0).Cells(2).Value = Menuproyecto.notas(posicion).apellido

            DgvInformacion.Rows(0).Cells(4).Value = Menuproyecto.notas(posicion).nota1

            DgvInformacion.Rows(0).Cells(6).Value = Menuproyecto.notas(posicion).nota2

            DgvInformacion.Rows(0).Cells(8).Value = Menuproyecto.notas(posicion).nota3

            DgvInformacion.Rows(0).Cells(10).Value = Menuproyecto.notas(posicion).nota4

            DgvInformacion.Rows(0).Cells(12).Value = Menuproyecto.notas(posicion).nota5

            DgvInformacion.Rows(0).Cells(14).Value = Menuproyecto.notas(posicion).nota6

            DgvInformacion.Rows(0).Cells(18).Value = Menuproyecto.notas(posicion).nota8

...