Sub Main()
'Riduzione di un n. alla volta dalle 39ine-Cinzia
Dim ru(2),aa(60)
w = 3
z = 0
r = 11
r1 = 12
ru(1) = r
ru(2) = r1
aa(1) = Array(0,02,05,06,10,12,15,16,17,18,21,22,24,28,29,31,35,37,39,40,41,42,43,47,52,54,57,61,65,66,68,71,74,77,80,83,85,87,88,90)
aa(2) = Array(0,02,05,06,10,12,15,16,17,18,21,22,24,28,29,31,35,37,39,40,41,42,43,47,52,54,57,61,65,66,68,71,74,77,80,83,85,87,88,90)
aa(3) = Array(0,02,05,06,10,12,15,16,17,18,21,22,24,28,29,31,35,37,39,40,41,42,43,47,52,54,57,61,65,66,68,71,74,77,80,83,85,87,88,90)
aa(4) = Array(0,02,05,06,10,12,15,16,17,18,21,22,24,28,29,31,35,37,39,40,41,42,43,47,52,54,57,61,65,66,68,71,74,77,80,83,85,87,88,90)
aa(5) = Array(0,02,05,06,10,12,15,16,17,18,21,22,24,28,29,31,35,37,39,40,41,42,43,47,52,54,57,61,65,66,68,71,74,77,80,83,85,87,88,90)
aa(6) = Array(0,02,05,06,10,12,15,16,17,18,21,22,24,28,29,31,35,37,39,40,41,42,43,47,52,54,57,61,65,66,68,71,74,77,80,83,85,87,88,90)
aa(7) = Array(0,02,05,06,10,12,15,16,17,18,21,22,24,28,29,31,35,37,39,40,41,42,43,47,52,54,57,61,65,66,68,71,74,77,80,83,85,87,88,90)
aa(8) = Array(0,02,05,06,10,12,15,16,17,18,21,22,24,28,29,31,35,37,39,40,41,42,43,47,52,54,57,61,65,66,68,71,74,77,80,83,85,87,88,90)
aa(9) = Array(0,02,05,06,10,12,15,16,17,18,21,22,24,28,29,31,35,37,39,40,41,42,43,47,52,54,57,61,65,66,68,71,74,77,80,83,85,87,88,90)
aa(10) = Array(0,02,05,06,10,12,15,16,17,18,21,22,24,28,29,31,35,37,39,40,41,42,43,47,52,54,57,61,65,66,68,71,74,77,80,83,85,87,88,90)
aa(11) = Array(0,02,05,06,10,12,15,16,17,18,21,22,24,28,29,31,35,37,39,40,41,42,43,47,52,54,57,61,65,66,68,71,74,77,80,83,85,87,88,90)
aa(12) = Array(0,02,05,06,10,12,15,16,17,18,21,22,24,28,29,31,35,37,39,40,41,42,43,47,52,54,57,61,65,66,68,71,74,77,80,83,85,87,88,90)
aa(13) = Array(0,02,05,06,10,12,15,16,17,18,21,22,24,28,29,31,35,37,39,40,41,42,43,47,52,54,57,61,65,66,68,71,74,77,80,83,85,87,88,90)
aa(14) = Array(0,02,05,06,10,12,15,16,17,18,21,22,24,28,29,31,35,37,39,40,41,42,43,47,52,54,57,61,65,66,68,71,74,77,80,83,85,87,88,90)
aa(15) = Array(0,02,05,06,10,12,15,16,17,18,21,22,24,28,29,31,35,37,39,40,41,42,43,47,52,54,57,61,65,66,68,71,74,77,80,83,85,87,88,90)
aa(16) = Array(0,02,05,06,10,12,15,16,17,18,21,22,24,28,29,31,35,37,39,40,41,42,43,47,52,54,57,61,65,66,68,71,74,77,80,83,85,87,88,90)
aa(17) = Array(0,02,05,06,10,12,15,16,17,18,21,22,24,28,29,31,35,37,39,40,41,42,43,47,52,54,57,61,65,66,68,71,74,77,80,83,85,87,88,90)
aa(18) = Array(0,02,05,06,10,12,15,16,17,18,21,22,24,28,29,31,35,37,39,40,41,42,43,47,52,54,57,61,65,66,68,71,74,77,80,83,85,87,88,90)
aa(19) = Array(0,02,05,06,10,12,15,16,17,18,21,22,24,28,29,31,35,37,39,40,41,42,43,47,52,54,57,61,65,66,68,71,74,77,80,83,85,87,88,90)
aa(20) = Array(0,02,05,06,10,12,15,16,17,18,21,22,24,28,29,31,35,37,39,40,41,42,43,47,52,54,57,61,65,66,68,71,74,77,80,83,85,87,88,90)
aa(21) = Array(0,02,05,06,10,12,15,16,17,18,21,22,24,28,29,31,35,37,39,40,41,42,43,47,52,54,57,61,65,66,68,71,74,77,80,83,85,87,88,90)
aa(22) = Array(0,02,05,06,10,12,15,16,17,18,21,22,24,28,29,31,35,37,39,40,41,42,43,47,52,54,57,61,65,66,68,71,74,77,80,83,85,87,88,90)
aa(23) = Array(0,02,05,06,10,12,15,16,17,18,21,22,24,28,29,31,35,37,39,40,41,42,43,47,52,54,57,61,65,66,68,71,74,77,80,83,85,87,88,90)
aa(24) = Array(0,02,05,06,10,12,15,16,17,18,21,22,24,28,29,31,35,37,39,40,41,42,43,47,52,54,57,61,65,66,68,71,74,77,80,83,85,87,88,90)
aa(25) = Array(0,02,05,06,10,12,15,16,17,18,21,22,24,28,29,31,35,37,39,40,41,42,43,47,52,54,57,61,65,66,68,71,74,77,80,83,85,87,88,90)
aa(26) = Array(0,02,05,06,10,12,15,16,17,18,21,22,24,28,29,31,35,37,39,40,41,42,43,47,52,54,57,61,65,66,68,71,74,77,80,83,85,87,88,90)
aa(27) = Array(0,02,05,06,10,12,15,16,17,18,21,22,24,28,29,31,35,37,39,40,41,42,43,47,52,54,57,61,65,66,68,71,74,77,80,83,85,87,88,90)
aa(28) = Array(0,02,05,06,10,12,15,16,17,18,21,22,24,28,29,31,35,37,39,40,41,42,43,47,52,54,57,61,65,66,68,71,74,77,80,83,85,87,88,90)
aa(29) = Array(0,02,05,06,10,12,15,16,17,18,21,22,24,28,29,31,35,37,39,40,41,42,43,47,52,54,57,61,65,66,68,71,74,77,80,83,85,87,88,90)
aa(30) = Array(0,02,05,06,10,12,15,16,17,18,21,22,24,28,29,31,35,37,39,40,41,42,43,47,52,54,57,61,65,66,68,71,74,77,80,83,85,87,88,90)
aa(31) = Array(0,02,06,10,12,15,16,18,20,21,22,24,29,31,35,37,39,40,41,42,43,47,48,51,52,54,61,65,66,68,71,74,77,78,80,83,85,87,88,90)
aa(32) = Array(0,02,06,10,12,15,16,18,20,21,22,24,29,31,35,37,39,40,41,42,43,47,48,51,52,54,61,65,66,68,71,74,77,78,80,83,85,87,88,90)
aa(33) = Array(0,02,06,10,12,15,16,18,20,21,22,24,29,31,35,37,39,40,41,42,43,47,48,51,52,54,61,65,66,68,71,74,77,78,80,83,85,87,88,90)
aa(34) = Array(0,02,06,10,12,15,16,18,20,21,22,24,29,31,35,37,39,40,41,42,43,47,48,51,52,54,61,65,66,68,71,74,77,78,80,83,85,87,88,90)
aa(35) = Array(0,02,06,10,12,15,16,18,20,21,22,24,29,31,35,37,39,40,41,42,43,47,48,51,52,54,61,65,66,68,71,74,77,78,80,83,85,87,88,90)
aa(36) = Array(0,02,06,10,12,15,16,18,20,21,22,24,29,31,35,37,39,40,41,42,43,47,48,51,52,54,61,65,66,68,71,74,77,78,80,83,85,87,88,90)
aa(37) = Array(0,02,06,10,12,15,16,18,20,21,22,24,29,31,35,37,39,40,41,42,43,47,48,51,52,54,61,65,66,68,71,74,77,78,80,83,85,87,88,90)
aa(38) = Array(0,02,06,10,12,15,16,18,20,21,22,24,29,31,35,37,39,40,41,42,43,47,48,51,52,54,61,65,66,68,71,74,77,78,80,83,85,87,88,90)
aa(39) = Array(0,02,06,10,12,15,16,18,20,21,22,24,29,31,35,37,39,40,41,42,43,47,48,51,52,54,61,65,66,68,71,74,77,78,80,83,85,87,88,90)
aa(40) = Array(0,02,06,10,12,15,16,18,20,21,22,24,29,31,35,37,39,40,41,42,43,47,48,51,52,54,61,65,66,68,71,74,77,78,80,83,85,87,88,90)
aa(41) = Array(0,02,06,10,12,15,16,18,20,21,22,24,29,31,35,37,39,40,41,42,43,47,48,51,52,54,61,65,66,68,71,74,77,78,80,83,85,87,88,90)
aa(42) = Array(0,02,06,10,12,15,16,18,20,21,22,24,29,31,35,37,39,40,41,42,43,47,48,51,52,54,61,65,66,68,71,74,77,78,80,83,85,87,88,90)
aa(43) = Array(0,02,06,10,12,15,16,18,20,21,22,24,29,31,35,37,39,40,41,42,43,47,48,51,52,54,61,65,66,68,71,74,77,78,80,83,85,87,88,90)
aa(44) = Array(0,02,06,10,12,15,16,18,20,21,22,24,29,31,35,37,39,40,41,42,43,47,48,51,52,54,61,65,66,68,71,74,77,78,80,83,85,87,88,90)
aa(45) = Array(0,02,06,10,12,15,16,18,20,21,22,24,29,31,35,37,39,40,41,42,43,47,48,51,52,54,61,65,66,68,71,74,77,78,80,83,85,87,88,90)
aa(46) = Array(0,02,06,10,12,15,16,18,20,21,22,24,29,31,35,37,39,40,41,42,43,47,48,51,52,54,61,65,66,68,71,74,77,78,80,83,85,87,88,90)
aa(47) = Array(0,02,06,10,12,15,16,18,20,21,22,24,29,31,35,37,39,40,41,42,43,47,48,51,52,54,61,65,66,68,71,74,77,78,80,83,85,87,88,90)
aa(48) = Array(0,02,06,10,12,15,16,18,20,21,22,24,29,31,35,37,39,40,41,42,43,47,48,51,52,54,61,65,66,68,71,74,77,78,80,83,85,87,88,90)
aa(49) = Array(0,02,06,10,12,15,16,18,20,21,22,24,29,31,35,37,39,40,41,42,43,47,48,51,52,54,61,65,66,68,71,74,77,78,80,83,85,87,88,90)
aa(50) = Array(0,02,06,10,12,15,16,18,20,21,22,24,29,31,35,37,39,40,41,42,43,47,48,51,52,54,61,65,66,68,71,74,77,78,80,83,85,87,88,90)
aa(51) = Array(0,02,06,10,12,15,16,18,20,21,22,24,29,31,35,37,39,40,41,42,43,47,48,51,52,54,61,65,66,68,71,74,77,78,80,83,85,87,88,90)
aa(52) = Array(0,02,06,10,12,15,16,18,20,21,22,24,29,31,35,37,39,40,41,42,43,47,48,51,52,54,61,65,66,68,71,74,77,78,80,83,85,87,88,90)
aa(53) = Array(0,02,06,10,12,15,16,18,20,21,22,24,29,31,35,37,39,40,41,42,43,47,48,51,52,54,61,65,66,68,71,74,77,78,80,83,85,87,88,90)
aa(54) = Array(0,02,06,10,12,15,16,18,20,21,22,24,29,31,35,37,39,40,41,42,43,47,48,51,52,54,61,65,66,68,71,74,77,78,80,83,85,87,88,90)
aa(55) = Array(0,02,06,10,12,15,16,18,20,21,22,24,29,31,35,37,39,40,41,42,43,47,48,51,52,54,61,65,66,68,71,74,77,78,80,83,85,87,88,90)
aa(56) = Array(0,02,06,10,12,15,16,18,20,21,22,24,29,31,35,37,39,40,41,42,43,47,48,51,52,54,61,65,66,68,71,74,77,78,80,83,85,87,88,90)
aa(57) = Array(0,02,06,10,12,15,16,18,20,21,22,24,29,31,35,37,39,40,41,42,43,47,48,51,52,54,61,65,66,68,71,74,77,78,80,83,85,87,88,90)
aa(58) = Array(0,02,06,10,12,15,16,18,20,21,22,24,29,31,35,37,39,40,41,42,43,47,48,51,52,54,61,65,66,68,71,74,77,78,80,83,85,87,88,90)
aa(59) = Array(0,02,06,10,12,15,16,18,20,21,22,24,29,31,35,37,39,40,41,42,43,47,48,51,52,54,61,65,66,68,71,74,77,78,80,83,85,87,88,90)
aa(60) = Array(0,02,06,10,12,15,16,18,20,21,22,24,29,31,35,37,39,40,41,42,43,47,48,51,52,54,61,65,66,68,71,74,77,78,80,83,85,87,88,90)
For xx = 1 To 60
yy = UBound(aa(1))
For zz = 1 To yy
a = aa(xx)
a(zz) = z
st = SerieStoricoTurbo(7440,EstrazioneFin,a,ru,w)
If st = 1 Then
cc = cc + 1
Messaggio FormatSpace(cc,5,1) & ")" & StringaNumeri(a) & " st " & st
Scrivi "aa(" &(cc) & ") = Array(0," & StringaNumeri(a) & ")"' & " st " & st
End If
Next
Next
End Sub