Risultati della ricerca

Sub Main() Dim number(1),es Dim ruote(12) Dim posta(2) posta(1) = 1 'posta(2) = 2 ruote(1) = 1 'ruote(2) = 2 'ruote(3) = 3 'ruote(4) = 4 'ruote(5) = 5 ruote(6) = 6 'ruote(7) = 7 'ruote(8) = 8 'ruote(9) = 9 'ruote(10) = 10 'ruote(12) = 12 For es = 10700 To EstrazioneFin If IndiceMensile(es + 1) =...

Numeri frequenti per ambo 69 9 1 71 81 bari

Indicemensile tutto attaccato E poi lo spazio dopo 1 then

Anzi fammi foto perché il codice viene stravolto qui....

Copia qui il codice intero

Copia qui solo quella riga

Indicemensile(n) senza spazi

Io ho provato sia con somma che differenza Sinceramente non lo vedo buono in 7 mesi un terno a fortuna e un ambo

+10 -31 -60 Divresti avere più risultati

Fai la differenza e noterai Cagliari Terni

Usa solo ramco fin quando funziona

Sub Main() Dim r, p, es, numero Dim fine, inizio, colpi Dim presenze(90) Dim ultimaUscita(90) Dim elencoNumeri, elencoEvidenziati, elencoRipetuti Dim contatoreUnici, contatoreEvidenziati colpi = 18 fine = EstrazioneFin inizio = (fine - colpi) + 1 ' Intestazione Generale dello Script Scrivi...

Scrivimi meglio il problema che lo do in pasto a gemini

Prova così Sub Main() Dim r, p, es, numero Dim fine, inizio, colpi Dim presenze(90) Dim ultimaUscita(90) Dim elencoNumeri, elencoEvidenziati, elencoRipetuti Dim contatoreUnici, contatoreEvidenziati colpi = 18 fine = EstrazioneFin inizio = (fine - colpi) + 1 ' Intestazione Generale dello...

su ogni ruota appare il numero uscito una volta..... non sto capendo

Ho capito cosa intendi e l unico modo è un tablet windows da portare sempre con te... Io l ho preso per il programma di fatturazione che usiamo. Anche se non sono a casa posso usarlo quando chiedono qualcosa. Considera che lo schermo del cell è troppo piccolo in ogni caso e non si ha mai una...

Troppe condizioni con estrazioni diverse complesso Mi fermo qui per ora

Se noti ci sono 4 figure tra cui quelli postati anche

Sub Main() Dim n,aOpt(9),sceltaFig,k ' Menu di selezione della Figura For k = 1 To 9 aOpt(k) = "Figura " & k Next sceltaFig = ScegliOpzioneMenu(aOpt,8,"Seleziona la Figura da ricercare:") If sceltaFig <= 0 Then Exit Sub ' Ciclo principale Estrazioni...

Se non creo le condizioni per ogni figura da sempre errore