Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim estudiante as String = ""

        Dim materia as String = ""

        Dim nota1 as Double = 0

        Dim nota2 as Double = 0

        Dim nota3 as Double = 0

        Dim promedio as Double = 0

        Dim estatus as String = ""

        Console.WriteLine("Ingrese nombre del estudiante")

        estudiante = Console.ReadLine()

        Console.WriteLine("Ingrese nombre de la materia")

        materia = Console.ReadLine()

        Console.WriteLine("Ingrese nota 1")

        nota1 = Console.ReadLine()

        Console.WriteLine("Ingrese nota 2")

        nota2 = Console.ReadLine()

        Console.WriteLine("Ingrese nota 3")

        nota3 = Console.ReadLine()

        promedio = (nota1 + nota2 + nota3)/3

        If promedio > 7 Then

            estatus = "Aprobado"

        Else

            estatus = "Reprobado"

        End If

        Console.WriteLine("Estudiante: " & estudiante & " Materia: " &materia & " Promedio: " & promedio & " "&estatus)

    End Sub

End Module

​