numerica4

esercitazione a livello didattico elementare di sintassi con variabili indicizzate numeriche
tipo matrice, con visual basic e powerpoint:
dimensionamento matrice, assegnazione valori, stampa valoiri, stampa somma e prodotto,
cancella singoli elementi o tutti

Private Sub stampavettore_Click()
Rem variabili numeriche indicizzate vettore matrice
Rem dimensionamento matrice 2*3
Rem assegnazione diretta valori alla matrice
Dim dato(2, 2) As Integer
dato(0, 0) = 1
dato(0, 1) = 2
dato(0, 2) = 3
dato(1, 0) = 4
dato(1, 1) = 5
dato(1, 2) = 6

Label1.Caption = dato(0, 0)
Label2.Caption = dato(0, 1)
Label3.Caption = dato(0, 2)
Label4.Caption = dato(1, 0)
Label5.Caption = dato(1, 1)
Label8.Caption = dato(1, 2)
End Sub

Private Sub sommavettore_Click()
Rem dimensionamento matrice
Rem assegnazione valore alla matrice
Rem somma valori
Dim dato(2, 2) As Integer
Dim x, y As Integer
Dim somma As Integer
somma = 0
dato(0, 0) = 1
dato(0, 1) = 2
dato(0, 2) = 3
dato(1, 0) = 4
dato(1, 1) = 5
dato(1, 2) = 6
Rem assegna valori per somma con ciclo For
For y = 0 To 1
For x = 0 To 2
somma = somma + dato(y, x)
ListBox1.AddItem (somma)
Next x
Next y
Label6.Caption = "somma=" & somma
End Sub

Private Sub cancellavettore_Click()
Rem cancella valori
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""
Label4.Caption = ""
Label5.Caption = ""
Label8.Caption = ""
End Sub

Private Sub prodotto_Click()
Rem stampa prodotto
Dim dato(2, 2) As Integer
Dim x, y As Integer
Dim prodotto As Double
prodotto = 1
dato(0, 0) = 1
dato(0, 1) = 2
dato(0, 2) = 3
dato(1, 0) = 4
dato(1, 1) = 5
dato(1, 2) = 6
rem assegna valori per operazione con ciclo For
For y = 0 To 1
For x = 0 To 2
prodotto = prodotto * dato(y, x)
ListBox2.AddItem (prodotto)
Next x
Next y
Label9.Caption = "prodotto=" & prodotto
End Sub

Private Sub cancellarisultati_Click()
Rem cancella risultati
Label6.Caption = ""
Label9.Caption = ""
End Sub


Private Sub cancellatutto_Click()
Rem cancella tutto
Label6.Caption = ""
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""
Label4.Caption = ""
Label5.Caption = ""
Label8.Caption = ""
Label9.Caption = ""
ListBox1.Clear
ListBox2.Clear
End Sub

vedi numerica4.ppt