, , , , . VBA.
, .
, , . <> <END> (), , .
. , <END> . Cod (), 30.
30
, , VBA. , .
Private Sub CommandButton2_Click()
End Sub
, , . (Click), . ( , Click).
<> <END>.
1 Code. , 31.
31
2 CommandButton1 . , <CommandButton1>.
, <>, .
, . <CommandButton1> .
3 :
Private Sub CommandButton1_Click()
Dim A, B, X, z1, z2, z3 As Single
A = Val(TextBox1.Text)
B = Val(TextBox2.Text)
X = Val(TextBox3.Text)
z1 = Abs(Log(X) / Log(10)) - Sqr(Abs(Cos(X) - Exp(X)))
z2 = Abs(Tan(Abs(A * X - B)) / Sin(Abs(X)) + B)
z3 = Atn(z2 / Sqr(Abs(1 - z2 ^ 2)))
Label1.Caption = Log(Abs(z1 * z3))
End Sub
. Val ( , , ).
4 <END> ( Command2 Code.
5 , <CommandButton2>. End. ( 32).
32 , 1 2