Imports System

Public Module Module1

    Public Sub Main()

        dim nota, mayor, menor, contador as integer

        dim respuesta as string

        nota = 0

        mayor = 0

        menor = 0

        contador = 0

        respuesta = "S"

        respuesta = "s"

        while respuesta = "S" or respuesta = "s"

        Console.WriteLine("Ingrese nota: ")

        nota = console.ReadLine()

        if (nota < 60) then

        menor += 1 'incremental en 1 al ser verdadera la condicion, menor = menor +1

        end if

        if (nota >= 60) then

        mayor +=1

        end if

            'cada vez que se ingresa una nota se debe aumentar el contador

        contador +=1

            'preguntar si desea continuar

        Console.WriteLine("Desea continuar s / n ")

        respuesta = console.ReadLine()

        end while

        Console.WriteLine("total de promovidos {0}, total de no promovidos {1}, total de notas {2}", mayor, menor, contador)

​

        End Sub

End Module