Завдання на самостійну роботу(в,вс,лс)

ЗАВДАННЯ 8.7. СТВОРІТЬ ПРОЕКТИ ЗГІДНО З ВАРІАНТОМ ІНДИВІДУАЛЬНОГО ЗАВДАННЯ.

ЗАВДАННЯ 8.8 Постановка задачи СОСТАВИТЬ ПРОГРАММУ, КОТОРАЯ ОПРЕДЕЛЯЕТ СРЕДНЕЕ АРИФМЕТИЧЕСКОЕ ВВЕДЕННЫХ ЧИСЕЛ. КОЛИЧЕСТВО ЧИСЕЛ ЗАРАНЕЕ НЕ ИЗВЕСТНО. ЧИСЛА ВВОДЯТСЯ С ПОМОЩЬЮ ОКНА INPUT BOX. ВВОД ЗАВЕРШАЕТСЯ ПРИ НАЖАТИИ КНОПКИ CANCEL. Окно InputBox должно иметь вид:

Рис. 8. 7

Порядок действий:

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

2. Откройте проект.

3. Измените программный код следующим образом:

Private Sub cmdЦикл_Click()

Dim n As Integer

Dim sum As Single

Dim sr As Single

Dim p As String

txtЧисла.Text = ""

txtСреднее.Text = ""

sum = 0: N = 0

P = InputBox("Введите число и нажмите кнопку OK. Для завершения ввода нажмите кнопку Cancel", "Ввод очередного числа")

Do Until P = ""

If IsNumeric(P) = False Then

MsgBox " Введите число! ", 0 + 16, "Ошибка!!!"

Else

N = N + 1

txtЧисла.Text = txtЧисла.Text + P + " "

sum = sum + Val(P)

End If

P = InputBox("Введите число и нажмите кнопку OK. Для завершения ввода нажмите кнопку Cancel", "Ввод очередного числа ")

Loop

If N = 0 Then

MsgBox " Не введено ни одного числа! ", 0 + 16, "Ошибка!!!"

Else

sr = sum / N

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

End If