Statistica ambate 1 e 10 all'uscita di 2 isotopi consecutive su ruote consecutive

[Cinzia27]

'Per Portafortuna: statistica ambate 1 e 10 all'uscita di 2 isotopi consecutive su ruote consecutive (Cinzia27)
Sub main()
Dim n(2),ru(2),ps(1)
ps(1)=1
For es=1 To EstrazioneFin
For r=1 To 10
r1=r+1
If r1=11 Then r1=12
a=Estratto(es,r,1)
b=Estratto(es,r1,1)
If Abs(a-b)=1 Then
ru(1)=r
ru(2)=r1
n(1)=1
n(2)=10
ImpostaGiocata 1,n,ru,ps,9,1
Gioca es
End If
Next
Next
ScriviResoconto
End Sub