< 2>
ELSE
< 3>
END IF
ELSEIF END IF.
c.
IF . . IF , .
. , .
:
SELECT CASE <>
CASE < 1>
< 1>
CASE < 2>
< 2>
...
[ CASE ELSE
< n>]
END SELECT
:
-;
1;
1 , END SELECT;
1, 2 ..;
, , CASE ELSE , END SELECT, CASE ELSE .
, . , . , x>0, x>10, ( ).
- .
, , : :
- ;
- :
<. > TO <. >
- :
IS < > <>
:
SELECT CASE x
CASE 1, 3, 5
y=x^2
CASE 6 TO 10, 20
y=x+2
CASE 25, IS >= 30
y=2*x
CASE ELSE
y=2*x+1
END SELECT
5.
a. FOR
FOR.
:
FOR < > =< . > TO <. > [ STEP <>]
< 1>
...
< n>
NEXT [< >]
< > . , < . >;
|
|
< 1>... < n> , ;
<> , .
, . 0, < ] <. >. 0, < ] <. >. 1, .
, NEXT, EXIT FOR.
b.
1. , .
DO WHILE <>
< 1>
...
< n>
LOOP
2. , .
DO UNTIL <>
< 1>
...
< n>
LOOP
, LOOP, EXIT DO.
c.
1. , .
DO
< 1>
...
< n>
LOOP UNTIL <>
2. , .
DO
< 1>
...
< n>
LOOP WHILE <>
6.
Visual Basic . . .
.
, , .
.
, . : , () .
.
. .
, : , , .. .
, (), . : , .
( ) a(1), a(4,2), , , ( ) a(i), a(i, j+2).
(), .. , , .
|
|
, , .
:
[Public/Private] DIM <> ( <> ) AS <>
, : I TO I.
:
DIM s1 (15), s2 (15) AS STRING
DIM c (9,11) AS INTEGER
0. :
DIM a(15) AS INTEGER
, : a(0), a(1), a(2), a(3), , a(15).
, 0, 1:
OPTION BASE 1
DIM a(15) AS INTEGER
a(1), a(2),,a(15).
. ( ).
ReDim. :
Dim s () As String
...
n = 15
ReDim s (n)
...
7.
, .
().
:
;
;
.
- , , , :
Private Sub < _()>
< >
End Sub
, ,
.
, Click () CommandButton1 () :
Private Sub CommandButton1_Click()
< >
End Sub
. , , . :
Sub < ()>
< >
End Sub
- . :
[Private/Public] Sub < [()]>
< ( )>
End Sub
< > , .