Option Explicit On Option Strict On Module Module1 Sub Main() Dim FahrenheitString As String Dim Fahrenheit As Double Dim Celsius As Double 'Get interactive user input FahrenheitString = InputBox$("Enter Fahrenheit temperature: ") 'Convert String to Double Fahrenheit = Convert.ToDouble(FahrenheitString) 'Calculate celsius Celsius = (Fahrenheit - 32) * (5.0 / 9.0) 'Output System.Console.WriteLine("Fahrenheit temperature: " & Fahrenheit) System.Console.WriteLine("Celsius temperature: " & Celsius) End Sub End Module

Modify the program so that instead of asking for Fahrenheit, your program prompts for inches. After receiving inches and converting to a Double, calculate the equivalent feet. Remember that the expression used to arrive at a feet value for inches will be different than that used in the example. Hint: Ask yourself how you would get a feet value from a given number of inches and apply the appropriate statement. After calculating feet, display both the feet and inches for the user. The answer can be in the format of 2.08 for feet given 25 inches or you can choose to use the format of 2 feet 1 inch for 25 inches. Either format is acceptable and is determined by how you decide to calculate the feet.