Задача 2. Добавить необходимые элементы управления, используя панель элементов (см

Вычислить

, где

Блок – схема.

Добавить необходимые элементы управления, используя панель элементов (см. рисунок): надпись y=; поле TextBox1 для вывода значения y; кнопку CommandButton1 с надписью Вычислить.

Label1

CommandButton1

TextBox1

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

Private Sub CommandButton1_Click()

Dim y, a, b, c, d As Single

b = 3.7

a = 4.6 * Exp(-Sqr(b))

If a*b >sin(a) Then

y = 0.65 * Cos(a)^3 - Atn(b^2)

ElseIf a*b = sin(a) Then

y = 3 * a * b + Tan(b)

Else

y = Log(Abs(a^2 – b^2))

End If

TextBox1.Text = Format(y,”0.00000”)

End Sub

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