numerica2

esercitazione a livello didattico elementare su sintassi e applicazione con variabili indicizzate
con visual basic su powerpoint

Private Sub commandbutton1_Click()
Rem assegnazione nome e tipo variabili indicizzate
Rem variabili indicizzate vettore
Dim n(5) As Integer 'vettore
Dim s(3) As String 'vettore
Rem variabili indicizzate matrice
Dim m(2, 4) As Integer 'matrice
Rem assegnazione valore a variabili indicizzate vettore e visualizza
n(1) = 10
n(2) = 20
n(3) = 30
n(4) = 40
n(5) = 50
Rem visualizza valori
ListBox2.AddItem ("stampa vettori")
ListBox2.AddItem (n(1))
ListBox2.AddItem (n(2))
ListBox2.AddItem (n(3))
ListBox2.AddItem (n(4))
ListBox2.AddItem (n(5))
Rem assegnazione valore a variabili stringa indicizzate vettore e visualizza
s(1) = "prima stringa"
s(2) = "seconda stringa"
s(3) = "terza stringa"
ListBox2.AddItem (s(1))
ListBox2.AddItem (s(2))
ListBox2.AddItem (s(3))
ListBox2.AddItem ("--------------------")
Rem assegnazione valore a variabili indicizzate matrice e visualizza
m(1, 1) = 1
m(1, 2) = 2
m(1, 3) = 3
m(1, 4) = 4
m(2, 1) = 11
m(2, 2) = 22
m(2, 3) = 33
m(2, 4) = 44
Rem visualizza valori
ListBox1.AddItem ("stampa matrici")
ListBox1.AddItem (m(1, 1))
ListBox1.AddItem (m(1, 2))
ListBox1.AddItem (m(1, 3))
ListBox1.AddItem (m(1, 4))
ListBox1.AddItem ("-----------------")
ListBox1.AddItem (m(2, 1))
ListBox1.AddItem (m(2, 2))
ListBox1.AddItem (m(2, 3))
ListBox1.AddItem (m(2, 4))
ListBox1.AddItem ("-----------------")
End Sub


Private Sub CommandButton2_Click()
ListBox1.Clear
ListBox2.Clear
End Sub

vedi numerica2.ppt