.


:




:

































 

 

 

 





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

.





:


: 2016-04-03; !; : 1166 |


:

:

.
==> ...

1745 - | 1595 -


© 2015-2024 lektsii.org - -

: 0.015 .