.


:




:

































 

 

 

 


14. .




- , .

(Label) :

Caption , .

AutoSise .

Aligment .

BorderStyle .

WordWarp - .

, .

(Text Box) :

MaxLength

MultiLine

ScrollBars .

Index .

(Command button) :

Name -

Caption -

Font -

Style .

(click)

 

15. .

 

  1. .
  2. .
  3. .

 

16. .

 

  1. .
  2. .

 

17. .

 

1) InputBox ()-

= InputBox ( )

X pas, y pas .( , )

, . ..

-., . . . .

2) ..

= Val(Text1.Text)

= Text

 

18. .

1)MsgBox- . . , ,

2) MsgBox - , . , . = MsgBox(,,)

3)Format- .- Format(, ) #;0

4)Print-

Tab-.

Spc-

Chr(10)-

Print =_& & Chr(10)& y=_ &y

5) .

Text3text=Sbr( )

Text3=

 

19. .

 

.

-, . .. ( ) .

- , , , . .

: 3,14 " .."() pi, betta1, b_2 (.)

., . ., .

. . ., .. .

Integer (2), Long (4) - , Single (4) - ., Double (8)- .,

Currency (8) - , String (10+ .) - . -, Byte (1) - 0-255, Boolean (2) . - True False, Date (8),Variant -

Long, Byte, Integer - .-

:

Const g As Double = 9.8

- .=

-: sin(x), cos(x), tan(x), atn(x), abs(x), sqr(x), log(x), exp(x), sgn(x), int(x)

= *180/3.14

- 2 1. :"&", "+"

Left,right(,)

mid(, [,])

val -

str -

chr(10) - . .. .

 

20. Visual Basic, . .

If then

[ 1]

/Else

[ 2]

End if

IIF( , 1, 2)

y=IIF(>0,1,0)

>0, y=1 y=0

 

21. If .

 

If (1) Then

[ 1 ]

Else If ( 2) Then

[ 2 ]

[Else

[ 3 ]]

End If

 

 





:


: 2016-11-12; !; : 587 |


:

:

- , 20 40 . - .
==> ...

1796 - | 1758 -


© 2015-2024 lektsii.org - -

: 0.013 .