Um programa que lê duas notas, calcula a média aritmética e exibe uma mensagem de reprovado, exame ou aprovado - Desafio de Programação Resolvido em VB.NET

Informe a primeira nota: 8
Informe a segunda nota: 7.4
A média obtida foi: 7.7
Aprovado

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Imports System

' Algoritmo VB.NET para calcular a média de um aluno

Module Program
  Sub Main(args As String())
    ' vamos solicitar as duas notas do aluno
    Dim n1, n2, media As Double

    Console.Write("Informe a primeira nota: ")
    n1 = Double.Parse(Console.ReadLine())
    Console.Write("Informe a segunda nota: ")
    n2 = Double.Parse(Console.ReadLine())

    ' vamos calcular a média aritmética
    media = (n1 + n2) / 2
    Console.WriteLine("A média obtida foi: " & media)

    ' vamos verificar se o aluno foi reprovado, está de exame ou aprovado
    If media < 4.0 Then ' reprovado
      Console.WriteLine("Reprovado")
    ElseIf ((media >= 4.0) And (media < 7.0)) Then  ' exame
      Console.WriteLine("Exame")
    Else
      Console.WriteLine("Aprovado")
    End If

    Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub
End Module