Como aplicar a Fórmula da Vazão pelo Método Racional em VB.NET - De acordo com o método racional, a vazão máxima a ser considerada - Exercícios Resolvidos de VB.NET

Intensidade da chuva em mm/h: 2
Área da bacia em quilômetros quadrados: 18
Coeficiente de escoamento: 0,7
A vazão máxima é: 7,0

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' variáveis usadas na resolução do problema
    Dim intensidade, area_bacia, coeficiente, vazao As Double

    ' vamos ler a precipitação ou intensidade da chuva em mm/h
    Console.Write("Intensidade da chuva em mm/h: ")
    intensidade = Double.Parse(Console.ReadLine())

    ' vamos ler a área da bacia em quilômetros quadrados
    Console.Write("Área da bacia em quilômetros quadrados: ")
    area_bacia = Double.Parse(Console.ReadLine())

    ' vamos ler o coeficiente de escoamento
    Console.Write("Coeficiente de escoamento: ")
    coeficiente = Double.Parse(Console.ReadLine())

    ' agora vamos transformar quilômetros quadrados em
    ' hectares
    area_bacia = area_bacia * 100

    ' e vamos calcular a vazão de pico em metros cúbicos
    vazao = ((coeficiente * intensidade * area_bacia) / 360.0)

    ' e mostramos o resultado
    Console.WriteLine("A vazão máxima é: " & vazao)

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

End Module