---

Private Sub CommandButton1 ClickO
Dim mass(15), i As Integer Dim summ As Integer
summ = 0
For i = 1 To 15
massi) = i
TextBox1.Text = TextBox1 Text & "'' & і " вывод элементов массива в поле Text-
summ = summ + massi)
Next i
Labell = summ
End Sub
После