Fibonacci series

 Public Sub ChildClass1()
            Dim t1 As Integer = 0
            Dim t2 As Integer = 1
            Dim display As Integer = 0
            Dim num As Integer = 200
            While display < num
                Console.WriteLine(display)
                t1 = t2
                t2 = display
                display = t1 + t2
            End While