Imports System

'CALCULO DE PROMEDIO

'REALIZADO POR:Santiago Bosarreyes

Public Module Module1

    Public Sub Main()

        DIM N1, N2, N3, N4 AS INTEGER 

        DIM PROMEDIO AS DOUBLE 

        DIM RESPUESTA AS CHAR  

        RESPUESTA = "S"

        WHILE RESPUESTA = "S"

        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 QUE 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 PROMEDIO >70 AND PROMEDIO <=90

                    CONSOLE.WriteLine("BUEN DESEMPEÑO")

                END IF

                IF PROMEDIO >90 THEN

                    CONSOLE.WriteLine("DESEMPEÑO EXCELENTE")

                END IF 

                ELSE

                CONSOLE.WriteLine("LAS NOTAS NO PUEDEN SER MENORES QUE CERO ")

            END IF

            CONSOLE.WRITELINE("DESEA CONTINUAR: S. SI & N. NO  ")

            RESPUESTA = CONSOLE.ReadLine()

        END WHILE 

    End Sub

End Module