Novità

c'è un modo meno pasticcioso per fare questo?

lotto_tom75

lotto_tom75

Advanced Premium Member
Codice: 
dim qf
dim qfv

qf= 10

 For nclasse = 1 To qf
   
     Select Case(qf)
   
     Case 1
     qfv = Array(0,1)
     Case 2
     qfv = Array(0,1,2)
     Case 3
     qfv = Array(0,1,2,3)
     Case 4
     qfv = Array(0,1,2,3,4)
     Case 5
     qfv = Array(0,1,2,3,4,5)
     Case 6
     qfv = Array(0,1,2,3,4,5,6)
     Case 7
     qfv = Array(0,1,2,3,4,5,6,7)
     Case 8
     qfv = Array(0,1,2,3,4,5,6,7,8)
     Case 9
     qfv = Array(0,1,2,3,4,5,6,7,8,9)
     Case 10
     qfv = Array(0,1,2,3,4,5,6,7,8,9,10)

 End select

if scriptinterrotto then exit for
next

In altre parole come potrei caricare il vettore qfv di valori interi progressivi da 1 a 90 dinamicamente con una riga di codice soltanto in base al valore dinamico di qf senza ricorrere ai vari "Case" che in questo caso di esempio sono solo 10 ma che in realtà sono 90?

Grazie

:unsure:🧑‍🍳
 
Ciao, Tom.
Al contrario va bene lo stesso?

Codice: 
Sub main()

z=""

a=Array(0,8,7,6,5,4,3,2,1)

x=UBound(a)

For i= 0 To  x

a(i)=z

Scrivi StringaNumeri(a)

Next

End Sub
 
Cinzia27 ha scritto:
Ciao, Tom.
Al contrario va bene lo stesso?

Codice: 
Sub main()

z=""

a=Array(0,8,7,6,5,4,3,2,1)

x=UBound(a)

For i= 0 To  x

a(i)=z

Scrivi StringaNumeri(a)

Next

End Sub
Clicca per espandere...

Grazie Cinzia :) ad ogni modo per adesso ho già fatto certinosamente così...

Codice: 
'Il seguente script serve a visualizzare il numero di combinazioni integrali
'per qualsiasi classe di sviluppo e per qualsiasi numero di elementi del gruppo numerico di base.

Option Explicit

Sub Main
   Dim colonne
   Dim an
   Dim nclasse
   Dim numeri
   numeri = ScegliNumeri(an)
 
   Dim qf
   Dim qfv
   For qf = 1 To UBound(an)
      Scrivi
      Call Scrivi("<font color=blue>con " & qf & " elementi si generano in modo integrale ")
      Scrivi
      For nclasse = 1 To qf
         Select Case(qf)
         Case 1
            qfv = Array(0,1)
         Case 2
            qfv = Array(0,1,2)
         Case 3
            qfv = Array(0,1,2,3)
         Case 4
            qfv = Array(0,1,2,3,4)
         Case 5
            qfv = Array(0,1,2,3,4,5)
         Case 6
            qfv = Array(0,1,2,3,4,5,6)
         Case 7
            qfv = Array(0,1,2,3,4,5,6,7)
         Case 8
            qfv = Array(0,1,2,3,4,5,6,7,8)
         Case 9
            qfv = Array(0,1,2,3,4,5,6,7,8,9)
         Case 10
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10)
         Case 11
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11)
         Case 12
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12)
         Case 13
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13)
         Case 14
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14)
         Case 15
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15)
         Case 16
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16)
         Case 17
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17)
         Case 18
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18)
         Case 19
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19)
         Case 20
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20)
         Case 21
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21)
         Case 22
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22)
         Case 23
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23)
         Case 24
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24)
         Case 25
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25)
         Case 26
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26)
         Case 27
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27)
         Case 28
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28)
         Case 29
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29)
         Case 30
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30)
         Case 31
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31)
         Case 32
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32)
         Case 33
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33)
         Case 34
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34)
         Case 35
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35)
         Case 36
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36)
         Case 37
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37)
         Case 38
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38)
         Case 39
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39)
         Case 40
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40)
         Case 41
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41)
         Case 42
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42)
         Case 43
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43)
         Case 44
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44)
         Case 45
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45)
         Case 46
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46)
         Case 47
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47)
         Case 48
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48)
         Case 49
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49)
         Case 50
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50)
         Case 51
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51)
         Case 52
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52)
         Case 53
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53)
         Case 54
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54)
         Case 55
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55)
         Case 56
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56)
         Case 57
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57)
         Case 58
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58)
         Case 59
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59)
         Case 60
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60)
         Case 61
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61)
         Case 62
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62)
         Case 63
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63)
         Case 64
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64)
         Case 65
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65)
         Case 66
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66)
         Case 67
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67)
         Case 68
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68)
         Case 69
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69)
         Case 70
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70)
         Case 71
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71)
         Case 72
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72)
         Case 73
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73)
         Case 74
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74)
         Case 75
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75)
         Case 76
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76)
         Case 77
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77)
         Case 78
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78)
         Case 79
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79)
         Case 80
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80)
         Case 81
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81)
         Case 82
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82)
         Case 83
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83)
         Case 84
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84)
         Case 85
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85)
         Case 86
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86)
         Case 87
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87)
         Case 88
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88)
         Case 89
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89)
         Case 90
            qfv = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90)
         End Select
         colonne = InitSviluppoIntegrale(qfv,nclasse) 
         'Scrivi
         Call Scrivi(" x classe " & nclasse & " : " & colonne & " formazioni ")
         'Scrivi
         If ScriptInterrotto Then Exit For 
      Next ' fine ciclo...
   Next ' qf
