:
19
3-151- | ______________ () | . . ( ..) |
... | ______________ () | .. ( ..) |
2016
:
1. 3
1.1. 3
1.2. 3
2. 4
2.1. 4
2.2. 8
3. 12
4. 16
5. 16
6. ()17
6.1. 17
6.2. 18
, , , , , ().
, , (goto jump), . , "-".
, , . , , , , , , . , , , , , , .
, , .
Visual Basic 6.0. .
: . Visual Basic 6.0 ().
Visual Basic 6.0 : ( If) ( Select Case).
|
|
If , .
, .
:
, (Example > 0).
(Check = True).
.
, , .
If: .
If , . : , , If. , , .
If < > Then < 1> End If
. 1
1 If.
If , , , . Else. , !
If < > Then
< 1>
Else
< 2>
End If
. 2
2 If.
, , If - . If.
If < 1> Then
< 1>
Else
If < 2> Then
< 2>
Else
< 3>
End If
End If
. 3
3 If.
. Select Case. . Case .
:
.
.
(1, 3, 5, 7, 9).
(1 To 9).
(Is > 0).
Select Case <>
Case < 1>
< 1>
...
Case < N>
< N>
Case Else
<>
End Select
. 4
4 Select Case.
|
|