Dim P As String, К As String

txtЧисла.Text ="": txtСреднее.Text = ""

P = InputBox ("Сколько чисел?", "Количество чисел")

N = Val(P) 'Количество чисел

sum = 0 'Начальное значение суммы

For i = 1 To N

K = InputBox("Введите" + Str(i) + "число и нажмите кнопку ОК", _

"Ввод очередного числа")

txtЧисла.Text = txtЧисла.Text + К + Chr(13) + Chr(10)

'Добавление чисел в текстовое поле

sum = sum + Val(K) 'Накопление суммы

Next i

sr = sum / N 'Вычисление среднего

txtСреднее.Text = Str(sr)

End Sub

4. Сохраните проект под именем Лр8_Зад4_Фамилия.

5. Запустите проект на выполнение. Проанализируйте результат.

6. Измените программу так, чтобы выполнялся подсчет среднего арифметического только отрицательных чисел. (Внимание! Программа должна корректно работать при отсутствии отрицательных чисел.)

7. Запустите проект на выполнение. Проанализируйте результат.

8. Сохраните изменения в проекте.

 

 

ЛАБОРАТОРНА РОБОТА №8. ПРОЕКТУВАННЯ ДОДАТКІВ VB6,
ЩО МІСТЯТЬ ЦИКЛІЧНІ АЛГОРИТМІЧНІ СТРУКТУРИ.
ЗАНЯТТЯ 2. ЦИКЛИ З УМОВОЮ

 

Оператор циклов с условиемDo … Loop При программировании циклов далеко не всегда известно количество повторов. В этих случаях используют циклы с условием, которые в Visual Basic могут быть реализованы с помощью 4-х конструкций оператора Do … Loop

Проверка условия в начале цикла	Проверка условия в конце цикла
D o W h i l e < условие > <тело цикла > [ E x i t D o ] L o o p <тело цикла> выполняется, если <условие> истинно, иначе осуществляется переход на оператор, расположенный после Loop. Если первая проверка <условия> даст результат – ложь, то цикл не выполнится ни разу.	D o < тело цикла> [ E x i t D o ] L o o p W h i l e < условие> <тело цикла> выполняется до тех пор, пока <условие> истинно, иначе выполнение цикла заканчивается. Но хотя бы один раз цикл выполнится в любом случае.
D o U n t i l e < условие> <тело цикла > [ Ex it D o ] L o o p <тело цикла> выполняется, если <условие> ложно, иначе осуществляется переход на оператор, расположенный после Lo op. Если первая проверка <условия> даст результат – истина, то цикл не выполнится ни разу.	D o < тело цикла> [ Ex it D o ] L o o p U n t i l e < условие> <тело цикла> выполняется до тех пор, пока <условие> ложно, иначе выполнение цикла заканчивается. Но хотя бы один раз цикл выполнится в любом случае.