Salve scriptomani potete dare un ceck a questo piccolo script .
Quando lo lancio mi da 10 volte (9-indice non compreso nell'intervallo)
io do ok sempre e poi in finestra output lo sviluppo sembra corretto.
Option Explicit
Sub Main
Dim fre,r1,est,da,x,c1
Dim posta(2)
Dim ruota(1)...