Page 53 - 4450

Print Time
Wend
End Sub
Приклад: Роздрукувати всі тризначні числа сума яких
дорівнює 20.
Private Sub Command1_Click()
For i = 1 To 9
For j = 1 To 9
For k = 1 To 9
s = i + j + k
If s = 20 Then Print i; j; k
Next k
Next j
Next i
End Sub

Приклад: Знайти значення
інтегралу

Private Sub Command1_Click()
h = (1 - 0) / 20
For x = 0 To 1 Step h
s = s + Exp(x)
Next x
Label2.Caption = Str(s * h)
End Sub Рисунок 6.1 –
Інтерфейс виконання
прикладу

Контрольні запитання

1. Які типи циклів ви знаєте?
2. Що таке вкладені цикли?

Завдання для самостійного розв’язку.

1. Знайти суму чисел від 1 до 10.
2. Знайти добуток чисел від 1 до 10.

51