Uma locadora de charretes cobra R$ 10,00 de taxa para cada 3 horas de uso destas - Lista de Exercícios Resolvidos de VB.NET

Quantidade de horas que a charrete foi usada: 7
Valor total a ser pago: R$ 25,00

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' vamos ler a quantidade de horas que a charrete foi usada
    Console.Write("Quantidade de horas que a charrete foi usada: ")
    Dim horas As Integer = Int32.Parse(Console.ReadLine())

    ' vamos calcular o valor por 3 horas exatas
    Dim valor As Integer = horas \ 3

    ' valor a ser pago para cada hora abaixo de 3
    Dim restante As Integer = horas Mod 3

    ' finalmente calculamos o valor total a ser pago
    Dim valor_total As Double = (valor * 10.0) + (restante * 5)

    ' e exibimos o resultado
    Console.WriteLine("Valor total a ser pago: R$ " & valor_total)

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

End Module