Page 132 - 4192

A25(i) = Val(InputBox("Введіть " + Str(i) + " елемент
масиву ", i))
Picture1.Print A25(i); " ";
Next i
s = 0
For i = 1 To 12
s = s + A25(i)
Next i
Text1 = s
End Sub

Private Sub Command2_Click()
End
End Sub

Приклад: Задано масив A25(12). Обчислити суму
від’ємних елементів масиву.

Рисунок 8.9 – Розроблений інтерфейс та
результат виконання програми

131