Лабораторная работа 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

vntSum = vntSum + lngCounter ^ 2

Next lngCounter

MsgBox "Сумма членов ряда = " & vntSum

End Sub

Результат работы приложения: при клике на кнопку с надписью «Рассчитать» производится расчет суммы членов ряда и выдача результата в окне сообщений.