Imports System

'REALIZADO POR:marcella fernanda monroy silva

​

Public Module Module1

    Public Sub Main()

        DIM NOTA, MAYOR, MENOR, CONTADOR AS INTEGER

        DIM RESPUESTA AS STRING 

        CONTADOR = 0

        MAYOR = 0

        RESPUESTA = "s"

        RESPUESTA = "S"

        MENOR = 0

        WHILE RESPUESTA = "S" OR RESPUESTA = "s"

            Console.WriteLine("INGRESE NOTA: ")

            NOTA = CONSOLE.ReadLine()

            IF NOTA < 60 THEN

                MENOR +=1 '+=1 INCREMENTAR EN 1 UN CONTADOR

                'MENOR = MENOR + 1

            END IF 

            IF NOTA >=60 THEN

                MAYOR +=1

                'MAYOR = MAYOR + 1

            END IF 

            CONTADOR +=1 ' CADA VEZ QUE SE INGRESA UN DATO SE AUMENTA EL CONTADOR

            CONSOLE.WriteLine("DESEA CONTINUAR S/N: ")

            RESPUESTA = CONSOLE.ReadLine()

        END WHILE

        'CONSOLE.WriteLine("PERSONAS PROMOVIDAS: " &MAYOR)

        'CONSOLE.WriteLine("PERSONAS NO PROMOVIDAS: " &MENOR)

        'CONSOLE.WriteLine("TOTAL DE PERSONAS: " &CONTADOR)

        CONSOLE.WriteLine("PERSONAS PROMOVIDAS {0} NO PROMOIDAS {1} TOTAL DE PERSONAS {2}" ,MAYOR, MENOR, CONTADOR)

    End Sub

End Module