Dim i As Integer, sommap As Integer, sommatotale As Integer, m As Double, v(11) As Integer, somma As Integer
Private Sub caricavettore_Click()
For i = 1 To 11
v(11) = InputBox("inserisci il valore")
Next i
End Sub
Private Sub media_Click()
For i = 1 To 11
sommatotale = sommatotale + v(11)
Next i
m = sommatotale / 11
MsgBox ("la media è " & media)
End Sub
Private Sub sommapositivi_Click()
For i = 1 To 11
If v(11) >= 0 Then
sommap = v(11) + n
End If
Next i
MsgBox ("la somma dei valori positivi è " & sommap)
End Sub
|