Imports System

'EJEMPLO FOR 

'REALIZADO POR :PETER PARKER

'CALCULO DE PROMEDIO DE X CLASES

Public Module Module1

    Public Sub Main()

        DIM NCLASES,TOTALNOTAS,NOTA AS INTEGER

        DIM PROMEDIO AS DOUBLE

        Console.WriteLine("CUENTAS CLASES DESEA PROMEDIAR")

        NCLASES = CONSOLE.ReadLine()

        'EL INCREMENTAL SE REPRESENTA CON LA LETRA I 

        FOR I =1 TO NCLASES

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

        NOTA = CONSOLE.ReadLine()

        TOTALNOTAS = TOTALNOTAS + NOTA

        PROMEDIO = TOTALNOTAS / NCLASES

    NEXT

    'EL RESULTADO SE MUESTRA FUERA DEL FOR

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

    End Sub

End Module