Imports System

Public Module Module1

    Public Sub Main()

        'PROMEDIO DE NOTAS 

        'REALIZADO POR: DIANA MARIZA PORRAS OVIEDO 

        DIM NCLASES, TOTALN, NOTA AS INTEGER 

        DIM PROMEDIO AS DOUBLE 

        'PREGUNTAR CUANTAS NOTAS DESEA PORMEDIAR 

        CONSOLE.WriteLine("CUANTAS NOTAS DESEA PROMEDIAS: " )

        NCLASES = CONSOLE.ReadLine()

        ' EL INCREMENTAL SERA 1 Y EL CONTADOR FINAL SERA NCLASES

        FOR I= 1 TO NCLASES 

        CONSOLE.WriteLine("INGRESE NOTA: " &I  & "DE " &NCLASES)

        NOTA = CONSOLE.ReadLine()

        'TOTAL DE NOTAS UN ACUMULADOR DE NOTAS INGRESADAS = TOTAL + TOTA 

        TOTALN = TOTALN + NOTA

        PROMEDIO = TOTALN / NCLASES

    NEXT 

    CONSOLE.WriteLine(" EL PROMEDIO ES: {0:F2} "&PROMEDIO)

    End Sub

End Module