Imports System

Public Module Module1

    Public Sub estado()

        Dim n1,n2,n3,prom As Double

        Console.WriteLine("Ingrese la primera Nota:")

        n1=Double.Parse(Console.ReadLine())

        Console.WriteLine("Ingrese la segunda Nota:")

        n2=Double.Parse(Console.ReadLine())

        Console.WriteLine("Ingrese la tercera Nota:")

        n3=Double.Parse(Console.ReadLine())

        prom=(n1+n2+n3)/3

        Console.WriteLine("El promedio del Estudiante es: " & prom)

        if (prom>3)then

            Console.writeLine("Estado: APROBADO")

        elseif (prom=3) then

            Console.writeLine("Estado: APROBADO")

        elseif (prom<3)

            Console.writeLine("Estado: NO APROBADO")

        end if      

End Sub

 Sub Main()

        Dim definitiva As Double

        Console.WriteLine("Digite la primera opcion para saber si el Estudiante aprobo o no aprobo")

        Console.WriteLine("1. Estado del Estudiante")

        definitiva=Double.Parse(Console.ReadLine())

        select case definitiva

        case 1:

            estado()

        case else

            Console.WriteLine("Opcion Invalida")

        end select

End Sub

End Module