Войтюшенко Н.М., Остапець А.І. Інформатика і комп’ютерна техніка
Подождите немного. Документ загружается.
391
"! 8.7. – $ – « -
»
/
'
-
1 2 3 4
1 @ '!
Caption 23
Name Linq
Max 100
Min 0
Value 0
SmallChange 1
2
* #!
! #
,
( HScrollBar)
LargeChange 10
3 * ! -
#
( Frame)
Caption 2%
Name F1
Caption 1
4
* # !
1
( OptionButton)
Value True
Name F2
Caption 2
5
* # !
2
( OptionButton)
Value False
Name F3
Caption 3
6
* # !
3
( OptionButton)
Value False
7 * !
y = x / 6
( OLE)
Name OLE1
Name OLE2
8 <# .7 %
Name OLE3
Name Label1
9 * ! -
! #! -
, ( Label)
Caption ,
Name x
10 * ! !
#! ,
( Text)
Text
Name Label2
11 * ! -
! -
y
( Label)
Caption ' y
392
$B! 8.7.
1 2 3 4
Name y
12 * ! !
#!
( Text)
Text
Name ',
13 * !
! -
( CommandButton)
Caption ',
Name Y
14 * !
#A! , y
( CommandButton)
Caption Y
Name ,
15 * !
( CommandButton)
Caption ,
2. * .
1). $ ! % -
#!
Code.
@! ': Line Change , -
, !A B ! ! – A! -
:
Private Sub LineX_Change()
x.Text = LineX.Value
End Sub
2). @! ': Line Scroll -
, # A! :
Private Sub LineX_Scroll()
LineX_Change
End Sub
3). ': ',, – -
Click. ' , -
% «',»:
393
Private Sub ',_Click()
If F1.Value = True Then
y.Text = Val(x.Text) / 6
ElseIf F2.Value = True Then
y.Text = Val(x.Text) * 5
Else
y.Text = Val(x.Text) / 4
End If
End Sub
4). ': Y, – -
Click. ' , -
% «Y»:
Private Sub Y_Click()
x.Text = " "
y.Text = " "
End Sub
5). ': ,, –
Click. ' ,
% «,»
Private Sub ,_Click()
End
End Sub
+ 8.7 ! !
, !A B «8/K»,
(
. J! «#»
: «8» ( Value – 1 Checked), – «K»
( Value – 0 Unchecked).
$ 8.8 –
* -
#! #!: – -
( (10 ), (50 ), ; !-
; # ! -
#!, B . $
# A!#
394
( – 10 ., – 20 ., – 15
).
!
. $
, ! -
A!#
; ! , ! -
# . + ! ! -
. $ A!#
, % . $ -
B . H
8.14, –
8.8. \ -
#: .
8.14 – H ! 8.8 – “& #!”
"! 8.8. – $ ! %! 8.8 – «&-
#!»
/
1
2 3
1 *! -
-
!
@ # (
8.14). : _, -
_%, 5,
395
$B! 8.8.
1 2 3
-
^*.
# -
#! ! _ – -
Enabled – False.
– Min, Full, M_F,
: '! Check1 (-
Value – 1 Checked).
2 !
+ ': Code
General, – Declaration, -
:
Const &_, = 10,00 ( 10#)
Const &_ = 20,00 (#)
Const &_ = 15,00 ------ “ -----
Const ^ = 45,00 ------ “ -----
3 $:! #-
! _
B
+ ': Code Form,
– Load (B),
:
Private Sub Form_Load()
_.Text = ^
End Sub
4 & !
-
_%
+ ! ! -
_% KeyPress, -
:
Sub _%_KeyPress (keyAscii As
Integer)
‘& !
Select Case keyAscii
Case 0, 8, 13, 45, 46, 48 To 57
Case Else
KeyAscii = 0
MsgBox “&! ^ -
%”
End Select
End Sub
5 & !
5-
+ ! ! 5
! KeyPress, :
Sub 5_KeyPress (keyAscii As
Integer)
Select Case keyAscii
396
$B! 8.8.
1 2 3
Case 0, 8, 13, 45, 46, 48 To 57
Case Else
KeyAscii = 0
MsgBox “&! ^_ ,$
= %”
End Select
End Sub
6 !
,
+ ': ! Click -
:
Private Sub , _Click()
End
End Sub
7 !
Y
+ ': Y (
Name : '! Y) ! Click
:
Private Sub Y _Click()
_% = “ “
5 = ” “
^* = “ “
End Sub
8 $! #
!
«-
$»
+ ': Min, Click. Private
Sub Min_Click()
MsgBox "Y " +_
Str(&_,)
End Sub
9 $! #
!
«$»
+ ': Full, ! Click.
Private Sub Full_Click()
MsgBox "Y " +_
Str(&_)
End Sub
10 $! #
!
«-
$»
+ ': M_F, ! Click.
Private Sub M_F_Click()
MsgBox "Y " +_
Str(&_)
End Sub
11 !
',
+ ': ', !
Click :
Private Sub ', _Click()
If Check1.Value = 1 And _%.Text
397
$B! 8.8.
1 2 3
= "" Then MsgBox "^ %":_
GoTo M1 (
If Check1.Value = 1 And 5.Text= ""
Then MsgBox "^ ,$_ =
%": GoTo M1
If Check1.Value = 1 Then ^*.Text =_
Val(_.Text) + _
Val(_%.Text) *_
Val(5.Text) Else ^*.Text = _
Val(_.Text)
M1: End Sub
12
'! «5 -
»
( File o Save Project o
'! .
13 J -
( Run o Start.
14 JB -
-
.
( File o Save Project o
'! 5 o 5
$ – & ! ! -
! - . $ !
#! , % %! B .
& $*
1. B ?
2. \ B :! , A B!?
3. \ #:! B ,
?
4. \ ! B , !
?
5. _ !:! If … Then … Else ?
6. #: If …?
7. @! # ! , ! -
# #!?
8. $#! , .
9. \ $& ! ?
10. @! # ! ?
11. * Visual-Basic:
398
) : !A % 150 -
, !. % 150 , % 350
:! 10% , % 350 – 15% .
0 Z <= 150,
J = 0,1 * Z 150 < Z <= 350,
0.15 * Z >350.
) a * c + 8.5 * x x > 7,
y = a * c x = 7,
(a * c – b) / 5 * x x < 7.
) 5 * + 5 – 4 * x a = 1,
y = 0.5 * e
x
– (x – 1)
2
a = 2,
625 % .
) * ! -
: #!, !A ! !:
&" % ;* %
1. OA
%
3,20
1. & – 3,12
2. 2,85 2. & 5,07
3. * !# -
%
2,50
3. B 2,08
4. 2,70
\
5. *! 2,45 1. &! 0,50
2. & % 0,46
3. &% # 0,39
K3
1. _ 0,50 1. * . 0,25
2. & 0,60 2. * 0,30
3. & . 0,70 3. * 0,56
B , # , # –
# .
8.7 & ,
\ ! 7.3.3, # B -
– 2, $, , -
. @! ! ! .
399
8.7.1 !2 , , 2
!2 – , ! !
# , ! :! -
:
For = # #! To #! [Step...]
[Exit For]
Next [ [,]...]
-
# #!,
, !A ,
Next, #!
% #! (Step) , !A #, –
1, :! -
. \A #, #: ! , A
! Next. Exit For – :! -
.
$ 8.9 –
J #! y = n! (-
- 7.4 7.4, – ! 8.9 ,
8.15)
8.15 – ! 8.9 – “)”
400
"! 8.9. – ' 8.9 – «)»
/
1 2 3
1 *!
! -
@ # (-
8.15). n y,
! ! ! – Mes,
– Y ,
2 !
+ ': , !
, Click
:
Private Sub ,_Click()
End
End Sub
3 !
Y
+ ’: Y !
Click :
Private Sub Y_Click()
n.Text = “ ”
y.Text = “ ”
Mes.caption = “ ”
End Sub
4 & !
n
+ ! ! n
KeyPress, :
Sub n_KeyPress (KeyAscii As Integer)
Dim i As Integer ‘%!
!
y = 1 ‘# #!
‘& !
Select Case KeyAscii
Case 0, 8, 46, 48 To 57
Case 13
For i = 1 To Val(n.Text)
y.Text = Val(y.Text) * i
Next i
Case Else
Mes.Caption = “^ _
“
End Select
End Sub
5 ’!
«»
( File o Save Project o -
’! .