Lati formanti la somma 45

'Lati formanti la somma 45 di Marcello Binatti
Sub main()
Dim ruota(2),posta(5)
Dim nu(5)

ee=CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",50))
k=CInt(InputBox("Per quante estrazioni deve durare il gioco ?","Colpi di gioco",9))

casi=0
fin=EstrazioneFin
ini=fin-ee
For es=ini To fin
 Messaggio "elab. n° "&es&" del "&dataestrazione(es)&" [ by Genlotto ]"
 For r1=1 To 10
   For r2=r1+1 To 11
     If r2=11 Then r2=12
     For p1=1 To 4 :  p2=p1+1
         a=Estratto(es,r1,p1) :b=Estratto(es,r1,p2)
      ds1=Distanza(a,b) :For p3=1 To 4 : p4=p3+1
         c=Estratto(es,r2,p3) :d=Estratto(es,r2,p4)
      ds2=Distanza(c,d) :dv1=Distanza(a,c) :dv2=Distanza(b,d)
      If (ds1=30 And ds2=15 Or ds1=15 And ds2=30) And (dv1+dv2)=45 Then
             dma=Diametrale(a):dmb=Diametrale(b):sm1=Fuori90(a+dmb):sm2=Fuori90(b+dma)
             so1=Fuori90(a+b) :so2=Fuori90(dma+dmb):sv1=Fuori90(dma+a) :sv2=Fuori90(b+dmb)
             dmc=Diametrale(c):dmd=Diametrale(d):sm3=Fuori90(c+dmd):sm4=Fuori90(d+dmc)
             so3=Fuori90(c+d) :so4=Fuori90(dmc+dmd):sv3=Fuori90(dmc+c) :sv4=Fuori90(d+dmd)
             casi=casi+1:Scrivi String(64,"="),1
             Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&stringaestratti(es,r1)&_
             " ] [ "&Format2(a)&"."&Format2(b)&" in "&(p1)&"/"&p2&" ^ pos. ]"
             Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" - "&stringaestratti(es,r2)&_
             " ] [ "&Format2(c)&"."&Format2(d)&" in "&(p3)&"/"&p4&" ^ pos. ]"
ColoreTesto 1: Scrivi String(64,"-")
Scrivi Format2(a)&" "&Format2(b)&"|"&Format2(so1)&" "&Format2(sv1)&"        "&_
Format2(c)&" "&Format2(d)&"|"&Format2(so3)&" "&Format2(sv3)
Scrivi Format2(dma)&" "&Format2(dmb)&"|"&Format2(so2)&" "&Format2(sv2)&"        "&_
Format2(dmc)&" "&Format2(dmd)&"|"&Format2(so4)&" "&Format2(sv4)
Scrivi "-----------        -----------"
Scrivi " "&Format2(sm1)&"  (1 Q.)          "&Format2(sm3)&" (2 Q.)"
ColoreTesto 0 :Scrivi String(53,"-")&" caso n° "&(casi)
ruota(1)=r1 :ruota(2)=r2
posta(1)=0 :posta(2)=1
nu(1)=sm1 :nu(2)=so1
nu(3)=sv1 :nu(4)=sv2
ImpostaGiocata 1,nu,ruota,posta,k
nu(1)=sm3 :nu(2)=so3
nu(3)=sv3 :nu(4)=sv4
ImpostaGiocata 2,nu,ruota,posta,k
Gioca es

             End If
     Next
       Next
     Next
 Next
Next
ScriviResoconto
End Sub