( If)
Private Sub Command1_Click()
Dim x As Double '
Dim y As Double '
Const R = 2
x = CDbl(Text1.Text)
If x < R Then
y = x + R
ElseIf x > R Then
y = 1
Else
y = Sqr(R ^ 2 x ^ 2)
End If
Label1.Caption = CStr(y)
End Sub
( Select Case)
Private Sub Command1_Click()
Dim x As Double '
Dim y As Double '
Const R = 2
x = CDbl(Text1.Text)
Select Case x
Case Is < R
y = x + R
Case R To R
y = Sqr(R ^ 2 x ^ 2)
Case Is > R
y = 1
End Select
Label1.Caption = CStr(y)
End Sub
1. If (If End If, If Else End If, If ElseIf Else End If).
2. Select Case.
3. Boolean .
4. .
5. .
3
: For.
.
. :
For < > = < > To < > [ Step < >]
< >
Next [ ]
. 4.
. 4.
For:
1) ().
2) : 
() ( ) 
( ). , . , (. . ).
3) < > ( , 1).
4) 2
Print.
Print x, y x y, Print =, S =, , S.
1. For , . x , .
1. 
2. 
3. 
4. 
5. 
6. 
7. 
8. 
9. 
10. 
11. 
12. 
13. 
14. 
15. 
16. 
17. 
18. 
19. 
20. 
21. 
22. 
23. 
24. 
25. 
|
|
|
2. , , 2:
