Escrever um algoritmo que leia o nome de um aluno e as notas das três provas que ele obteve no semestre. No final informar o nome do aluno - Exercícios Resolvidos de VB.NET

Nome do aluno: OSMAR SILVA
Informe a primeira nota: 8.4
Informe a segunda nota: 9.2
Informe a terceira nota: 7.9

O nome do aluno é: OSMAR SILVA
A média do aluno é: 8,50

Imports System

Module Program
  Sub Main(args As String())
    ' variáveis que vamos usar para resolver o problema
    Dim nome As String
    Dim n1, n2, n3, media As Double

    ' vamos solicitar o nome do aluno
    Console.Write("Nome do aluno: ")
    nome = Console.ReadLine()

    ' vamos ler a primeira nota
    Console.Write("Informe a primeira nota: ")
    n1 = Double.Parse(Console.ReadLine())

    ' vamos ler a segunda nota
    Console.Write("Informe a segunda nota: ")
    n2 = Double.Parse(Console.ReadLine())

    ' vamos ler a terceira nota
    Console.Write("Informe a terceira nota: ")
    n3 = Double.Parse(Console.ReadLine())

    ' vamos calcular a média aritmética
    media = (n1 + n2 + n3) / 3.0

    ' agora mostramos os resultados
    Console.WriteLine(vbCrLf & "O nome do aluno é: " & nome)
    Console.WriteLine("A média do aluno é: " & media)

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