Dim Massiv(1 To 5), S As Single, I As Integer. Massiv(I) = Val(InputBox("Введите элемент массива " & Str(I), "Окно ввода"))

I=1

Do Until I>5

Massiv(I) = Val(InputBox("Введите элемент массива " & Str(I), "Окно ввода"))

I=I+1

Loop

S = 0

I=1

Do Until I>5

S = S + Massiv(I) -этот оператор выполняется до того, какI>5

I=I+1

Loop

MsgBox "Сумма элементов массива равна " & Str(S),, "Ответ"

Задание.

1. Прочитать учебный материал. Уметь отвечать на вопросы.

2. Изменить приведенные фрагменты программ для варианта задания (задания находятся в папке заданий, файл Var_Zad_VB_Cicl.doc)

3. Подготовить форму с 4 командными кнопками. Щелчок мыши по одной из командных кнопок должен запускать программу расчета суммы элементов массива по одному из приведенных алгоритмов. Командные кнопки должны иметь соответствующие надписи. Поместить измененные фрагменты программ в процедуры обработки событий «Щелчок мыши по командной кнопке» для соответствующих кнопок.

4. Демонстрация работы проекта преподавателю.