numerica44

esercitazione a livello didattico elementare con sintassi visual basic su powerpoint
inserimento da tastiera di sei interi con variabili indicizzate tipo matrice
assegnazione valori con ciclo For
esecuzione di somma e prodotto degli interi inseriti
visualizzazione e cancellazione in modo vario

Private Sub stampavettore_Click()
Rem variabili numeriche indicizzate vettore matrice
Rem dimensionamento matrice 2*3
Rem assegnazione valori alla matrice da tastiera
Dim dato(2, 2) As Integer
dato(0, 0) = TextBox1.Value
dato(0, 1) = TextBox2.Value
dato(0, 2) = TextBox3.Value
dato(1, 0) = TextBox4.Value
dato(1, 1) = TextBox5.Value
dato(1, 2) = TextBox6.Value

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()
Dim dato(2, 2) As Integer
Dim x, y As Integer
Dim somma As Integer
somma = 0
dato(0, 0) = TextBox1.Value
dato(0, 1) = TextBox2.Value
dato(0, 2) = TextBox3.Value
dato(1, 0) = TextBox4.Value
dato(1, 1) = TextBox5.Value
dato(1, 2) = TextBox6.Value
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) = TextBox1.Value
dato(0, 1) = TextBox2.Value
dato(0, 2) = TextBox3.Value
dato(1, 0) = TextBox4.Value
dato(1, 1) = TextBox5.Value
dato(1, 2) = TextBox6.Value
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
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
End Sub

vedi numerica44.ppt