Sub Main()
Scrivi "Spia - con 27 presenze X ambata con il numero + freq." & Chr(10)
Dim ru1(1),nr(10),nu(10),ex(27),sf(10),amb(1),posta(1)
posta(1) = 1
ee = CInt(InputBox("Quante estrazioni vuoi esaminare ?",Florindi,0))
If ee = "" Then Exit Sub
'cl = CInt(InputBox("Quanti colpi ?",Florindi,18))...