fibonacci series simple logic | Fibonacci series up to 100 | Fibonacci series in VB.NET.

CODEING:

Public Class Form1
    Dim i As Integer = 0
    Dim k As Integer = 1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
                While i <= 100
                    If k <= 100 Then
                        Label2.Text = Label2.Text & " " & i & " " & k
                    Else
                        Label2.Text = Label2.Text & " " & i
                    End If
                    i = i + k
                    k = i + k
                End While
    End Sub
End Class