media3

esercitazione a livello didattico elementare con visual basic su power point
media aritmetica di n numeri inseriti da tastiera in variabili indicizzate
visualizza numeri, somme parziali e totale, media

Private Sub CommandButton1_Click()
Rem calcolo media aritmetica numero elementi noto n
Rem valori elementi da tastiera 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 tastiera
numero(1) = TextBox1.Value
numero(2) = TextBox2.Value
numero(3) = TextBox3.Value
numero(4) = TextBox4.Value
numero(5) = TextBox5.Value
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

Private Sub CommandButton2_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
End Sub

vedi media3.ppt