Novità

perchè

genios

Advanced Member >PLATINUM<
Perché lo script seguente non funziona

Codice:
Option Explicit
Sub Main
   Dim n,i,s,b,a
   n = InputBox("introdurre il numero di elementi :")
   s = 0
   For i = 1 To n
  
      a(i) = InputBox("introdurre i dati uno per linea  :")
      s = s + a(i)
   Next
   b = s/n
   Scrivi " la media del numero degli elementi  é " & b
End Sub

Mentre se dimensiono la variabile a funziona ?

[ICODE]
[CODE]Option Explicit
Sub Main
   Dim n,i,s,b,a(3)
   n = InputBox("introdurre il numero di elementi :")
   s = 0
   For i = 1 To n
  
      a(i) = InputBox("introdurre i dati uno per linea  :")
      s = s + a(i)
   Next
   b = s/n
   Scrivi " la media del numero degli elementi  é " & b
End Sub
[/ICODE]
[/CODE]
 

Edoardo_95

Advanced Member
Lo script può essere fatto un pochino meglio .. ma se vuoi mantenere questa forma basta che ridimensioni "a" in funzione del numero di elementi. Subito dopo la scelta di "n" naturalmente
 

joe

Advanced Member >PLATINUM PLUS<
Giusto ma tu riesci a dimensionare un Array con il numero inserito nell'inputbox?

:)
 

genios

Advanced Member >PLATINUM<
Salvo50 avevo pensato anche io alla tua soluzione .

E funziona .
E se volessimo sapere perché cosi funziona ?

ciao Eugenio
 

i legend

Premium Member
Ciao , riporto il mio primo suggerimento.
Studiare gli array.
Come si dichiarano, se fissi o ridimensionabili, se ad una o più dimensioni, quale elementi si possono ridimensionare. Solo così si imoara e si memorizza quello che si vuole ottenere
Ciao.
 

joe

Advanced Member >PLATINUM PLUS<
Ok Salvo,

per quanto mi risulta e se ricordo bene anche a me ...

CON DIM NON FUNZIONA con REDIM SI.

Per questo avevo scritto in quel modo.

E' vero anche quello che dice Ilegend ... provare e riprovare,

correggere e migliorare è la palestra dell'imparare.

:)
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto