[Visual Basic]esercizio sul ciclo for

[Fabbero]

Ciao a tutti, premetto che l'esercizio in questione non è per me , perchè io non ho mai usato VB, ma sto cercando di aiutare una persona. Io usando la logica del Java sono arrivato a una conclusione , ma i conti non mi tornano e chiedo quindi aiuto a voi

Pluto=0
For i= 4 to 10
Pluto= i+1
Pippo= i+10
MsgBox "ciao"
i= Pippo-pluto;
Next


Ora l'esercizio richiede di stampare il numero delle volte che viene mostrata la scritta ciao.
La soluzione dovrebbe essere 1, eppure a me viene 2.

Partendo da i=4,
Pluto diventerebbe 5
Pippo diventerebbe 14
viene stmapato Ciao
I diventa 14-5->9

e con Next I diventa 10, dopo di che il giro torna al for
eppure qui con for i =10 to 10 non dovrebbe entrare per l'ultima volta nel for?
Qualcosa non mi torna. Potreste darmi una mano?
grazie

[eziogsv]

        Dim Pluto As Integer
        Dim Pippo As Integer 
        For i = 4 To 10
            Pluto = i + 1
            Pippo = i + 10
            MsgBox("ciao")
            i = Pippo - Pluto
        Next

La soluzione è.... infinite volte , perché i = Pippo - Pluto darà SEMPRE come risultato 9, ed il ciclo andrà avanti ab limitum.

[Fabbero]

ti ringrazio per la risposta, però mi sfugge una cosa:
dopo il primo giro I diventa 9 .. ma con next non dovrebbe diventare 10?

Per lo meno , io sono abituato ai cicli for Java ...

quindi non capisco da cosa deriva l'infinite volte

anche perchè seguendo la mia logica il giro seguente diventerebbe Pluto 11 e pippo 21..

grazie ancora

[eziogsv]

Certo, AL PRIMO GIRO diventa 9, e rifà il ciclo

Dopodiché Pluto diventa 11 (10+1) e Pippo 20 (10+10)

i = Pippo - Pluto ===> 20-11=9

Naturalmente QUALSIASI valore dovessero avere Pippo e Pluto il risultato sarebbe SEMPRE 9, dal momento che

i = i + 10 - i - 1 ===> i e -i si annullano qualsiasi valore abbiano ===> i = 9

ed il ciclo viene ripetuto...

.

[Fabbero]

ah hai ragione.. mi ero confuso..

perfetto ho afferrato il giro..

grazie 1000 sei stato molto gentile!

:P