Dim li_Term As Integer Dim li_a As Integer = 0 Dim li_b As Integer = 1 Dim li_fib As Integer = 0 Dim li_c As Integer While li_fib <= 9 TextBox1.Text = TextBox1.Text + li_Term.ToString + ControlChars.NewLine li_a = li_b li_Term = li_a + li_b li_c = li_c + 1 End While
Dim li_a As Integer = 1 Dim li_b As Integer = 1 Dim li_fib As Integer = 0 TextBox1.Text = li_b.ToString + ControlChars.NewLine While li_fib <= 9 TextBox1.Text = TextBox1.Text + li_b.ToString + ControlChars.NewLine li_b = li_b + li_a li_a = li_b - li_a li_fib = li_fib + 1 End While
Dim li_Term As Integer Dim li_Term As Integer = 1 Dim li_Termprev As Integer = 0 Dim li_TempBuff = 0 Dim li_fib As Integer = 0 While li_fib <= 9 li_TermBuff = li_Term li_Term = li_Term + li_Termprev li_Termprev = li_TermBuff TextBox1.Text = TextBox1.Text + li_Term.ToString + ControlChars.NewLine li_fib = li_fib + 1 End While
li_fib = li_fib + 1
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)