Войтюшенко Н.М., Остапець А.І. Інформатика і комп’ютерна техніка
Подождите немного. Документ загружается.
381
$B! 8.4.
1 2 3
2 $!
&!
Caption :
= 200 + * !.
( 8.9)
3 $A! -
& ', (
’:) ! % B-
, # ,.
4 *! ! -
! -
!
&
, A -
!, ! -
!
5 ! -
! ! -
!
+ Properties Name Label4
Mes, Caption #
6 @! -
-
! -
$ !
KeyPress. ’!!:! :
Sub a_KeyPress (KeyAscii As Integer)
End Sub
'% # KeyAscii
B ! !! -
%.
@
! #:
Private Sub a_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 0, 8, 13, 45, 46, 48 To 57
‘0, 8 – Delete, Backspace, 13 – Enter,
’45 – «-», 46 – «.», 48 – 57 –
’ 0 9
Case Else
KeyAscii = 0
Mes.Caption = “& !_
^ ”
End Select
End Sub
$ – & ! -
-
44, – 46.
382
$B! 8.4.
1 2 3
7 @! -
-
! -
@! ! -
# !? !
Select case End select :
$ Edito Copy;
, -
KeyPress,
-
Edit o Paste.
8 @! -
!
-
Private Sub Line_Change()
a.Text = Line
Mes.Caption = "^ 3 _
-1000 : 1000"
End Sub
9 @! -
!
-
Private Sub Line_Change()
.Text = Ln
Mes.Caption = "^ 3 _
-500 : 500"
End Sub
10 @! -
-
Y
1) J
!
(CommandButton) -
! !
.
2) < ! %
Properties; , A
:, CommandButton1;
Caption,
CommandButton1 Y; -
Name
CommandButton1 Och.
11 ! -
! -
Y
$ ! Y
Code, -
#A!
! ! ': Och l:
a.Text = “ “
c.Text = “ “
y.Text = “ “
mes.ption = “ “
12 $ -
$ Run o Start;
# ,
.
13 B! -
$ File o Save Project o
'! «y = 200 + a*c -
».
383
$ – \A ! -
, ! ! -
– 44.
$ , ! -
! .exe – .
@! % # # -
%! B.
$ 8.5
– -
B . ) 8.10.
* , , >= 0
=
+ , , < 0
' 8.5 «$ B!» -
8.5, %! – 7.2.
8.9 – H – « = 200 + * -
!»
8.10 – H 8.5 – «$ B!»
384
"! 8.5. – ' 8.5 – «$ -
B!»
/
1
2 3
1 *! -
!
-
@ # .
Name -
Y – Och.
% -
– Text1, Text2, Text3.
2 ! # -
! -
!
! -
Text1, Click,
:
Sub Text1_Click ()
'$ Text1 -
! !
Mes.Caption = «^ 3 a»
End Sub
3 & !
!
+ ! ! Text1 KeyPress,
:
Sub Text1_KeyPress (keyAscii As Integer)
‘& !
Select Case keyAscii
Case 0, 8, 13, 45, 46, 48 To 57
Case Else
keyAscii = 0
Mes.Caption= «^ !»
End Select
End Sub
4 ! # -
! -
! ,
+ , A :,
': Text2,
Click, :
Sub Text2_Click ()
‘$ Text2
‘! !
Mes.Caption = «^ 3 x»
End Sub
5 & !
!
,
+ Text1 KeyPress
! Select case End select -
:
Edito Copy;
Text2,
KeyPress,
385
$B! 8.5.
1 2 3
: Edit o
Paste.
6 ! -
,
': Vixod ! Click -
:
Private Sub V,d_Click()
End
End Sub
7 !
Y
': Och ( Name :
'! Och) ! Click :
Private Sub Och_Click()
Text1.Text = “ “
Text2.Text = “ “
Text3.Text = “ “
Mes.Caption = “ “
End Sub
8 !
',
': Rachet ! Click
:
Private Sub Rachet_Click()
Dim a, x As Single
a = Val(Text1.Text)
x = Val(Text2.Text)
If x >= 0 Then Text3.Text = a * x Else
Text3.Text = a + x
’– If
!
End Sub
9
'! «& *-
=»
$ File o Save Project o
!
B!.
10 J
$ Run o Start,
:
x % ! – = 2, , = 8,
= 16. $
Y – = 10,
, = 0, = 0
x $ #A! !
! – = 7, , = -2,
-
#! = 5. $ !
.
11 JB
-
.
$ File o Save Project
386
$ 8.6
– -
B :
x / a – x / b a <= 5 x > 6,
y = (a + b) / x a <= 5 x = 6,
a
3
+ b *
2,5
", ,.
!
. *#
(. 8.11).
! :! -
Word, # Image.
< %! ! 7 –
7.3.
$ 8.6 «* -
B!» 8.6.
8.11 – H ! 8.6 – “* B!”
"! 8.6. – ' 8.6 – «* -
B!».
/
1
2 3
1 *!
! -
@ # (-
8.11). -
% .
2 & ! -
Text1
+ ! ! Text1 -
KeyPress, :
Sub Text1_KeyPress (keyAscii As Integer)
387
$B! 8.6.
1 2 3
‘& !
Select Case keyAscii
Case 0, 8, 13, 45, 46, 48 To 57
Case Else
keyAscii = 0
Mes.Caption= «^ !»
End Select
End Sub
3 & ! -
Text2
+ Sub Text1_KeyPress
(keyAscii As Integer) -
o Edit o Copy
o ! ! Text2
KeyPress o Edit o
Paste.
4 & ! -
Text3
+ ! ! Text3
KeyPress o Edit o
Paste.
5 !
,
': Vixod ! Click
:
Private Sub V,d_Click()
End
End Sub
6 ! -
Y
': Och ( Name :
'! Och) ! Click :
Private Sub Och_Click()
Text1.Text = “ “
Text2.Text = “ “
Text3.Text = ” “
Text4.Text = “ “
Mes.Caption = “ “
End Sub
7 ! -
',
': Rachet ! Click -
:
Private Sub Rachet_Click()
Dim a,b,x As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
x = Val(Text3.Text)
If a <= 5 And x = 6 Then ’
Text4.Text = (a + b) / x ’
388
$B! 8.6.
1 2 3
ElseIf a <= 5 And x > 6 And a <> 0 And
_
b <> 0 Then ’
Text4.Text = x / a – x / b ’
Else ’
Text4.Text = a ^ 3 + b * exp(2.5) ’
End If
End Sub
8 '!
« *=-
»
$ File o Save Project
o
! B!.
9 J
( Run o Start,
:
x ! !
= 2, b = 5, , = 10, -
= 3.
x $ Y
% ! –
= 2, b = 10, , = 6;
= 2.
x $ #A! !
3-
–
x = 10, b = 4, , = 2 $ -
|
1048,73.
$ ! -
.
10 JB
.
$ File o Save Project.
8.6 (), ,
# % # «-
» – B . +, A -
– #. (B # %
# %! – B -
! #.
@! % ! # -
! # , ! (),
389
, , ! B -
:
- (#) (OptionButton)
– (Frame)
– (CheckBox)
& , # A Windows, # -
B ! % ! . {
B B Visual Basic MsgBox.
( :
MsgBox “ ”
+ ! B #
, ':# : (+ &). \A -
# # , -
Str (). J,
! MsgBox “& ! ^
”
'!! (. 8.12 ), -
! MsgBox “& $ “ & Str(P) – -
(. 8.12 ). ' – , ! ¢ -
! .
) )
8.12 – , MsgBox
% :!
, -! B
. @! : Value, A -
#: #! #!:
- . @!
#! Value True (0).
390
- . @! -
#! Value False (K).
<# #! Value, : -
(#) ! %!.
': -
, # B -
Frame. @:! -
A! # ! , ':! .
$ 8.7
– '# #! -
:
y = x / 6 , y = x * 5 y = x / 4 ! 0 < x <= 100
@! #.
#! , #!.
!:
1. * ( 8.13)
8.13 – ! 8.7 – “ ”
$ 8.7