Como calcular média ponderada em VB.NET - Ler o nome de um aluno e as notas de três provas - Lista de Exercícios Resolvidos de VB.NET

Nome do aluno: MICHELE LEMOS
Informe a primeira nota: 6.7
Informe a segunda nota: 5.4
Informe a terceira nota: 9.5
A média do aluno MICHELE LEMOS é: 7.43 

----------------------------------------------------------------------
Precisa de ajuda? Chama no WhatsApp +55 (62) 98553-6711 (Osmar)

Este código foi útil? Paga um cafezinho pra mim :-(
PIX: osmar@arquivodecodigos.com.br 
----------------------------------------------------------------------

Imports System

' Algoritmo VB.NET para calcular média ponderada

Module Program
  Sub Main(args As String())
    ' vamos ler o nome do aluno
    Console.Write("Nome do aluno: ")
    Dim nome As String = Console.ReadLine()

    ' vamos ler as notas
    Console.Write("Informe a primeira nota: ")
    Dim nota1 As Double = Double.Parse(Console.ReadLine())
    Console.Write("Informe a segunda nota: ")
    Dim nota2 As Double = Double.Parse(Console.ReadLine())
    Console.Write("Informe a terceira nota: ")
    Dim nota3 As Double = Double.Parse(Console.ReadLine())

    ' agora vamos calcular a média ponderada
    Dim media As Double = (nota1 * (30 / 100.0)) + (nota2 * (30 / 100.0)) +
      (nota3 * (40 / 100.0))

    ' e mostramos a média obtida
    Console.WriteLine("A média do aluno " & nome & " é: " & media)

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