Одномерный массив

Задание

Вычислить сумму элементов одномерного целочисленного массива, заданного случайным образом.

1 Даем новой форме название «Иванов И.И. Гр. Д-1-2005 Задача 4».

2 Помещаем надпись «Одномерный массив» (Label1).

3 Помещаем кнопки «Элементы массива» (CommandButton1) «Сумма элементов» (CommandButton2).

4 Помещаем Label2.

5 Записываем программу вычисления суммы элементов массива:

Const n = 12

Dim V(1 To n) As Integer

Dim S As Integer

Private Sub CommandButton1_Click()

Label2.Caption = "Исходный массив "

Randomize

For i = 1 To n

V(i) = Rnd * 10

Label2.Caption = Label2.Caption + Str(V(i))

Next

End Sub

Private Sub CommandButton2_Click()

S = 0

For i = 1 To n

S = S + V(i)

Next

Rez = MsgBox("Сумма элементов массива=" & S,,"Окно результата")

End Sub

6 Запускаем программу. Нажимаем кнопку Элементы массива. В окне формы выводятся значения элементов массива V:

7 Нажимаем кнопку Сумма элементов.

8 В окне MsgBox выводится результат.