Stai usando un browser molto obsoleto. Puoi incorrere in problemi di visualizzazione di questo e altri siti oltre che in problemi di sicurezza. . Dovresti aggiornarlo oppure usare usarne uno alternativo, moderno e sicuro.
DAI.....questi che x noi sono dilemmi,almeno faranno sorridere tanti esperti che sono qui e che studiano cose di ben altro livello ,ben superiore :giggle:
Premesso che a me funziona(anche se non farà arricchire nessuno :cry: ),provo ad inserire le cose consigliate da JOE(che se ne intende x...
Con la modifica suggerita da I Legend
Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
posta(2) = 1
posta(3) = 0
posta(4) = 0
posta(1) = 0
ruote(1) = InputBox("Su quale ruota? ",,1)
k = CInt(InputBox("Per quanti colpi? ",,13))
For n = EstrazioneFin - 100 To EstrazioneFin
numeri1(1) =...
Salve....l'ho riprovato,e usando spaziometria 1.6.34 a me funziona.
può provare così con 13 colpi fissi
Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
posta(2) = 1
posta(3) = 0
posta(4) = 0
posta(1) = 0
ruote(1) = InputBox("Su quale ruota? ",,1)
'k = InputBox("Per quanti colpi? ",,13)...
SALVE...
1: non credo di aver compreso la sua richiesta
2: Rispondo io perchè non l'ha fatto nessuno che sa fare(veramente)gli script
3: non so fare gli script ma mi piace modificare,pasticciare,mischiare quelli che ho, presi in rete
4: con tutta l'umiltà possibile ho provato a fare...