uninone fig. 1° e 5° di ve di totto

Sub main()
Dim ru(2),rur(1),ab(10),ambata(2),ambi(2),lun(10),ps(2),ps1(2),ps2(5)
ps(1)=1:ps1(2)=1:ps2(2)=1:ps2(3)=0.80:ps2(4)=0.15:ps2(5)=0.05
ee= CInt(InputBox("Estrazioni da esaminare ",,23))
k= CInt(InputBox(" Colpi di gioco ",,12))
ini=EstrazioneFin-ee
For es=ini To EstrazioneFin  
r=1  
rr=2
ru(1)=r
ru(2)=rr
casi=casi+1:Scrivi String(87,"°"),1
a=Estratto(es,1,1)
b=Estratto(es,10,5)
ambata(1)=Fuori90((Figura (a)) & (Figura (b)))
ambata(2)=Vert(ambata(1))
co=1
OrdinaMatrice ambata
ImpostaGiocata co,ambata,ru,ps,k
Gioca es
Next
ScriviResoconto
End Sub