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 26 luglio 2025
    Bari
    81
    09
    05
    54
    10
    Cagliari
    56
    07
    45
    69
    64
    Firenze
    39
    16
    56
    29
    09
    Genova
    67
    12
    55
    74
    04
    Milano
    40
    30
    44
    63
    27
    Napoli
    63
    07
    74
    86
    81
    Palermo
    80
    34
    16
    27
    53
    Roma
    08
    78
    43
    03
    52
    Torino
    38
    84
    47
    57
    20
    Venezia
    88
    70
    85
    65
    24
    Nazionale
    36
    09
    43
    55
    10
    Estrazione Simbolotto
    Nazionale
    25
    23
    13
    40
    35
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto