Ho prima ordinato i 5 estratti dal più piccolo al più grande. Poi questo il codice
For r = kr To kr1.......................... ' Per ogni ruota
p = 0 ..........................................' Inizializza le caselle per la scomposizione dei 5 estratti in 10 numeri
For y1 = 1 To 5 ...........................' Dal primo estratto ordinato
For y = 1 To 90........................... ' Cerco il primo numero.
If es(r, y1) = y And y < 10 Then
nc( r, p + 1) = 0
nc(r, p + 2) = y
End If
If es1(a, r, y1) = y And y > 9 Then
nc(r, p + 1) = Int(y / 10)
nc(a, r, p + 2) = y - Int(y / 10) * 10
End If
Next
p = p + 2
Next
Next
C'era una riga inutile, modificato
No, serviva, rimodificato