Visual Basic.
Integer () | 2 | % |
Long ( ) | 4 | & |
Byte () | 1 | |
Boolean () | 2 | |
Single | 4 | ! |
Double | 8 | # |
String | 1 | $ |
Object | 4 | |
Variant- | ||
Variant ( ) | 16 | |
Variant ( ) | 22 + | |
Currency | 8 | @ |
Date | 8 | |
19 VB( )
VB .
- .
1.
2.
3.
- , . .
If
Then
Else
-
For ( )
Next
- . :
And = ""
Or Xor = ""
20 VB( )
( ) GOTO , . . , , .
GOTO. , , , . , ( ), 0. , , 1. , . , GOTO . , , .
, , GOTO . , Visual Basic : FOR... NEXT, FOR EACH... NEXT, DO... LOOP WHILE... WEND. , GOTO. .
|
|
FOR... NEXT . .
FOR = [STEP ]
[]
[EXIT FOR]
[]
NEXT []
:
; , ; Boolean .
; , .
; , STEP; , , 1 ; , ; 0 ( ); , 1.
, ; ( );
EXIT FOR ; , FOR... NEXT ( ); EXIT FOR (, , ); .
NEXT . NEXT , , ( FOR). , . , .
FOR... NEXT.
1.
11 , -5 5. MsgBox . , .
2.
( ). 2.
3.
. ( J) I J. I 1, J I . .
|
|
21 22
, . , , .
( - ). : " ". , . A(5,9)
. Dim, Static, Public Private. 1:
- ;
- , .
, , Visual Basic 2005, , , . .
Dim a() As Integer
a Integer, . . ReDim.
Dim b(10) As Single
b Single, 11 0 10. ( ULong).
, . ReDim.
Visual Basic 2005 . , . n . , .
n -= 1
a(), ReDim .
ReDim a(n)
. 0 n. , . i- i.
For i = 0 To n
InputBox i- . , Val.
a(i) = Val(InputBox(" " + Str(i) + _"- "))
. . , . , . .
. .
Dim summa, proiz As Integer
.
summa = 0
proiz = 1
|
|
. 0 n. , . i- i.
For i = 0 To n
.
summa += a(i)
.
proiz *= a(i)
Next
.