Je ne comprend pas le code source de ce programme

Version imprimable

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:

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

29/10/2006, 04h59
AlainTech

Et où es-tu aller le chercher, ce source?

Ca ressemble furieusement à un exercice donné par un prof, je me trompe?

Si c'est le cas, il faudra être un peu plus assidu au cours et revoir tes notes.

De toute manière, il te suffit de taper F1 sur chacun des mots clés (ceux en bleu, sauf Private, qui dépend de Sub) pour avoir l'explication de ce qu'ils font et de la syntaxe pour les utiliser.
29/10/2006, 11h30
avigeilpro

Surtout que c'est loin d'être un programme compliqué. C'est un programme qui n'utilise que des fonctions de base (Boucle, condition, traitement de chaine) donc en effet cela ressemble énormement à un exercice de TD. ;)
29/10/2006, 12h16
LeXo

la suite de Fibonacci

Bonjour

Fibonacci

c un mathématicien et il a crée une suite à son nom
mais si tu te penches sur ce code qui n'est pas long et simple tu devrais comprendre ce qu'il fait

Allez Bon courage