exercice visual basic

exercice visual basic - VB/VBA/VBS - Programmation

Marsh Posté le 14-03-2005 à 21:21:33    

bonsoir, j'ai un exo en visual et ce que j'ai fait me laisse perplexe, si quelqu'un pouvait y jeter un coup d'oeil svp ..
 
j'ai (un) avec n>0 une suite numérique avec u1 = 2 et un = 2u(n-1)+3
je dois écrire un algorithme qui demande à l'utilisateur la valeur de n puis affiche u(n)
 
voila ce que j'ai écrit :
 
Sub exo()
 
Dim i, n As Integer
 
Dim S() As Integer
 
n = InputBox("donner la valeur de n" )
 
ReDim S(n)
 
For i = 1 To n
S(1) = 2
S(i) = 2 * S(i - 1) + 3
Next
 
MsgBox ("la valeur de Sn est " & S(n))
 
End Sub
 
ça tourne, le soucis c'est que j'arrive pas à comprendre pourquoi quand je mets n=1 il calcule et trouve S(1)=3 alors que je précise bien que S(1)=2 .  :??:  
 
si qqn pouvait m'aider à corriger ça svp et jeter un ptit coup d'oeil sur mon prog, merci !

Reply

Marsh Posté le 14-03-2005 à 21:21:33   

Reply

Marsh Posté le 15-03-2005 à 07:01:46    

Tu dis que S(1)=2, puis tu dis que S(de 1 à n)=qqch d'autre.
Donc, à ta première boucle, n vaut 1.
Vérifie ta logique.


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 15-03-2005 à 07:24:37    

oui c'est vrai :/ , merci

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed