Imports System

Public Module Module1

    Public Sub Main()

        dim n(2) as integer

dim i as integer

dim p as integer

for i = 0 to 2

console.WriteLine("Ingrese la nota" & i+1)

n(i)=console.ReadLine()

next

​

p = (n(0)+n(1)+n(2))/3

console.WriteLine("el promedio es "& p )

    End Sub

End Module