Listato Numeri Isotopi 3

Sub main()
Dim ruote(2),ruota(1),poste(2),num1(2)
poste(2)=3
sp1=CInt(InputBox("1° numero spia?","1° numero spia ",14))
sp2=CInt(InputBox("2° numero spia?","2° numero spia ",15))
n1=CInt(InputBox("1° numero 1° ambo?","1° numero 1° ambo ",11))
n2=CInt(InputBox("2° numero 1° ambo?","2° numero 1° ambo ",22))
n3=CInt(InputBox("1° numero 2° ambo?","1° numero 2° ambo ",22))
n4=CInt(InputBox("2° numero 2° ambo?","2° numero 2° ambo ",33))
n5=CInt(InputBox("1° numero 3° ambo?","1° numero 3° ambo ",33))
n6=CInt(InputBox("2° numero 3° ambo?","2° numero 3° ambo ",44))
n7=CInt(InputBox("1° numero 4° ambo?","1° numero 4° ambo ",55))
n8=CInt(InputBox("2° numero 4° ambo?","2° numero 4° ambo ",66))
n9=CInt(InputBox("1° numero 5° ambo?","1° numero 5° ambo ",66))
n10=CInt(InputBox("2° numero 5° ambo?","2° numero 5° ambo ",77))
n11=CInt(InputBox("1° numero 6° ambo?","1° numero 6° ambo ",6))
n12=CInt(InputBox("2° numero 6° ambo?","2° numero 6° ambo ",7))
n13=CInt(InputBox("1° numero 7° ambo?","1° numero 7° ambo ",16))
n14=CInt(InputBox("2° numero 7° ambo?","2° numero 7° ambo ",78))
n15=CInt(InputBox("1° numero 8° ambo?","1° numero 8° ambo ",69))
n16=CInt(InputBox("2° numero 8° ambo?","2° numero 8° ambo ",79))
n17=CInt(InputBox("1° numero 9° ambo?","1° numero 9° ambo ",61))
n18=CInt(InputBox("2° numero 9° ambo?","2° numero 9° ambo ",18))
n19=CInt(InputBox("1° numero 10° ambo?","1° numero 10° ambo ",62))
n20=CInt(InputBox("2° numero 10° ambo?","2° numero 10° ambo ",71))
ce=CInt(InputBox("da quale estrazione vuoi controllare? ","estrazione",8000)) '8237
k=CInt(InputBox("quanti colpi di gioco? ","colpi di gioco",14))
ini=ce
fin=EstrazioneFin
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione(es,1)
For r1=1 To 10
For p1=1 To 5
a=Estratto(es,r1,p1)
For r2=r1+1 To 12
If r2=11 Then r2=12
For p2=1 To 5
b=Estratto(es,r2,p2)
If (a=sp1 And b=sp2) Or (a=sp2 And b=sp1) Then
If p1=p2 Then 'iso
casi=casi+1:Scrivi String(52,"=")&" script by maxma62",1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&stringaestratti(es,r1)&_
" ] spia [ "&format2(a)&" ] in "&(p1)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" - "&stringaestratti(es,r2)&_
" ] spia [ "&format2(b)&" ] in "&(p2)&"^ pos."
Scrivi String(58,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:ruota(1)=11:co=0
num1(1)=n1:num1(2)=n2
'co=co+1
'ImpostaGiocata co,num1,ruote,poste,k
co=co+1
ImpostaGiocata co,num1,ruota,poste,k
num1(1)=n3:num1(2)=n4
'co=co+1
'ImpostaGiocata co,num1,ruote,poste,k
co=co+1
ImpostaGiocata co,num1,ruota,poste,k
num1(1)=n5:num1(2)=n6
'co=co+1
'ImpostaGiocata co,num1,ruote,poste,k
co=co+1
ImpostaGiocata co,num1,ruota,poste,k
num1(1)=n7:num1(2)=n8
'co=co+1
'ImpostaGiocata co,num1,ruote,poste,k
co=co+1
ImpostaGiocata co,num1,ruota,poste,k
num1(1)=n9:num1(2)=n10
'co=co+1
'ImpostaGiocata co,num1,ruote,poste,k
co=co+1
ImpostaGiocata co,num1,ruota,poste,k
num1(1)=n11:num1(2)=n12
'co=co+1
'ImpostaGiocata co,num1,ruote,poste,k
co=co+1
ImpostaGiocata co,num1,ruota,poste,k
num1(1)=n13:num1(2)=n14
'co=co+1
'ImpostaGiocata co,num1,ruote,poste,k
co=co+1
ImpostaGiocata co,num1,ruota,poste,k
num1(1)=n15:num1(2)=n16
'co=co+1
'ImpostaGiocata co,num1,ruote,poste,k
co=co+1
ImpostaGiocata co,num1,ruota,poste,k
num1(1)=n17:num1(2)=n18
'co=co+1
'ImpostaGiocata co,num1,ruote,poste,k
co=co+1
ImpostaGiocata co,num1,ruota,poste,k
num1(1)=n19:num1(2)=n20
'co=co+1
'ImpostaGiocata co,num1,ruote,poste,k
co=co+1
ImpostaGiocata co,num1,ruota,poste,k
Gioca es
End If
End If 'iso
Next:Next:next:next:next
ScriviResoconto
End Sub