Page 133 - 4192

Програмний код:
Private Sub Command1_Click()
Dim A25(1 To 12) As Single
Dim S As Single
Dim i As Integer
For i = 1 To 12
A25(i) = Val(InputBox("Введіть "
+ Str(i) + " елемент масиву ", i))
Picture1.Print A25(i); " ";
Next i
s = 0
For i = 1 To 12
If A25(i) < 0 Then
s = s + A25(i)
End If
Next i
Text1 = s
End Sub
Private Sub Command2_Click()
End
End Sub

Рисунок 8.10 – Пошук

суми від’ємних
елементів масиву

132