End Sub

Se vuoi provare ad integrare il tuo script per renderlo molto + sintetico ben venga :)

In sostanza me lo sono costruito.. per vedere, senza dover fare troppi passaggi manuali con la tabella di immissione numeri, in una volta sola tutte le possibili formazioni integrali generabili con i vari gruppi base numerici da 1 a 90 appunto... Questo per cercare velocemente classi base "attaccabili" dal punto di vista elaborazionale...

👋🙂
 
Ultima modifica:
Ciao
Dim qfv as integr = 10
Dim aNum () as integr
Redim anum(qfv)
For i as integr = 1 to qfv
Anum(i)=i
Next
Scrivo da cell quindi potrebbe essere tutto sbagliato.
Ciao:)
 
lotto_tom75 ha scritto:
Codice: 
dim qf
dim qfv

qf= 10

 For nclasse = 1 To qf
 
     Select Case(qf)
 
     Case 1
     qfv = Array(0,1)
     Case 2
     qfv = Array(0,1,2)
     Case 3
     qfv = Array(0,1,2,3)
     Case 4
     qfv = Array(0,1,2,3,4)
     Case 5
     qfv = Array(0,1,2,3,4,5)
     Case 6
     qfv = Array(0,1,2,3,4,5,6)
     Case 7
     qfv = Array(0,1,2,3,4,5,6,7)
     Case 8
     qfv = Array(0,1,2,3,4,5,6,7,8)
     Case 9
     qfv = Array(0,1,2,3,4,5,6,7,8,9)
     Case 10
     qfv = Array(0,1,2,3,4,5,6,7,8,9,10)

 End select

if scriptinterrotto then exit for
next

In altre parole come potrei caricare il vettore qfv di valori interi progressivi da 1 a 90 dinamicamente con una riga di codice soltanto in base al valore dinamico di qf senza ricorrere ai vari "Case" che in questo caso di esempio sono solo 10 ma che in realtà sono 90?

Grazie

:unsure:🧑‍🍳
Clicca per espandere...
non fai prima a ciclare quello che devi fare ....
è presto detto il perchè degli "aumenti" dei prezzi dei pasticcini.....:ROFLMAO: :ROFLMAO::ROFLMAO:


Codice: 
Option Explicit
Sub Main
   Dim colonne,y,co
   Dim an
   Dim nclasse
   Dim numeri
   numeri = ScegliNumeri(an)
   Dim qf
   Dim qfv
   co = 0
   For qf = 1 To UBound(an)
      co = co + 1
      Scrivi
      Call Scrivi("<font color=blue>con " & qf & " elementi si generano in modo integrale ")
      Scrivi
      For nclasse = 1 To qf
         For  y = 1 To co
            colonne = Combinazioni(co,nclasse)
         Next
         Call Scrivi(" x classe " & nclasse & " : " & colonne & " formazioni ")
         If ScriptInterrotto Then Exit For
      Next ' fine ciclo...
   Next ' qf
