DistanceTravelled

Module Module1

    Sub Main()
        Dim i As Double = 0.5
        Dim speed As Integer = 55
        Dim distance As Double
        Do While i <= 4.0
            distance = speed * i
            Console.WriteLine(String.Format("Distance is:{0}", distance))
            i += 0.5
        Loop
        Console.ReadLine()
    End Sub
End Module