Imports System

'CICLO PROMEDIO DE CLASES

'EMILIO FLORES

Public Module Module1

    Public Sub Main()

        DIM NCLASES, TOTAL, NOTA AS INTEGER

        DIM PROMEDIO AS DOUBLE

        Console.WriteLine("DE CUANTAS CLASES DESEA CALCULAR EL PROMEDIO")

        NCLASES= CONSOLE.ReadLine()

        'Y

        FOR I = 1 TO NCLASES

        CONSOLE.WriteLine(" INGRESAR NOTAS")

        NOTA= CONSOLE.ReadLine()

        'LA VARIABLE TOTAL ALMACENA LA SUMA DE LAS NOTAS

        PROMEDIO = TOTAL / NCLASES

    NEXT

    'PARA MOSTRAR LOS RESULTADOS ES PREFERIBLE FUERA DE FOR

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

    End Sub

End Module