salut voila j'ai vu ce programme sur le web et je l'ai telechargé avec la source mais je le comprends pas si quelqu'un pouvait me l'expliquer.Alors voila la source
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Command1_Click()
 
Dim Fibonacci() As Integer
 
ReDim Fibonacci(0 To Text1.Text + 1)
 
Text2.Text = ""
 
Fibonacci(0) = 0
Fibonacci(1) = 1
 
For x = 2 To Text1.Text
 
    Fibonacci(x) = Fibonacci(x - 1) + Fibonacci(x - 2)
    If (x <> Text1.Text) Then
        Text2.Text = Text2.Text & Fibonacci(x) & " - "
    Else
        Text2.Text = Text2.Text & Fibonacci(x)
    End If
 
Next x
 
Text1.Text = Fibonacci(Text1.Text)
 
End Sub
et voici une image du programme
Voila