media1

esercitazione a livello didattico elementare con visual basic siu powerpoint
assegnazione valori per variabili intere con codice programma
indicazione calcoli da eseguire.somma e media
visualizzazione valori, somma, media

Private Sub CommandButton1_Click()
Rem calcolo media aritmetica numero elementi noto n
Rem valori elementi da codice programma
Dim a, b, c, d, e, somma, n As Integer
Dim media As Double
Rem assegnazione valore a variabili
a = 1
b = 2
c = 3
d = 4
e = 5
n = 5
somma = a + b + c + d + e
media = somma / n
Rem visualizza numeri e calcoli su numeri
ListBox1.AddItem ("calcola media dei numeri")
ListBox1.AddItem (a)
ListBox1.AddItem (b)
ListBox1.AddItem (c)
ListBox1.AddItem (d)
ListBox1.AddItem (e)
ListBox1.AddItem ("-----------------")
ListBox1.AddItem ("somma = " & somma)
ListBox1.AddItem ("media = " & media)
End Sub

vedi media1.ppt