Page 115 - 4192
P. 115
Програмний код Програмний код з
з використанням використанням
While: Until:
Private Sub Private Sub
Co mmand1_Click() Command1_Click()
Dim k As Integer Dim k As Integer
Dim s As Single Dim s As Single
eps = Val(Text1) eps = Val(Text1)
k = 0 k = 0
s = 0 s = 0
Do Do
k = k + 1 k = k + 1
s = s + 1 / k s = s + 1 / k
Loop While 1 / k > eps Loop Until 1 / k <= eps
Text2 = s Text2 = s
Text3 = k Text3 = k
End Sub End Sub
Pri vate Sub Private Sub
Command2_Click() Command2_Click()
End End
End Sub End Sub
КОНТРОЛЬНІ ЗАПИТАННЯ
1. У яких випадках використовують розгалужені
алгоритми? Наведіть приклади.
2. Яке призначення має умовний оператор?
3. Порівняйте за призначенням лінійну та блочну форми
умовного оператора?
4. З якою метою можна застосовувати функцію
MsgBox?
114
