lotto69 |
|
- 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???? |
| | |
