Imports System
Public Class Exercise58
Public Shared Sub Main()
Dim distance As Single
Dim hour, min, sec As Single
Dim timeSec As Single
Dim mps As Single
Dim kph, mph As Single
Console.Write("Enter distance(meters): ")
distance = Convert.ToSingle(Console.ReadLine())
Console.Write("Enter timeSec(hour): ")
hour = Convert.ToSingle(Console.ReadLine())
Console.Write("Enter timeSec(minutes): ")
min = Convert.ToSingle(Console.ReadLine())
Console.Write("Enter timeSec(seconds): ")
sec = Convert.ToSingle(Console.ReadLine())
timeSec = (hour * 3600) + (min * 60) + sec
mps = distance / timeSec
kph = (distance / 1000.0F) / (timeSec / 3600.0F)
mph = kph / 1.609F
Console.WriteLine("Your speed in meters/sec is {0}", mps)
Console.WriteLine("Your speed in km/h is {0}", kph)
Console.WriteLine("Your speed in miles/h is {0}", mph)
End Sub
End Class