2015-05-14
223
1. Откройте окно Immediate W indow, используя опцию Immediate Window меню View или щелкнув, по кнопке 
на панели инструментов Debug.
2. Предположим, что вы решили проверить, как при вводе чисел идет процесс накопления суммы, количества чисел, а также увидеть окончательный результат — среднее значение введенных чисел. Добавьте в программный код несколько строк (они выделены жирным шрифтом):
Private Sub CmdЦикл_Click()
Dim n As Integer
Dim sum As Single
Dim sr As Single
Dim p As String
Debug.Print " Начало работы "
TxtЧисла.Text = ""
Txt Среднее.Text = ""
sum = 0:n = 0
p = InputBox("Введите число и щелкните по кнопке OK. Для завершения ввода щелкните по кнопке Cancel", "Ввод очередного числа")
Debug.Print Val(p)
Do Until p = ""
n = n + 1
TxtЧисла.Text= TxtЧисла.Text + p +" "
sum = sum + Val(p)
p = InputBox("Введите число и щелкните по кнопке OK. Для завершения ввода щелкните по кнопке Cancel", "Ввод очередного числа")
Debug.Print n, sum
Debug.Print Val(p)
Loop
If n = 0 Then
MsgBox "Не введено ни одного числа! ", 0+16, " Ошибка"
Else
sr = sum / n
