catAge_vb.vb

Imports System

Module Program
    Sub Main(args As String())
        Dim in_age As Double
        Dim out_age As Double

        'Ask the user for their cat's age.
        Console.Write("Enter the age of your cat: ")
        in_age = Double.Parse(Console.ReadLine())

        'Do the conversion based off the user's input
        'and display the result to the screen.
        If in_age >= 0.0 And in_age <= 1.0 Then
            out_age = 16.6364 * in_age
            Console.WriteLine($"Your cat is {out_age} years old.")
        ElseIf in_age > 1.0 And in_age < 2.0 Then
            out_age = 6.6364 * in_age + 10
            Console.WriteLine($"Your cat is {out_age} years old.")
        ElseIf in_age >= 2.0 Then
            out_age = 4.1364 * (in_age + 3.62634)
            Console.WriteLine($"Your cat is {out_age} years old.")
        End If

        'So the user can read the result from the calculations.
        Console.ReadLine()

    End Sub
End Module