title: Fibonacci Sequence in VB.net using loop
body: <p>Please could you help me with displaying the first 10 Fibonacci numbers.  My code displays the following result:  1, 2, 3, 5, 8, 13, 21, 34, 55 and I need it to also display the first two Fibonacci numbers (0 and 1). How would I do that?</p>
  
  <pre><code>Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      Dim a As Integer = 0
      Dim b As Integer = 1
      Dim fib As Integer = 0
  
      Do
        fib = a + b
        a = b
        b = fib
        Label1.Text = Label1.Text + fib.ToString &amp; ControlChars.NewLine
      Loop While fib &lt; 55
    End Sub
  End Class
  </code></pre>
  
  <p>Where in professional programming would you need to use Fibonacci sequences?</p>