- , .
(Label) :
Caption , .
AutoSise .
Aligment .
BorderStyle .
WordWarp - .
, .
(Text Box) :
MaxLength
MultiLine
ScrollBars .
Index .
(Command button) :
Name -
Caption -
Font -
Style .
(click)
15. .
- .
- .
- .
16. .
- .
- .
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