cosa vuoi dire alien
una cosa simile
Sub main()
Dim dati(10,5)
Dim dati2(10,5,10)
es = InputBox ("Quante estrazioni vuoi controllare ?",,100)
es = CInt (es)
'im = InputBox ("Su quale estrazione mensile devo elaborare ?",,1)
'im = CInt (im)
inizio = EstrazioneFin - es
For r = 1 To 10
'ImpostaRuota r,False
Next
For ru = 1 To 10
For p = 1 To 5
For ru2 = 1 To 10
dati2(ru,p,ru2) = 0
Next
Next
Next
ColoreTesto 2
Scrivi Date &_
Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (106) & Chr (101) & Chr ( 115) & Chr (121)
Scrivi String (90,Chr(11)): ColoreTesto 1
Scrivi "Tabella 1"
Scrivi "La tabella indica la presenza di ogni singolo estratto nell'estrazione successiva."
Scrivi "Esempio: E1 = 45 indica che il primo estratto su Bari è sortito 45 volte nelle "
Scrivi "estrazioni successive."
ColoreTesto 2
Scrivi String (90,Chr(11)): ColoreTesto 1
For i= inizio To EstrazioneFin
'If IndiceMensile (i) = im Then
AvanzamentoElab inizio,EstrazioneFin ,i
Messaggio "Stò elaborando l'estrazione del " & DataEstrazione (i)
If i = EstrazioneFin Then Exit For
For ru = 1 To 10
For p = 1 To 5
es1 = Estratto (i,ru,p)
For ru2 = 1 To 10
For p2 = 1 To 5
es2 = Estratto (i+1,ru2,p2)
If es1 = es2 Then
dati(ru,p) = dati(ru,p) + 1
dati2(ru,p,ru2) = dati2(ru,p,ru2) + 1
End If
Next
Next
Next
Next
'End If
Next
ColoreTesto 1
Scrivi
Scrivi Space (20) & "Tabella 1 Resoconto Complessivo"
Scrivi
Scrivi " E1 E2 E3 E4 E5"
ColoreTesto 2
ScriviMatrice dati,,4
Scrivi String (90,Chr(11)): ColoreTesto 1
Scrivi "Tabella 2"
Scrivi "Questa tabella indica, in maniera dettagliata, quante volte l'estratto"
Scrivi "in una determinata posizione, si ripete in ogni ruota. Esempio:"
Scrivi "(Ba Pos1 3 0 1) indica che il 1° estratto su Bari si è ripetuto 3 volte a"
Scrivi "Bari, 0 volte a Cagliari e 1 volta a Firenze."
ColoreTesto 2
Scrivi String (90,Chr(11)): ColoreTesto 1
Scrivi
Scrivi Space (20) & "Tabella 2 Resoconto Dettagliato"
Scrivi
For ru = 1 To 10
Scrivi Space (15) & "Ba" & Space (3) & "Ca"& Space (3) & "Fi"& Space (3) & "Ge"&_
Space (3) & "Mi"& Space (3) & "Na"& Space (3) & "Pa"& Space (3) & "Ro"&_
Space (3) & "To"& Space (3) & "Ve"
For p = 1 To 5
Scrivi FormatSpace (Left(NomeRuota (ru),2),5)+FormatSpace ("Pos",4)+FormatSpace (p,6)+_
FormatSpace (dati2(ru,p,1),5)+_
FormatSpace (dati2(ru,p,2),5)+FormatSpace (dati2(ru,p,3),5)+_
FormatSpace (dati2(ru,p,4),5)+FormatSpace (dati2(ru,p,5),5)+_
FormatSpace (dati2(ru,p,6),5)+FormatSpace (dati2(ru,p,7),5)+_
FormatSpace (dati2(ru,p,8),5)+FormatSpace (dati2(ru,p,9),5)+_
FormatSpace (dati2(ru,p,10),5)
Next
Scrivi String (61,"-")
Next
End Sub
ma tu cosa studi ???????????
vuoi aiutare o fare sarcasmo????
io sono qui con le mie ideeeeeee
1 | 9 | 11 | 2 |
2 | 11 | 14 | 3 |
3 | 14 | 17 | 3 |
4 | 17 | 22 | 4 |
5 | 22 | 27 | 5 |
6 | 27 | 34 | 7 |
7 | 34 | 42 | 8 |
8 | 42 | 53 | 11 |
9 | 53 | 66 | 13 |
10 | 66 | 82 | 16 |
11 | 82 | 103 | 20 |
12 | 103 | 128 | 26 |
13 | 128 | 160 | 32 |
14 | 160 | 200 | 40 |
15 | 200 | 250 | 50 |
16 | 250 | 312 | 62 |
17 | 312 | 389 | 77 |
18 | 389 | 485 | 96 |
19 | 485 | 606 | 120 |
20 | 606 | 756 | 150 |
21 | 756 | 944 | 187 |
22 | 944 | 1.178 | 234 |
23 | 1.178 | 1.470 | 292 |
24 | 1.470 | 1.834 | 364 |
25 | 1.834 | 2.289 | 455 |
26 | 2.289 | 2.856 | 568 |
27 | 2.856 | 3.565 | 708 |
28 | 3.565 | 4.449 | 884 |
29 | 4.449 | 5.552 | 1.103 |
30 | 5.552 | 6.929 | 1.377 |
31 | 6.929 | 8.648 | 1.718 |
32 | 8.648 | 10.792 | 2.145 |
33 | 10.792 | 13.469 | 2.676 |
34 | 13.469 | 16.809 | 3.340 |
35 | 16.809 | 20.977 | 4.169 |
36qui | 20.977 | 26.180 | 5.202 |