_max59 |
|
| 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à
|
| | |
