O Sr. João necessita saber o consumo médio de um automóvel, e solicitou para você desenvolver um algoritmo VB.NET que - Exercícios Resolvidos de VB.NET

Distância total (kms): 650
Combustível gasto (litros): 52
O consumo do veículo foi: 12.5 kms/litro

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' vamos ler a distância total em quilômetros
    Console.Write("Distância total (kms): ")
    Dim distancia As Double = Double.Parse(Console.ReadLine())

    ' vamos ler o total de combustível gasto em litros
    Console.Write("Combustível gasto (litros): ")
    Dim combustivel_gasto As Double = Double.Parse(Console.ReadLine())

    ' agora vamos calcular o consumo do automóvel
    Dim consumo As Double = distancia / combustivel_gasto

    ' e mostramos o resultado
    Console.WriteLine("O consumo do veículo foi: " &
      consumo & " kms/litro")

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

End Module