---

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