Imports System

'Realizado por: Jose Ortiz 

'Calculo de promedio

Public Module Module1

    Public Sub Main()

        Dim N1, N2, N3, N4 AS INTEGER

        DIM PROMEDIO AS DOUBLE 

        DIM RESPUESTA AS INTEGER

        RESPUESTA = 1

        WHILE RESPUESTA = 1

            Console.WriteLine("Calculo de promedio")

            Console.WriteLine("Ingrese Nota 1: ")

            N1 = CONSOLE.ReadLine()

            Console.WriteLine("Ingrese Nota 2: ")

            N2 = CONSOLE.ReadLine()

            Console.WriteLine("Ingrese Nota 3: ")

            N3 = CONSOLE.ReadLine()

            Console.WriteLine("Ingrese Nota 4: ")

            N4 = CONSOLE.ReadLine()

            'SI LAS NOTAS SON MAYORES QUE CERO Y MENORES O IGUALES A 100 REALICE EL PROMEDIO

            'SI N1 Y N2 Y N3 Y N4 >0 Y <=100

            IF N1 AND N2 AND N3 AND N4 >0 AND N1 AND N2 AND N3 AND N4 <=100 THEN

                PROMEDIO = (N1+N2+N3+N4) / 4

                CONSOLE.WriteLine("EL PROMEDIO ES: " &PROMEDIO)

                IF PROMEDIO < 60 THEN

                    CONSOLE.WriteLine("NECESITA MEJORAR")

                END IF 

                IF PROMEDIO > 60 AND PROMEDIO <=70 THEN

                    CONSOLE.WriteLine("DESEMPEÑO REGULAR")

                END IF

                IF 

    End Sub

End Module