Imports System

'EJEMPLO

'HECHO POR SOL FLORES 

'CALCULO DE LAS CLASES

Public Module Module1

    Public Sub Main()

        DIM NCLASES, TOTALNORAS, NOTA AS INTEGER

        DIM PROMEDIO AS DOUBLE 

        Console.WriteLine("CUANTAS CLASES DESEA PROMEDIAR: ")

        NCLASES = CONSOLE.ReadLine()

        'EL INCREMENTAL SE REPRESENTA CON LA LETRA I 

        FOR I = 1 TO NCLASES 

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

        NOTA = CONSOLE.ReadLine()

        TOTALNORAS = TOTALNORAS + NOTA 

        PROMEDIO = TOTALNORAS / NCLASES 

    NEXT

    'EL RESULTADO SE MUESTRA FUERA DE FOR

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

    End Sub

End Module