aiuto per errore listato

Pieralfio.Ts

Posted on 22/8/2017, 19:08

User deleted

Chi mi aiuta a risolvere l'errore in questo listato? Anticipo un GRAZIE INFINITO.

Tabellone analitico Superenalotto
-------------------------------------

Sub Main()

Dim giauscito(90)
Dim tabellone(250,7)
Dim i,j,e,riga,r
Dim usciti,max

For i = 1 To 90
giauscito(i) = 0
Next

usciti = 0

For e = EstrazioneFin To EstrazioneIni Step - 1
If usciti = 90 Then Exit For
For i = 1 To 7
If usciti = 90 Then Exit For
If giauscito(EstrattoSuper(e,i)) = 0 Then
tabellone(EstrazioneFin - e,i) = EstrattoSuper(e,i)
giauscito(EstrattoSuper(e,i)) = 1
usciti = usciti + 1
max = EstrazioneFin - e
If usciti = 90 Then Exit For
End If
Next
Next

For r = 0 To max
riga = FormatSpace(r,3) & " "
For i = 1 To 7
If tabellone(r,i) > 0 Then
riga = riga & Format2(tabellone(r,i)) & " "
Else
riga = riga & "-- "
End If
Next
Scrivi riga
Next
End Sub

0 replies since 22/8/2017, 19:08 80 views