Imports System

Public Module Module1

    Public Sub Main()

        'Promedio de notas

        'realizado por Adriana

        Dim Nclases, totalnotas, nota as integer

        Dim promedio as double

        'preuntar cunatas notas desea promediar

        Console.WriteLine("Cuantas notas desea promediar")

        Nclases = Console.ReadLine()

        'el incremental sera 1 y el contador final sera Nclases

        For incremental =1 to Nclases

        Console.WriteLine("ngrese nota."& incremental &"de" &Nclases)

        nota = Console.ReadLine()

        'Total sera un acumulador de notas ingresadas = total + nota

        totalnotas = totalnotas + nota

        promedio = totalnotas / Nclases

    Next

    Console.WriteLine("el promedio es: {0:F2} "&promedio)

    End Sub

End Module