D.M.P.

[giorgioantonio46]

Salve,
per esperti di script
vorrei che mi portaste una correzione di 2 righe
per il programma VL7
Perchè mi da errore alla riga 5 e 6
Cortesemente come verrebbe corretta?
Grazie
Sub main()
Dim dpme(5,10,10)
Dim spme(5,10,10)
Dim dp(5),sp(5)
Dim es,e1,r1,r2,e2,e3,n1,n2,diff,difg,dpm,dpmt,spmt,somm,spm
es=EstrazioneFin '<<<<<<<<<<<<<<<
Scrivi DataEstrazione (es) '<<<<<<<<<<<<<<<
For e1= 1 To 5
dpmt=0
spmt=0
For r1=1 To 9
For r2=r1+1 To 10
diff=Estratto (es,r1,e1)-Estratto (es,r2,e1)
somm=Fuori90(Estratto (es,r1,e1)+Estratto (es,r2,e1))
dpme(e1,r1,r2)=Abs(diff)
spme(e1,r1,r2)=somm
dpmt=dpmt+diff*diff
spmt=spmt+somm*somm
Next
Next
dpm=Sqr(dpmt)
spm=Sqr(spmt)
dp(e1)=Fuori90(CLng(dpm))
sp(e1)=Fuori90(CLng(spm))
Next
Scrivi"Differenza media ponderata",True
For e2=1 To 5
Scrivi CStr(e2)+" estratti " + CStr(dp(e2))
Next
For e3= 1 To 5
For r1=1 To 9
For r2=r1+1 To 10
If dpme(e3,r1,r2)=dp(e3) Then
Scrivi "estratti "+CStr(e3)+" di "+NomeRuota (r1) +" e "+NomeRuota (r2)
End if
Next
Next
Next
scrivi""
Scrivi"Somma media ponderata",true
For e2=1 To 5
Scrivi CStr(e2)+" estratti " + CStr(sp(e2))
Next
For e1= 1 To 5
For r1=1 To 9
For r2=r1+1 To 10
If spme(e1,r1,r2)=sp(e1) Then
Scrivi "estratti "+CStr(e1)+" di "+NomeRuota (r1) +" e "+NomeRuota (r2)
End if
Next
Next
next
End Sub

lottopassion
Amministratore

Messaggi: 558
Iscritto il: 25/01/2013, 18:18