End Sub ‘ Конец процедуры отклика

Пример процедуры отклика кнопки 3 (3-й задачи нулевого варианта).

Private Sub CommandButton3_Click() ‘ Заголовок процедуры отклика

Dim an, S, e As Single ‘ Описание вещественных переменных

Dim n As Integer ‘ Описание целых переменных

e = 0.001 ‘ Присвоение значения

S = 0: n = 1 ‘ Присвоение начального значения

an = n / (n ^ 3 + n ^ 2 + 1) ‘ Вычисление начального an

Do While an >= e ’ Оператор цикла Do While ….. Loop

S = S + an ‘ Получение суммы

n = n + 1 ‘ Изменение n

an = n / (n ^ 3 + n ^ 2 + 1) ‘ Вычисление текущего an

Loop ‘ Конец области действия Do

TextBox2.Text =”S= “ & Format(S, "##0.##") & “n= “ & n ‘ Вывод в TextBox2

End Sub