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.
Joe se hai tempo e voglia potresti aggiungere a questo script per ogni ruota la somma totale degli ambi usciti nell' intervallo estrazionale considerato . Se nella stessa estrazione sono usciti piu ambi occorre considerarli tutti .
'Eu-Ri-Din_10 By Joe
Sub Main
Dim R,K,P,Es,Ini,fin,tmp,GR...
cosa occorre inserire nella finestra prima colonna contenente il primo numero che compomne la combinazione
e nella finestra inserire nella finestra ultima colonna contenente l' ultimo numero numero v
Sub Main()
Dim ruota,pos,es,numero,ultimaEstrazione,estrazioneIniziale,estrazioneFinale
Dim numeriRicerca(5),posizioni(5)
Dim i,j,n,posIndex
Dim conteggioNumeri(90),risultato(9,10)
Dim valore
Dim parole(150),colori(150),grassetti(150),indice,valoreReale
Dim...
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...