🚀 go-pugleaf

non so se ci riuscir� a schiarirti le idee, per� prova questa sub
fammi sapere.
cerberus1981@hotmail.com

Private sub ChiamalaComeVuoiTu()
dim X as integer
dim Numeri(1 to 7) as integer
dim Lettere(1 to 7) as string
dim Compres(1 to 7) as new Collection
dim Medie(1 to 4) as single
numeri(1)=0'dai il valore collegato alla cella
numeri(2)=0'dai il valore collegato alla cella
numeri(3)=0'dai il valore collegato alla cella
numeri(4)=0'dai il valore collegato alla cella
Lettere(1)=""'dai il valore collegato alla cella
Lettere(2)=""'dai il valore collegato alla cella
Lettere(3)=""'dai il valore collegato alla cella
Lettere(4)=""'dai il valore collegato alla cella
for x=1 to 7 step 1
select case Lettere(x)
case="a"
    compres(1).add numeri
case="b"
    compres(1).add numeri
case="c"
    compres(1).add numeri
case="d"
    compres(1).add numeri
end select
next x
for X=1 to compres(1).count
    media(1)=compres(1).item (x)
next x
media(1)=media(1)/compres(1).count
for X=1 to compres(2).count
    media(2)=compres(2).item (x)
next x
media(2)=media(2)/compres(2).count
for X=1 to compres(3).count
    media(3)=compres(3).item (x)
next x
media(3)=media(3)/compres(3).count
for X=1 to compres(4).count
    media(4)=compres(4).item (x)
next x
media(4)=media(4)/compres(4).count

for x=1 to 4 step 1
    msgbox "La media di " & asc(65+x)  & " �:" Media(x)
next x

End Sub
***************************************************************

La Classe non � Acqua.
infatti � il modello in base al quale vengono create le istanze di un
oggetto in fase di esecuzione. Definisce le propriet� dell'oggetto e i
metodi utilizzati per gestire le funzioni dell'oggetto stesso.

***************************************************************