matrice1 matrice2 matrice3 matrice4 matrice5 matrice6

1

2

3

4

5

6

matrice1

Private Sub CommandButton1_Click()
Rem dimensionamento vettore
Rem assegnazione valore al vettore
Dim dato(4) As Integer
Dim intero(4) As Integer
dato(0) = 10
dato(1) = 20
dato(2) = 30
dato(3) = 40
dato(4) = 50
intero(0) = 2
intero(1) = 4
intero(2) = 6
intero(3) = 8
intero(4) = 10

Label1.Caption = dato(0) & "..." & intero(0)
Label2.Caption = dato(1) & "..." & intero(1)
Label3.Caption = dato(2) & "..." & intero(2)
Label4.Caption = dato(3) & "..." & intero(3)
Label5.Caption = dato(4) & "..." & intero(4)

End Sub

Private Sub CommandButton2_Click()
Rem dimensionamento vettore
Rem assegnazione valore al vettore
Rem somma valori
Dim dato(4) As Integer
Dim intero(4) As Integer
Dim x As Integer
Dim somma As Integer
somma = 0
dato(0) = 10
dato(1) = 20
dato(2) = 30
dato(3) = 40
dato(4) = 50
intero(0) = 2
intero(1) = 4
intero(2) = 6
intero(3) = 8
intero(4) = 10
For x = 0 To 4
somma = somma + dato(x) + intero(x)
Next x
Label6.Caption = "somma=" & somma

End Sub

Private Sub CommandButton3_Click()
Rem cancella valori
Dim dato(4) As Integer
Dim intero(4) As Integer
dato(0) = 0
dato(1) = 0
dato(2) = 0
dato(3) = 0
dato(4) = 0
intero(0) = 0
intero(1) = 0
intero(2) = 0
intero(3) = 0
intero(4) = 0
Label1.Caption = dato(0)
Label2.Caption = dato(1)
Label3.Caption = dato(2)
Label4.Caption = dato(3)
Label5.Caption = dato(4)
End Sub

Private Sub CommandButton4_Click()
Rem stampa prodotto
Dim dato(4) As Integer
Dim intero(4) As Integer
Dim prodotto As Double
dato(0) = 10
dato(1) = 20
dato(2) = 30
dato(3) = 40
dato(4) = 50
intero(0) = 2
intero(1) = 4
intero(2) = 6
intero(3) = 8
intero(4) = 10
prodotto = 1
For x = 0 To 4
prodotto = prodotto * dato(x) * intero(x)
Next x
Label6.Caption = "prodotto=" & prodotto
End Sub

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


Private Sub UserForm_Click()

End Sub