End Sub

mi sa che devi rifare il corso di pasticceria con il prof..... vedi se funziona correttamente.
 
claudio8 ha scritto:
non fai prima a ciclare quello che devi fare ....
è presto detto il perchè degli "aumenti" dei prezzi dei pasticcini.....:ROFLMAO: :ROFLMAO::ROFLMAO:


Codice: 
Option Explicit
Sub Main
   Dim colonne,y,co
   Dim an
   Dim nclasse
   Dim numeri
   numeri = ScegliNumeri(an)
   Dim qf
   Dim qfv
   co = 0
   For qf = 1 To UBound(an)
      co = co + 1
      Scrivi
      Call Scrivi("<font color=blue>con " & qf & " elementi si generano in modo integrale ")
      Scrivi
      For nclasse = 1 To qf
         For  y = 1 To co
            colonne = Combinazioni(co,nclasse)
         Next
         Call Scrivi(" x classe " & nclasse & " : " & colonne & " formazioni ")
         If ScriptInterrotto Then Exit For
      Next ' fine ciclo...
   Next ' qf
End Sub

mi sa che devi rifare il corso di pasticceria con il prof..... vedi se funziona correttamente.
Clicca per espandere...

Si funzia come il mio :p anche se ovviamente il tuo è molto più sintetico e stiloso... ;)👌 Thanks!
Di nuovo grazie anche a Cinzia e Ilegend 👋:)🧑‍🍳
 
Cinzia27 ha scritto:
Ciao, Tom. Qual' era il thread in cui da una formazione volevi togliere un numero alla volta?
Clicca per espandere...

Credo ti riferisca a quello che ho in sistemistica "tentativo di lunghetta x esito a colpo" o qualcosa di simile... Altrimenti ricordami qualcosaltro del thread che vai cercando. Ciao e buona Domenica Cinzia 🙂
 
Comunque, vorrei intervenire anche nel thread in cui si parla della 49ina poi diventata 47ina. Mi pare fosse quella denominata " Un grafico e una domanda..." o se preferisci dimmi tu dove, forse tentativo di lunghetta x esito a colpo.
 
Cinzia27 ha scritto:
No, Tom. Non è quello. Ho cercato ma non l' ho trovato.
Dove posso risponderti?
Clicca per espandere...
Cinzia27 ha scritto:
Comunque, vorrei intervenire anche nel thread in cui si parla della 49ina poi diventata 47ina. Mi pare fosse quella denominata " Un grafico e una domanda..." o se preferisci dimmi tu dove, forse tentativo di lunghetta x esito a colpo.
Clicca per espandere...

Ciao Cinzia, ok allora i due miei thread che stai cercando per poter rispondere con le tue news al riguardo credo siano questi due seguenti:

uno in sistemistica : https://forum.lottoced.com/threads/tentativi-di-rilevamento-lunghette-doc-solo-x-teorico-esito-a-colpo-di-almeno-2-punti-su-ruota-unica.2201285/post-2402484

due in statistica : https://forum.lottoced.com/threads/solo-un-grafico-e-una-domandina-per-adesso.2197080/post-2282603


👋🙂
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 18 ottobre 2025
    Bari
    23
    03
    54
    34
    30
    Cagliari
    49
    14
    25
    09
    37
    Firenze
    32
    45
    15
    59
    29
    Genova
    03
    66
    68
    90
    85
    Milano
    88
    15
    21
    41
    27
    Napoli
    79
    72
    84
    27
    01
    Palermo
    23
    03
    73
    25
    04
    Roma
    11
    67
    24
    13
    59
    Torino
    72
    59
    84
    75
    26
    Venezia
    81
    08
    18
    76
    25
    Nazionale
    58
    69
    62
    17
    70
    Estrazione Simbolotto
    08
    26
    28
    22
    40
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto