Задача 3. Вычислить значения аргумента и функции .

Вычислить значения аргумента и функции .

где

Блок – схема.

На листе Excel разместить необходимые элементы управления: надпись X=; список Lis tBox1 для вывода значений x; надпись Y=; список Lis tBox2 для вывода значений y; кнопку CommandButton1 с надписью Вычислить – см. рисунок.

ListBox1

ListBox2

Label2

Label1

	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

Дата добавления: 2015-09-05