Option Explicit
Class clsSviluppo
Private aBNumDaSvil
Private nQNumeri
Private nCombInt
Private nClasse
Function InitSviluppo(aNumeri,Classe)
nQNumeri = AlimentArrayNumDaSvil(aNumeri)
nCombInt = Combinazioni(aNumeri,Classe)
nClasse = Classe
InitSviluppo = nCombInt
End Function
Private Function AlimentArrayNumDaSvil(aNumeri)
Dim k,Q
aBNumDaSvil = ArrayNumeriToBool(aNumeri)
Q = 0
For k = 1 To UBound(aBNumDaSvil)
If aBNumDaSvil(k) = True Then
Q = Q + 1
End If
Next
AlimentArrayNumDaSvil = Q
End Function
Function GetStringaNumDaSvil
Dim s,k
s = ""
For k = 1 To UBound(aBNumDaSvil)
If aBNumDaSvil(k) = True Then
s = s & aBNumDaSvil(k) & "."
Next
End If
GetStringaNumDaSvil = RimuoviLastChr(s,".")
End Function
Function GetQuantitaNumeriDaSvil
GetQuantitaNumeriDaSvil = nQNumeri
End Function
End Class