Задача 3. Вычислить значения аргумента и функции .
Вычислить значения аргумента
где
Блок – схема.
На листе Excel разместить необходимые элементы управления: надпись X=; список Lis tBox1 для вывода значений x; надпись Y=; список Lis tBox2 для вывода значений y; кнопку CommandButton1 с надписью Вычислить – см. рисунок.
 
 
Событийная процедура кнопки Вычислить.
Private Sub CommandButton1_Click() Dim x, y, a, b As Single ListBox1.Clear ListBox2.Clear For x=-2 To 1 Step 0.6 a = Log(x^2) b = Sqr(Abs(x))-a If x < - 1 Then y = Cos(a+x) ^ 2 ElseIf x = - 1 Then y = b *Abs(x) Else y=Exp(x - 2) End If ListBox1.AddItem (x) ListBox2.AddItem (Format(y,”0.000”)) Next x End Sub
|
и функции 
.
