Лекция: Лабораторная работа 5.3. Циклы с применением оператора For…Next.

Задание: Написать приложения для вычисления суммы членов ряда, где n задано.

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

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

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

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

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

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