SUPER LOTTO

istruzione do while non funziona

« Older   Newer »
  Share  
CAT_IMG Posted on 24/4/2014, 20:48

Group:
Member
Posts:
16

Status:


Scrivo una parte di un listato che cerca i numeri della stessa cadenza di un numero dato in input e memorizzarli su un vettore
il problema che il ciclo è infinito anche se ambt risulta uguale a amb2, perchè?
dim nu4(8)
ambt= InputBox("quale ambata giocare")
amb2=Fuori90(ambt+10)
i=0
Do While ambt <>amb2

i=i+1
nu4(i)=amb2
amb2=Fuori90(amb2+10)
Scrivi " ambata e cadenza " & ambt & " " & amb2
Loop


Cosa sbaglio?
 
Top
_max59
CAT_IMG Posted on 27/4/2014, 20:24




Sub main()

Dim nu4(8)
ambt= InputBox("quale ambata giocare")
amb2=Fuori90(ambt+10)
i=0
Do While ambt <>amb2

i=i+1
nu4(i)=amb2
amb2=Fuori90(amb2+10)
Scrivi " ambata e cadenza " & ambt & " " & amb2

If i = 8 Then Exit Do ' l'istruzione if ferma il ciclo al raggiungimento dell'ottavo numero trovato (nu4(8))


Loop

End Sub

-----------------------------------
Cordialità
 
Top
CAT_IMG Posted on 28/4/2014, 09:38

Group:
Member
Posts:
16

Status:


CITAZIONE (_max59 @ 27/4/2014, 21:24) 
Sub main()

Dim nu4(8)
ambt= InputBox("quale ambata giocare")
amb2=Fuori90(ambt+10)
i=0
Do While ambt <>amb2

i=i+1
nu4(i)=amb2
amb2=Fuori90(amb2+10)
Scrivi " ambata e cadenza " & ambt & " " & amb2

If i = 8 Then Exit Do ' l'istruzione if ferma il ciclo al raggiungimento dell'ottavo numero trovato (nu4(8))


Loop

End Sub

-----------------------------------
Cordialità

Io avevo risolto mettendo la verifica sul ciclo while su i<8, il problema che non capisco perchè la condizione<> non viene accettata dall'istruzione while????
 
Top
_max59
CAT_IMG Posted on 29/4/2014, 09:21




Al superamento del valore 8 fissato dal parametro nu4(8) il contatore "i" causa l'errore.
 
Top
CAT_IMG Posted on 29/4/2014, 11:01

Group:
Member
Posts:
16

Status:


CITAZIONE (_max59 @ 29/4/2014, 10:21) 
Al superamento del valore 8 fissato dal parametro nu4(8) il contatore "i" causa l'errore.

Il ciclio while non funziona, prova a togliere l'istruzione nu4(i)=amb2 e vedrai che il loop è infinito senza una valida ragione
 
Top
_max59
CAT_IMG Posted on 29/4/2014, 18:52




E' intrinseco dell'istruzione While eseguire una serie di istruzioni fintanto che una determinata condizione risulta vera (True).
Il Loop, pertanto, sembra infinito e di conseguenza, non avere una valida ragione.
 
Top
5 replies since 24/4/2014, 20:48   231 views
  Share