Лабораторная работа 5.4. Циклы с применением оператора Do…Loop

Задание: Написать приложение, подсчитывающее сумму чисел, введенных в окне ввода, до тех пор, пока не будет введен ноль.

1. Запустите Microsoft Visual Basic 6.0 (см. Запуск Visual Basic 6.0.)

2. Выберите тип проекта StandardEXE и нажмите кнопку Открыть. Появится среда разработки Visual Basic. Должна быть доступна панель элементов управления (см. Панель элементов управления) и открыт конструктор форм (см. Конструктор форм)

3. Создайте на форме элементы управления, как показано на рисунке 5.4.

Рисунок 5.4. Элементы управления и их свойства к лабораторной работе 5.4.

4. Перейдите в редактор кода и напишите следующий код:

Private Sub cmdStart_Click()

Dim lngInputValue As Long

Dim lngSum As Long

'Обнулить сумму

lngSum = 0

Do

'Считать в переменную из окна ввода

lngInputValue = InputBox("Введите целое число:")

'Суммировать

lngSum = lngSum + lngInputValue

Loop While lngInputValue <> 0

'Вывести результат

MsgBox "Сумма введеных чисел=" & lngSum

End Sub

Результат работы приложения: при клике на кнопку с надписью «Старт» появится окно ввода (InputBox), в которое нужно будет вводить любые целые числа. После ввода нуля приложение в окне вывода сообщений (MsgBox) выдаст сумму введенных чисел.