matematica sommativa

[ghio]

valido script

Sub main()
Dim som(5,90)
Dim estr(5)
Dim val(5,90)
es=InputBox("Inserisci 0 per l'ultima estrazione, 1 per la prima del mese.",,1)
For r2=1 To 10
For r=1 To 10
z=0
For i=1 To 5
For j=1 To 90
som(i,j)=0
val(i,j)=True
Next
Next
For i=1 To 5
estr(i)=0
Next
valido=False
' Quì cambia se vuoi aumentere o diminuire le estrazioni sotto esame
For n=EstrazioneFin-100 To EstrazioneFin
If valido=True Then
For i=1 To 5
For j=1 To 5
k=Estratto(n,r2,j)-estr(i)
If k<=0 Then
k=k+90
End If
If val(i,k)=True Then
som(i,k)=som(i,k)+1
End If
Next
Next
For i=1 To 5
For j=1 To 5
k=Estratto(n,r2,j)-estr(i)
If k<=0 Then
k=k+90
End If
If val(i,k)=True Then
val(i,k)=False
End If
Next
Next
End If
If es=0 Then m=n+1 Else m=n End If
If IndiceMensile(m)=1 Then
z=z+1
Valido=True
For i=1 To 5
estr(i)=Estratto(n,r,i)
Next
For i=1 To 5
For j=1 To 90
val(i,j)=True
Next
Next
End If
Next
For i=1 To 5
For j=1 To 90
zz=Int((z/100)*70)
s=CStr(eval(i))+" estratto di "+NomeRuota(r)+" + "+CStr(eval(j))+" sulla ruota di "
s=s+NomeRuota(r2)+" è uscito "+CStr(som(i,j))+" volte su "+CStr(eval(z))
If som(i,j)>zz Then
Scrivi s
End If
Next
Next
Next
Next
End Sub