Лабораторная работа 5.3. Циклы с применением оператора For…Next.
Задание: Написать приложения для
вычисления суммы членов ряда
,
где n задано.
-
Запустите Microsoft Visual Basic 6.0 (см. Запуск Visual Basic 6.0.)
-
Выберите тип проекта StandardEXE и нажмите кнопку Открыть. Появится среда разработки Visual Basic. Должна быть доступна панель элементов управления (см. Панель элементов управления) и открыт конструктор форм (см. Конструктор форм)
-
Создайте на форме элементы управления, как показано на рисунке 5.3.
Рисунок 5.3. Элементы управления и их свойства к лабораторной работе 5.3.
-
Перейдите в редактор кода и напишите следующий код:
Private Sub cmdCalc_Click()
Dim lngLimit As Long
Dim lngStep As Long
Dim lngCounter As Long
Dim vntSum As Variant
lngLimit = txtLimit.Text
lngStep = txtStep.Text
vntSum = CDec(0)
For lngCounter = 1 To lngLimit Step lngStep
vntSum = vntSum + lngCounter ^ 2
Next lngCounter
MsgBox "Сумма членов ряда = " & vntSum
End Sub
Результат работы приложения: при клике
на кнопку с надписью «Рассчитать»
производится расчет суммы членов ряда
и выдача результата в окне сообщений .
Лабораторная работа 5.4. Циклы с применением оператора Do…Loop.
Задание: Написать приложение, подсчитывающее сумму чисел, введенных в окне ввода, до тех пор, пока не будет введен ноль.
-
Запустите Microsoft Visual Basic 6.0 (см. Запуск Visual Basic 6.0.)
-
Выберите тип проекта StandardEXE и нажмите кнопку Открыть. Появится среда разработки Visual Basic. Должна быть доступна панель элементов управления (см. Панель элементов управления) и открыт конструктор форм (см. Конструктор форм)
-
Создайте на форме элементы управления, как показано на рисунке 5.4.
Рисунок 5.4. Элементы управления и их свойства к лабораторной работе 5.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 есть два типа массивов: фиксированного размера и динамический.