Problème d'une boucle

Question

Bonjour;
j'ai fait le code suivant et je veux dans le Text1.text afficher la valeur de test(10) mais ça marche pas!!!!
               Public Function test() As Variant
                      Dim i As Integer
                      Dim mytab(30)                   For i 0 To i 20
                     mytab(i) = i + 1
                        Next i
                  test = mytab
               End Function

Private Sub Command1_Click()
Text1.Text = test(10)
End Sub

Calade · Answer

Bonjour,

Ton code pose plusieurs problèmes:

1) Quand tu appelles ta fonction tu lui passes un paramètre (ici 10) que tu ne récupères pas !
2) Tu renvoies un Variant, type qui est à bannir absolument (prends plus de temps et de place mémoire) sauf quand tu y es absolument obligé.
3) Une boucle s'écrit ainsi:
For i = 0 to 20
    ici le code à exécuter en boucle
next (le i n'est pas obligatoire ici).

Essaie déjà comme ça et dis-nous ce qui se passe.



Calade

Problème d'une boucle

1 réponse

Votre réponse

Discussions similaires