Question

In Visual Basics - Program 2. Mileage

Write a program which allows the user to enter the distance they have traveled by car in miles and the

number of gallons of gasoline they used to travel the distance. Be sure to allow for decimal places for

both values. Your results should show miles per gallon and kilometers per gallon. A kilometer is 0.61

miles, and this value must be stored as a constant. Your outputs must be formatted to 2 decimal

Answer 1

Module VBModule
Sub Main()
Console.WriteLine("Enter the distance in miles:")
Dim distance
distance=Console.ReadLine()
distance = CDbl(Val(distance))
Console.WriteLine("No of gallons of gasoline:")
Dim gallons
gallons=Console.ReadLine()
gallons = CDbl(Val(gallons))
Dim miles_per_gallon
Dim km_per_gallon
miles_per_gallon=distance/gallons
km_per_gallon=(distance/gallons)*(0.61)
Console.WriteLine("miles per gallon:")
Console.WriteLine(String.Format("{0:0.00}", miles_per_gallon) )
Console.WriteLine("Kms per gallon:")
Console.WriteLine(String.Format("{0:0.00}", km_per_gallon) )
End Sub
End Module