media2

esercitazione a livello didattico elementare con visual basic su powerpoint
calcolo media aritmetica con valori inseriti da codice in variabili indicizzate
essendo noto limite per indicizzazione

Private Sub CommandButton1_Click()
Rem calcolo media aritmetica numero elementi noto n
Rem valori elementi da codice con variabili indicizzate
Dim somma, n, k As Integer
Dim media As Double
n = 5
Dim numero(5) 'dimensiona variabile con indice
Rem assegnazione valore a variabili mediante codice
numero(1) = 10
numero(2) = 20
numero(3) = 30
numero(4) = 40
numero(5) = 50
somma = 0
For k = 1 To n
somma = somma + numero(k)
ListBox1.AddItem ("numero " & k & "=" & numero(k) & " somma parziale=" & somma)
Next k
media = somma / n
ListBox1.AddItem ("-----------------")
ListBox1.AddItem ("somma finale = " & somma)
ListBox1.AddItem ("media = " & media)
End Sub

vedi media2.ppt