, , - , , .
: > (), >= ( ), < (), <= ( ), = (), < > ( ).
: (True ), (False ). , . : And , , ; Or , , , .
, x > y And a >= 5 , x > y a >= 5. x > y Or x = a , x > y, a >= 5, .
And Or, , :
x >= 1 And x =< 10 Or x = 15
, [1:10] = 15.
If
IfThenElse () :
If < > Then < 1 > Else < 2 >
: , 1, 2.
Else.
, End If:
If < > Then
<1>
<1>
Else
<2>
<2>
End If
, If .
6.1. w If:
; ;
: x = 0.5(0.5)4, n = 7. :
Sub CommandButton1_Click()
Dim x As Single, y As Single, w As Single, n As Single
n = Val(InputBox(" n"))
For x = 0.5 To 4 Step 0.5
y = Exp(-2 * x) + 1
z = Log(x) / (x + 1)
If x < z ^ 2 Then w = Sqr(x * y) Else w = n * x + 2
Msgbox (w= & w)
Next
End Sub
6.2. y n x:
: