Dovrebbe essere coś:
Scrivi ColoreTesto (1) & Chr(10) & Space (11) & "Mavit per Superlotto sez. Listati e Script" & _
Chr(10) & Space (5) & "titolo: metodo per ambata e ambo secco unico una ruota" & _
Chr(10) & Chr(10) & String (66,"•") ,1
Scrivi ColoreTesto (0) & "Nota: approfondimenti:
https://superlotto.blogfree.net/?t=4814885" & _
Chr(10) & Chr(10) & Space (6) & "Raccomandazione di rito: giocare moderatamente." & _
Chr(10) & String (66,"•") & Chr(10)
Sub main()
Dim nr(10)
Dim ruote(10)
Dim posta (5)
Dim n
fin = CInt (InputBox ("ultima estrazione da veriicare...","max",EstrazioneFin))
ini = CInt (InputBox ("estrazioni pregresse...","max",50))
k = CInt (InputBox ("colpi di gioco...","max",10))
posta(1) = 1
posta(2) = 1
ruote(1) = 1
For n = fin - ini +1 To fin
nr(1) = CInt (Fuori90 (Estratto (n,CA_,3) + Estratto (n,NZ_,1) + 4))
nr(2) = CInt (Fuori90 (Estratto (n,NA_,4) + Estratto (n,NZ_,2) + 19))
ImpostaGiocata 1,nr,ruote,posta,k
Gioca n
Next
ScriviResoconto
End Sub
---------------------------------------
Cordialità
