Per Roby JB

[Roby]

Ciao Roby, cortesemente se ti avanza un po'di tempo potrest completarmi il seguente listato?..io proprio non ce la faccio sono proprio negato[:I][V].



Sub main()
Dim ruote(10)
Dim posta(5), poste(5), posti(5)
Dim am(5), qu(5)
posta(1)=1
poste(2)=0.8
poste(3)=0.2
rs=InputBox("Quante estrazioni vuoi controllare?",,7000)
colpi=CInt(InputBox("Per quanti colpi giocare? -> ",,13))
n1=CInt(InputBox("Primo AMBO 1° num ->",,24 ))
n2=CInt(InputBox("Primo AMBO 2° num ->",,16))
n3=CInt(InputBox("Secondo AMBO 1° num ->",,49))
n4=CInt(InputBox("Secondo AMBO 2° num ->",,57))
n5=CInt(InputBox("Terzo AMBO 1° num ->",,13))
n6=CInt(InputBox("Terzo AMBO 2° num ->",,21))
fin=EstrazioneFin

e poi dopo aver cercato questi 3 ambi mi deve permettere di inserire un solo ambo da giocare anche come ambata.

Ti ringrazio anticipatamente...buona giornata