|
Dim sym As Integer
|
‘переменная sym - двубайтовый формат’
|
|
Private Sub Command2_Click()
|
‘начать процедуру кликом по командной кнопке 2’
|
|
sym = 0
|
‘первым значением переменной для суммы должен быть ноль.’
|
|
For I = 0 to 9
|
‘начало цикла ’
|
|
sym = sym + a(I)
|
'сумма элементов массива находится путем прибавления элемента массива к прежнему значению переменной.'
|
|
Next I
|
‘конец цикла’
|
|
Text2.Text = Str(sym)
|
‘вывод значения суммы в текстовое окно 2’
|
|
End Sub
|
‘конец процедуры’
|
