Springen naar inhoud


- - - - -
Solved

Opdracht 002



  • Log in a.u.b. om te beantwoorden
Er zijn 1 reacties in dit onderwerp

#1 RedThread

RedThread

    Beheerder VBIB

  • Beheerder
  • 3592 berichten
    Laatst bezocht gisteren, 10:26
  • LocatieTongeren,Belgium.
Inzender

Geplaatst op 14 oktober 2010 - 12:47

Citeren

Each new term in the Fibonacci sequence is generated by adding the previous two terms.
By starting with 1 and 2, the first 10 terms will be: 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, ... Find the sum of all the even-valued terms in the sequence which do not exceed four million.


#2 RedThread

RedThread

    Beheerder VBIB

  • Beheerder
  • 3592 berichten
    Laatst bezocht gisteren, 10:26
  • LocatieTongeren,Belgium.
Inzender

Geplaatst op 14 oktober 2010 - 12:47

Visual Basic Code:
Dim Uitkomst As Integer = 0
Dim Total As Integer = 0
Dim X1 As Integer = 1
Dim X2 As Integer = 2
Do
Total = X1 + X2
If Total Mod 2 = 0 Then Uitkomst += Total
X1 = X2
X2 = Total
ListBox1.Items.Add(Total.ToString)
Loop While Total < 4000000
TextBox1.Text = (Uitkomst + 2)







Ook met taq Solved voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[Solved] Untitled 1

Met dank aan Jürgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)