Stai usando un browser molto obsoleto. Puoi incorrere in problemi di visualizzazione di questo e altri siti oltre che in problemi di sicurezza. . Dovresti aggiornarlo oppure usare usarne uno alternativo, moderno e sicuro.
Option Explicit
Sub Main
Dim i
Dim intestazione1,intestazione2
For i = -1 To 7
intestazione1 = intestazione1 & String(10,CStr(i + 1)) & " "
intestazione2 = intestazione2 & "1234567890" & " "
Next
intestazione1 = intestazione1 & "000000000" ' Per l'ultima decina...
Sub Main()
Scrivi " NUMERI CHE SI PRESENTANO ENTRO 9 ESTRAZIONI DALL' USCITA DELLA SPIA"
Dim nu(1)
Dim ru(1)
Dim prnu(90,2)
Dim rig1(90)
Dim rig2(90)
fin = EstrazioneFin
r = InputBox("SU' CHE RUOTA FACCIO LA RICERCA",,10)
ColoreTesto 2
Scrivi "Ricerca sulla ruota di...
Sub Main
' x Batter
Dim T,abb,aN(3),afreq(3),Ru(1),L(4)
Ini = EstrazioneFin - 18
fin = EstrazioneFin
fine = EstrazioneFin
Scrivi Ini & vbTab & fin
T = Array(T,"Ruota","Numero","Presenze","Ritardo","Abbinamenti Num","Freq Abb","VerificaEsito","Colpo")
Call InitTabella(T)...
Infatti joe hai toppato .:):):):):)
La richiesta e di eliminare le estrazioni dove non è uscito nessun numero della decina o quindicina .:):):):):)
i tuoi errori commessi sottolineati in rosso .In rosso le estrazioni che vanno eliminate . Quindi lo script va fatto per ogni singola decina o...