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
et voici une image du programme
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
Voila
Partager