Imports System

'Ejemplo For 

'Realizado por : Gladys Juárez

'Calculo de promedio de x Clases

Public Module Module1

    Public Sub Main()

        Dim NClases, TotalNotas, Nota as integer 

        Dim Promedio as double 

        Console.WriteLine("Cuantas clase 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() 

        TotalNotas = TotalNotas + Nota

        Promedio = TotalNotas / NClases

    Next 

    'Resultado se muestra Fuera del For 

    Console.WriteLine("El promedio es: {0:12} " &Promedio)

​

    End Sub

End Module