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.
ciao , per cambiare le formazioni si deve agire qui.
devi sostituire i numeri che ci sono gia , se ci sono formazioni in piu o in meno devi aggiungere/rimuovere
il blocco di 3 righe
Set cFrz = New clsFormazione
cFrz.SetNumeri("1;2;3;4;5;6;7;8;9;10")
Call...
questro è il punto dove individua il numero oggetto di analisi , in questo caso la prima cifra di un numero che puo essere una unita , una decina o una centinaia.. dipende da quanto è lungo il numero .. .dal punto di vista dello script è solo la prima cifra
c =...
secondo la mia ipotesi la ragione di evidenziare la situazione dei 90 numeri presi all'estrazione precedente a quella di analisi serve per verificare almeno visivamente se sono usciti dei numeri il cui scarto rispetto ai valori di riferimento era negativo , e soprattutto quanti numeri c'erano...
Option Explicit
Class clsQuantita
Private mValue
Private mQuantita
Public Property Let Value(v)
mValue = v
End Property
Public Property Get Value
Value = mValue
End Property
Public Property Let Quantita(v)
mQuantita = v
End Property...
Option Explicit
Class clsQuantita
Private mValue
Private mQuantita
Public Property Let Value(v)
mValue = v
End Property
Public Property Get Value
Value = mValue
End Property
Public Property Let Quantita(v)
mQuantita = v
End...
ho fatto delle modifiche ...
Option Explicit
Sub Main
Dim r
Dim aQPerCifra,aPercPerCifra,nQrit
Dim nClasse,nSorte
nClasse = ScegliEsito
nSorte = ScegliEsito
If nSorte <= nClasse Then
For r = 1 To 12
If r = 11 Then r = 12
Call...
E' si vede come è chiaro ... un cristallo :) .... eccoti l'esempio ...
Option Explicit
Sub Main
' tutte le dim si fanno all'inizio !!! e non è la prima volta che te lo dico
Dim aNumDaSvil
Dim aRuoteq
Dim sLunghetta
Dim aNumeriLunghetta
Dim k , j
ReDim aRuote(4)
Dim nSorte...
tu sei partito cosi
ARUOTEQ1(4)
ARUOTEQ1(1) = BA_
ARUOTEQ1(2) = CA_
ARUOTEQ1(3) = FI_
ARUOTEQ1(4) = GE_
Vorrei, se fosse possibile, dinamicizzare il valore 1 e le sigle delle ruote dopo l'= affinchè possa avere tutti i 330 casi possibili relativi alle 330 quartine di ruote unite che si formano...