Junior Member
 - Group:
- Member
- Posts:
- 10
- Status:
| |
| Option Explicit
Sub Main
Dim n,r,es,p,nm,rit,S,jj,Ini,esf,art(10)
Scrivi "Rileva una DECINA di numeri estratti tra le 10 ruote, ma togliendo i numeri ripetuti ",1
Scrivi
esf = InputBox("dall Estraz.n.",,EstrazioneFin)
es = esf - 15
Ini = es
For jj = 1 To 10
art(jj) = jj
Next
For es = es + 1 To EstrazioneFin
S = 0
ReDim nr(90,2),NUMERI(60)
For n = 81 To 89 ' <========================= SCEGLI DECINA
rit = EstrattoRitardo(11,n,1,es)
nr(n,1) = rit
nr(n,2) = n
If rit = 0 Then
S = S + 1
NUMERI(S) = n
End If
Next
ColoreTesto(1)
Scrivi DataEstrazione(es) & " ",1,0
ColoreTesto(0)
Scrivi " N° = " & StringaNumeri(NUMERI,"."),1,0
ColoreTesto(2)
Scrivi" ... TOTALE numeri estratti " & S,1
ColoreTesto(0)
Scrivi"====================================================================",1
Next
End Sub
RESOCONTO :
Rileva una DECINA di numeri estratti tra le 10 ruote, ma togliendo i numeri ripetuti
30.07.2020 N° = 84.86.88 ... TOTALE numeri estratti 3
==============================================
01.08.2020 N° = 83.87 ... TOTALE numeri estratti 2
==============================================
04.08.2020 N° = 81.82.83.85.87.89 ... TOTALE numeri estratti 6
==============================================
06.08.2020 N° = 87.88 ... TOTALE numeri estratti 2
==============================================
08.08.2020 N° = 81.82.87 ... TOTALE numeri estratti 3
==============================================
11.08.2020 N° = 81.82 ... TOTALE numeri estratti 2
==============================================
13.08.2020 N° = 81.83.85.86.87.88.89 ... TOTALE numeri estratti 7
==============================================
17.08.2020 N° = 87.89 ... TOTALE numeri estratti 2
==============================================
18.08.2020 N° = 81.86.89 ... TOTALE numeri estratti 3
==============================================
20.08.2020 N° = 81.83.84.86.88 ... TOTALE numeri estratti 5
==============================================
|
