Задача 1. На листе Excel (см

Вычислить

где

Блок – схема.

На листе Excel (см. рисунок) для создания интерфейса пользователя разместить элементы управления: надпись x=; поле TextBox1 для ввода значения x; надпись z=; поле TextBox2 для вывода значения z. Кроме того, на лист Excel поместить кнопку CommandButton1 с надписью Вычислить инаписать процедуру для вычисления указанных функций.

Label1

CommandButton1

TextBox2  

TextBox1

Label2

Событийная процедура кнопки Вычислить.

Private Sub CommandButton1_Click()

Dim y, a, b, x, z As Single

x = TextBox1.Value

b = 3 + 2 * x ^ (1 / 3)

y = (b * x^ 2 + Sin (b) ^ 3) / (b + x)

a = Log (Abs (1.4 – x)) / Log(10) + Tan(b*y)

z = y ^ (2 / 3)*Cos(x * y) ^ 2 – Exp(Sqr(Abs(a ^ 2 – 1.3)))

TextBox2.Text = Format(z,”0.00000”)

End Sub

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