Quantidade de patas dos animais de uma fazenda - O desafio da fazenda em VB.NET - Desafio de Programação Resolvido em VB.NET

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 quant_galinhas, quant_vacas, quant_porcos As Integer
    Dim quant_total_animais, quant_patas_total As Integer

    ' vamos ler a quantidade de cada animal
    Console.Write("Informe a quantidade de galinhas: ")
    quant_galinhas = Int32.Parse(Console.ReadLine())
    Console.Write("Informe a quantidade de vacas: ")
    quant_vacas = Int32.Parse(Console.ReadLine())
    Console.Write("Informe a quantidade de porcos: ")
    quant_porcos = Int32.Parse(Console.ReadLine())

    ' vamos calcular a quantidade de animais
    quant_total_animais = quant_galinhas + quant_vacas + quant_porcos
    Console.WriteLine("Quantidade de animais: " & quant_total_animais)