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

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

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

Dim x, y, xn, xk, dx As Single ‘ Описание вещественных переменных

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

Const t = 2.65 ‘ Присвоение константе t вещественного числа 2.65

xn = 0 : xk= 2.2: dx= 0.2 ‘ Присвоение значения xn, xk, dx

a = 3 ‘ Присвоение значения a

for x=xn to xk step dx ‘ Оператор цикла for

1: y = (3.5 + x) / (x + 1) – (2 ^ x + a) / Sin(x + 2) – t ‘ Вычисление У

Debug.Print "x= "; x, "y= "; y ‘ Вывод х, у в окно отладки Immediate Window

Next x ‘ Конец области действия DO

textBox1.text= “см. Immediate “