Premetto che ho adattato uno script della guida 2 di joe91.
Questo lo script che ho modificato con quello che sono riuscito.
Sub Main()
Dim n(3),Ambate(2),Ruotadigioco(2),Poste(1)
Ruotadigioco(1) = TO_ : Poste(1) = .5
Ruotadigioco(2) = VE_ : Poste(1) = .5
For Es = EstrazioneFin -...