Imports System

Public Module Module1

    Public Dim notas As Double(,)

    Public Dim estudiantes As String()

    Public Dim i, j As Integer

    Public Sub Main()

        Dim nEstudiantes As Integer

        Console.Write("Digite el numero de estudiantes: ")

        nEstudiantes = Console.ReadLine()

        console.WriteLine("")

        notas = New Double(nEstudiantes, 3) {}

        estudiantes = New String(nEstudiantes) {}

        Menu(nEstudiantes)

    End Sub

    Public Sub Menu(n As Integer)

        Dim op As Integer

        While op <> 3

            Console.WriteLine("Seleccione una opcion:")

            Console.WriteLine("1. Ingresar las notas.")

            Console.WriteLine("2. Mostrar las notas.")

            Console.WriteLine("3. Salir.")

            Console.Write("---->  ")

            op = Console.ReadLine()

            Select op

            case 1

                IngresarNotas(n)

            case 2

                MostrarNotas(n)

            case 3

                return

            case else

                Console.WriteLine("Opcion invalida.")

            End Select

            Console.WriteLine("")

        End While

    End Sub

    Public Sub IngresarNotas(n As Integer)

        Dim p1, p2, p3 As Double

        Dim nombre As String

        For i = 0 To n - 1 Step 1

        Console.Write("Digite el nombre del estudiante con id " & i+1 & ": ")

        nombre = Console.ReadLine()

        Console.Write("Digite la nota del parcial 1 del estudiante con id " & i+1 & ": ")

        p1 = Console.ReadLine()

        if p1 > 5 Then

            Console.WriteLine("La nota no puede ser mayor que 5")

            Return

        End If

        Console.Write("Digite la nota del parcial 2 del estudiante con id " & i+1 & ": ")

        p2 = Console.ReadLine()

        if p2 > 5 Then

            Console.WriteLine("La nota no puede ser mayor que 5")

            Return

        End If

        Console.Write("Digite la nota del parcial 3 del estudiante con id " & i+1 & ": ")

        p3 = Console.ReadLine()

        if p3 > 5 Then

            Console.WriteLine("La nota no puede ser mayor que 5")

            Return

        End If

        estudiantes(i) = nombre

        notas(i, 0) = p1

        notas(i, 1) = p2

        notas(i, 2) = p3

        notas(i, 3) = (p1+p2+p3)/3

        Next

    End Sub

    Public Sub MostrarNotas(n As Integer)

        Console.WriteLine("ID | Nombre | p1 | p2 | p3 | promedio")

        For i = 0 To n - 1 Step 1

            Console.Write(i+1 & "  |  " & estudiantes(i) & "  |  ")

                For j = 0 To 3 Step 1

                    Console.Write(notas(i,j) & "  |  ")

                Next

            Console.WriteLine("")

        Next

    End Sub

End Module