Questo e' corretto:
'==============================================
Sub main()
Dim nu(20),nu1(20)
Dim ru(1)
nu(1)=CInt(InputBox("1° numero da ricercare?","1° numero",40))
nu(2)=CInt(InputBox("2° numero da ricercare?","2° numero",41))
nu(3)=CInt(InputBox("3° numero da ricercare?","3° numero",42))
nu(4)=CInt(InputBox("4° numero da ricercare?","4° numero",43))
nu(5)=CInt(InputBox("5° numero da ricercare?","5° numero",44))
nu(6)=CInt(InputBox("6° numero da ricercare?","6° numero",45))
nu(7)=CInt(InputBox("7° numero da ricercare?","7° numero",46))
nu(8)=CInt(InputBox("8° numero da ricercare?","8° numero",47))
nu(9)=CInt(InputBox("9° numero da ricercare?","9° numero",48))
nu(10)=CInt(InputBox("10° numero da ricercare?","10° numero",49))
nu(11)=CInt(InputBox("11° numero da ricercare?","11° numero",80))
nu(12)=CInt(InputBox("12° numero da ricercare?","12° numero",81))
nu(13)=CInt(InputBox("13° numero da ricercare?","13° numero",82))
nu(14)=CInt(InputBox("14° numero da ricercare?","14° numero",83))
nu(15)=CInt(InputBox("15° numero da ricercare?","15° numero",84))
nu(16)=CInt(InputBox("16° numero da ricercare?","16° numero",85))
nu(17)=CInt(InputBox("17° numero da ricercare?","17° numero",86))
nu(18)=CInt(InputBox("18° numero da ricercare?","18° numero",87))
nu(19)=CInt(InputBox("19° numero da ricercare?","19° numero",88))
nu(20)=CInt(InputBox("20° numero da ricercare?","20° numero",89))
rn=InputBox("quanti numeri da trovare?","q.ta' numeri",3)
Scrivi "almeno "&rn&" di questi numeri da ricercare",1
Scrivi StringaNumeri(nu),1
ini=7800
fin=EstrazioneFin
For n=ini To fin
Messaggio "elab. estr. "&(n)&" del " & DataEstrazione (n)
For r=1 To 12
If r=11 Then r=12
ru(1)=r
If SerieFreq (n,n,nu,ru,rn)>0 Then
x=SerieFreq (n,n,nu,ru,1)
Redim trovati(x)
For i=1 To 5
b=Estratto(n,r,i)
For ii=1 To 20
If nu(ii)=b Then
nu1(ii)=b
End If
Next:Next
caso=caso+1
Scrivi String(50,"=")
Scrivi DataEstrazione(n,1)&" [ "&siglaruota(r)&" - "&stringaestratti(n,r)&" ]"
If x<2 Then
Scrivi "su "&siglaruota(r)&" trovato "&(x)&" numero [ "& StringaNumeri(nu1)&" ] "
Else
If x>1 Then
Scrivi "su "&siglaruota(r)&" trovato "&(x)&" numeri [ "& StringaNumeri(nu1)&" ] "
End if:end If
Scrivi String(38,"-")&"n° caso "&caso
Erase nu1
End If
Next:Next
Scrivi "script by maxma62",1
End Sub
'==============================================