Код VBA

[MewNet]

Здравствуйте! Помогите с кодом по Visual Basic. Попросили дополнить таблицу в консольном окне результатами, полученными с шагом shag/50. Результаты считает, но программа "пролетает" без надписей сверху. Как это исправить?
Буду благодарна за наводки!

Module Module1
    Function y1(ByVal x As Double, ByVal y As Double) As Double
        y1 = 2 * (x ^ 2 + y)
    End Function
    Function y2(ByVal x As Double) As Double
        y2 = 1.5 * (Math.E ^ (2 * x)) - x ^ 2 - x - 0.5
    End Function
    Dim x0, y0, x_kon, shag, shag50, x, y As Double
    Sub Main()
        x0 = 0
        y0 = 1
        x_kon = 1
        shag = 0.1
        shag50 = shag / 50
        x = x0
        y = y0
        Console.WriteLine()
        Console.WriteLine(" Начальное условие: x0 = {0}, y0 = {1}", x0, y0)
        Console.WriteLine()
        Console.WriteLine(" x_кон. = {0}   шаг по x:  {1}", x_kon, shag)
        Console.WriteLine()
        Console.WriteLine("   x   м-д Эйлера   Точное значение Погрешность Шаг/50")
        Console.WriteLine("------------------------------------------------------")
        For i As Integer = 0 To CInt((x_kon - x0) / shag)
            Console.WriteLine("{0,5:F1}{1,10:F4}{2,14:F4}{3,15:F4}{4,10:F4}", x0, y0, y2(x0), Math.Abs(y2(x0) - y0), Math.Abs(y2(x) - y))
            y0 = y0 + shag * y1(x0, y0)
            x0 = x0 + shag
            For j As Integer = 1 To CInt((x_kon - x) / shag50)
                Console.WriteLine("{0,5:F1}{1,10:F4}{2,14:F4}{3,15:F4}{4,10:F4}", x0, y0, y2(x0), Math.Abs(y2(x0) - y0), Math.Abs(y2(x) - y))
                y = y + shag50 * y1(x, y)
                x = x + shag50
            Next
        Next
        Console.ReadLine()
    End Sub
End Module