my mentor
My mentor gave me this, and I'm quite sure that his code isn't good...
Dim getal1, getal2, getal3 As Integer
Dim tweede As Integer
Private Sub Command1_Click()
getal1 = 0
getal2 = 1
fibonacci.AddItem (("1. " & getal1))
fibonacci.AddItem (("2. " & getal2))
For teller = 3 To 20 Step 3
getal3 = getal2 + getal1
fibonacci.AddItem ((teller & ". " & getal3))
getal1 = getal2 + getal3
fibonacci.AddItem ((teller + 1 & ". " & getal1))
getal2 = getal1 + getal3
fibonacci.AddItem ((teller + 2 & ". " & getal2))
Next
End Sub
My mentor gave me this, and I'm quite sure that his code isn't good...
Dim getal1, getal2, getal3 As Integer
Dim tweede As Integer
Private Sub Command1_Click()
getal1 = 0
getal2 = 1
fibonacci.AddItem (("1. " & getal1))
fibonacci.AddItem (("2. " & getal2))
For teller = 3 To 20 Step 3
getal3 = getal2 + getal1
fibonacci.AddItem ((teller & ". " & getal3))
getal1 = getal2 + getal3
fibonacci.AddItem ((teller + 1 & ". " & getal1))
getal2 = getal1 + getal3
fibonacci.AddItem ((teller + 2 & ". " & getal2))
Next
End Sub