correggere errore script

[Alien.]

Sub Main()
Dim ruote(1)
Dim posta(1)
Dim num(90,2)
Dim uscito(90,2)
r=InputBox("Su quale ruota?",,1)
colpi=InputBox("Quanti colpi?",,10)
ruote(1)=r
ini=7000
fin=EstrazioneFin
Scrivi " Analisi dal "& DataEstrazione(ini)&" ad oggi"
Scrivi "Primi 10 più frequenti usciti dopo il numero Spia entro i "&colpi&" colpi",1
For sp=1 To 90
Messaggio " Spia: "&sp
For i=1 To 90
num(i,1)=0 : num(i,2)=0
Next
co=0
For es=ini To fin
If Posizione(es,r,sp)>0 Then
co=co+1
ess=es+colpi+1
If ess>fin Then ess=fin End If
For a=es+1 To ess
For v=1 To 90
uscito(v,2)=0
Next
For e=1 To 5
n=Estratto(a,r,e)
num(n,1)=n
num(n,2)=num(n,2)+1
uscito(n,1)=n
uscito(n,2)=uscito(n,2)+1
If uscito(n,2)>1 Then
num(n,2)=num(n,2)-1
uscito(n,2)=1
End If
Next
Next
End If
Next
OrdinaMatrice num, -1, 2
per=Int((co/100)*65)
Scrivi "_________________________________________________ ________________"
Scrivi "Numero spia: "&sp&" su "& FormatSpace(NomeRuota(r),10)&" casi = "&co&" colpi "& colpi
Scrivi
riga="Num. "
riga1="Freq. "
For i=1 To 10
riga=riga & FormatSpace(num(i,1),3)&" "
riga1=riga1 & FormatSpace(Eval(num(i,2)),4)&" "
Next
Scrivi riga,1
ColoreTesto 2
Scrivi riga1
ColoreTesto 0
Next
End Sub






heelp

 

[Moro_80]

Ciao,
prova così:

Sub Main()
Dim ruote(1)
Dim posta(1)
Dim num(90,2)
Dim uscito(90,2)
r=InputBox("Su quale ruota?",,1)
colpi=InputBox("Quanti colpi?",,10)
ruote(1)=r
ini=7000
fin=EstrazioneFin
Scrivi " Analisi dal "& DataEstrazione(ini)&" ad oggi"
Scrivi "Primi 10 più frequenti usciti dopo il numero Spia entro i "&colpi&" colpi",1
For sp=1 To 90
Messaggio " Spia: "&sp
For i=1 To 90
num(i,1)=0 : num(i,2)=0
Next
co=0
For es=ini To fin
If Posizione(es,r,sp) > 0 Then
co=co+1
ess=es+colpi+1
If ess > fin Then ess=fin End If 
For a=es+1 To ess 
For v=1 To 90
uscito(v,2)=0
Next 
For e=1 To 5
n=Estratto(a,r,e)
num(n,1)=n
num(n,2)=num(n,2)+1
uscito(n,1)=n
uscito(n,2)=uscito(n,2)+1
If uscito(n,2) > 1 Then 
num(n,2)=num(n,2)-1
uscito(n,2)=1
End If 
Next 
Next
End If 
Next
OrdinaMatrice num, -1, 2
per=Int((co/100)*65)
Scrivi "_____________________________________________ ____ ________________"
Scrivi "Numero spia: "&sp&" su "& FormatSpace(NomeRuota(r),10)&" casi = "&co&" colpi "& colpi
Scrivi
riga="Num. "
riga1="Freq. "
For i=1 To 10 
riga=riga & FormatSpace(num(i,1),3)&" "
riga1=riga1 & FormatSpace(Eval(num(i,2)),4)&" " 
Next
Scrivi riga,1
ColoreTesto 2
Scrivi riga1
ColoreTesto 0
Next 
End Sub

Saluti

 

[Alien.]

perfetto Moro