Imports System
Module Program
Sub Main()
' Input distance and speed
Console.Write("Enter distance (in km): ")
Dim distance As Double = Double.Parse(Console.ReadLine())
Console.Write("Enter speed (in km/h): ")
Dim speed As Double = Double.Parse(Console.ReadLine())
' Check to avoid division by zero
If speed <= 0 Then
Console.WriteLine("Speed must be greater than zero.")
Return
End If
' Calculate time
Dim tm As Double = distance / speed
' Output result
Console.WriteLine("Time required: {0:F2} hours", tm)
' Optional: convert to hours and minutes
Dim hours As Integer = CInt(Math.Floor(tm))
Dim minutes As Integer = CInt((tm - hours) * 60)
Console.WriteLine("Which is approximately {0} hours and {1} minutes.", hours, minutes)
End Sub
End Module
' run
'
' Enter distance (in km): 30
' Enter speed (in km/h): 90
' Time required: 0.33 hours
' Which is approximately 0 hours and 20 minutes.
'
