. , : , , , .. . , , . , , .
, (), .
Visual Basic , , , (.. , . .);
:
TYPE < >
< 1 > AS < 1 >
< 2 > AS < 2 >
...
< n > AS < n >
END TYPE
, , , :
TYPE Student
fam AS STRING
name AS STRING
dsinger AS STRING
bdate AS DATE
END TYPE
. .
, DIM starosta AS Student
, .
2.
(.. , ) (.. , , ).
, , .
:
Dim , , . , . .
Private . Dim Private .
Public .
Static , .. , , .
(, ). . . :
|
|
|
[Static/Private/Public] DIM < > [ AS <>]
:
DIM a AS string
Private DIM y1, y2 AS integer
DIM x AS integer, s AS long
. As :
[Static/Private/Public] DIM < >
.
| % & ! # $ @ | integer long single double string currency |
:
DIM Fam$
Static N%
, .
.
. :
[Public/Private] Const < > [ As <>] = <>
:
Const Pi As Single = 3.1415
, .
() , .
:
- (-123) (54);
- ( ) -57.09.
10
3.
. , .
a.
. , . , . :
< > = <>
= ( ). , , =, , , =. X=X+1 , X 1 X, .. X 1.
, :
1. .
2. .
3. . . , , .
|
|
|
| ^ | X2 → X^2 | |
| ( ) | X mod Y X , Y | 7 mod 3 : 1 |
| ( ) | X \ Y X , Y | 7 \ 3 : 2 |
| , | *,/ | 2*X+Y/3 |
| , | +, - | X+Y-5.3 |
. y : 
.
:
y=(3*x+2)*4/(5*x)
B.
. , . .
| ABS(X) | ||
| ATN (X) | ||
| COS(X) | , X | |
| EXP(X) | , e=2.71828 | |
| FIX(X) | ||
| INT(X) | , | |
| LOG(X) | , X | |
| RND(X) | ||
| SGN(X) | , : +1 X>0, 0 X=0, -1 X<0 | |
| SIN(X) | , X | |
| SQR(X) | X, X | |
| TAN() | , X |
. : 
: z=SQR(ABS((x^2+6)/SIN(x)))
4.
a.
If Then , Select Case.
IF. .
IF , ( ELSE). :
IF < > THEN < 1 > [ELSE < 2 > ]
< 3 >
IF . :
( );
(.. ), 1, 3;
(.. ), 2, 3.
IF :
( );
(.. ), 1, 3;
(.. ), 3.
b.
IF , .
, . , :
| = | = | |
| ≠ | < > | |
| > | > | |
| ≥ | >= | |
| < | < | |
| ≤ | <= |
:
|
|
|
| x | y | ||
| -7 | x>0 x>0 y=x y=x x+y<100 x+y<100 | (TRUE) (FALSE) (FALSE) (TRUE) (FALSE) (TRUE) |
, ( ), .
, . , , (TRUE FALSE ) .
, , , .
( ):
| NOT | |
| AND | ( ) |
| OR | ( ) |
| XOR |
| X | Y | ||
| NOT x | (FALSE) (TRUE) | (TRUE) (FALSE) | |
| x AND y | (FALSE) (FALSE) (TRUE) (TRUE) | (FALSE) (TRUE) (FALSE) (TRUE) | (FALSE) (FALSE) (FALSE) (TRUE) |
| x OR y | (FALSE) (FALSE) (TRUE) (TRUE) | (FALSE) (TRUE) (FALSE) (TRUE) | (FALSE) (TRUE) (TRUE) (TRUE) |
| x XOR y | (FALSE) (FALSE) (TRUE) (TRUE) | (FALSE) (TRUE) (FALSE) (TRUE) | (FALSE) (TRUE) (TRUE) (FALSE) |
:
| x | y | ||
| -1 | -5 | x>0 AND y>0 | FALSE TRUE FALSE |
| -5 | x>=y OR x<=0 | TRUE TRUE FALSE | |
| x>0 AND x<=25 | FALSE TRUE FALSE |
IF ( ) (.. ), END IF:
If<> Then
< 1>
< 2>
...
Else
< n>
End If
IF : . IF IF. IF:
If : Else If, Else.
. , , .
IF pol = THEN
IF wozrast >= 60 THEN
Text1.Text =
ELSE
Text1.Text = 60
END IF
END IF
, :
|
|
|
IF < 1> THEN
< 1>
