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

Лабораторная работа 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) выдаст сумму введенных чисел.

Глава 6. Массивы.

Для хранения величин кроме простых переменных можно использовать массивы. Массив представляет собой набор переменных с одним именем и разными индексами. Каждая такая переменная называется элементом массива. Количество хранящихся в массиве элементов называется размером массива. Размер массива ограничен объемом оперативной памяти и типом данных элементов массива.

Все элементы массива имеют одинаковый тип. Однако если массив имеет тип Variant, то отдельные элементы могут содержать данные разных типов. Например, одни элементы могут быть числами, другие — строками или объектами.

Индекс элемента указывается в круглых скобках после имени массива. Например, strNames(l), strNames(2), strNames(1O) ЯВЛЯЮТСЯ элементами массива с именем strNames. Вы можете использовать каждый из элементов массива точно так же, как и простую переменную. В Visual Basic есть два типа массивов: фиксированного размера и динамический.

Дата добавления: 2014-12-23