Ler uma temperatura em graus Celsius e apresentá-la convertida em graus Fahrenheit - Exercícios Resolvidos de VB.NET

Informe a temperatura em Celsius: 40
40.0 graus Celcius é igual à 104.0 graus Fahrenheit. 

Imports System

' Algoritmo VB.NET graus Celsius para graus
' Fahrenheit

Module Program
  Sub Main(args As String())
    ' vamos pedir para o usuário informar a temperatura em
    ' Celsius
    Console.Write("Informe a temperatura em Celsius: ")
    ' efetua a leitura da entrada do usuário
    Dim celsius As Double = Double.Parse(Console.ReadLine())

    ' vamos converter os graus Celsius para graus
    ' Fahrenheit
    Dim fahrenheit As Double = ((celsius * 9) / 5.0) + 32

    ' e agora mostramos o resultado
    Console.WriteLine(celsius & " graus Celcius é igual à " &
      fahrenheit & " graus Fahrenheit.")

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