Escreva um programa VB.NET para ler as notas n1 e n2 de um aluno e calcule a sua média aritmética - Exercícios Resolvidos de VB.NET

Informe a nota N1: 9.4
Informe a nota N2: 11
Nota inválida. Informe a nota N2: 8.3
A média do aluno é: 8.85
O aluno foi aprovado

Informe a nota N1: 4.2
Informe a nota N2: 1.8
A média do aluno é: 3.0
O aluno reprovou direto.

Informe a nota N1: 5.7
Informe a nota N2: 6
A média do aluno é: 5.85
Informe a nota do exame: 7
A média do aluno com o exame é: 6.425
O aluno foi aprovado após o exame.

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' variáveis usadas na resolução do problema
    Dim n1, n2, media, exame As Double

    ' vamos ler a primeira nota
    Console.Write("Informe a nota N1: ")
    n1 = Double.Parse(Console.ReadLine())
    ' a nota é válida?
    While ((n1 < 0) Or (n1 > 10))
      Console.Write("Nota inválida. Informe a nota N1: ")
      n1 = Double.Parse(Console.ReadLine())
    End While

    ' vamos ler a segunda nota
    Console.Write("Informe a nota N2: ")
    n2 = Double.Parse(Console.ReadLine())
    ' a nota é válida?
    While ((n2 < 0) Or (n2 > 10))
      Console.Write("Nota inválida. Informe a nota N2: ")
      n2 = Double.Parse(Console.ReadLine())
    End While

    ' vamos calcular a média do aluno
    media = (n1 + n2) / 2.0
    Console.WriteLine("A média do aluno é: " & media)

    ' o aluno foi aprovado?
    If (media >= 7.0) Then
      Console.WriteLine("O aluno foi aprovado")
      ' o aluno ficou de exame?
    ElseIf ((media >= 3.5) And (media < 7.0)) Then
      ' vamos ler a nota do exame
      Console.Write("Informe a nota do exame: ")
      exame = Double.Parse(Console.ReadLine())
      ' a nota é válida?
      While ((exame < 0) Or (exame > 10))
        Console.Write("Nota inválida. Informe a nota do exame: ")
        exame = Double.Parse(Console.ReadLine())
      End While

      ' calcula a nota média
      media = (media + exame) / 2.0
      Console.WriteLine("A média do aluno com o exame é: " & media)

      ' o aluno foi aprovado após o exame?
      If (media >= 5.0) Then
        Console.WriteLine("O aluno foi aprovado após o exame.")
      Else
        Console.WriteLine("O aluno foi reprovado após o exame.")
      End If
      ' reprovou direto
    Else
      Console.WriteLine("O aluno reprovou direto.")
    End If

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

End Module