Задача 2. Добавить необходимые элементы управления, исполВычислить
, где Блок – схема.
Добавить необходимые элементы управления, используя панель элементов (см. рисунок): надпись y=; поле TextBox1 для вывода значения y; кнопку CommandButton1 с надписью Вычислить.
 
Событийная процедура кнопки Вычислить.
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
|
