Private Sub Command1_Click()
Const m% = 10
Dim S(1 To m%) As Single
Debug.Print "Масив S"
For i% = 1 To m%
Title$ = "Введіть значення елементів масиву S"
Prt$ = "елемент S(" & i% & ")"
S(i%) = Val(InputBox(Prt$, Title$))
Debug.Print S(i%); " ":
Next i%
Debug.Print
Kil% = 0
For i% = 1 To m%
If S(i%) < 0 Then
Kil% = Kil% + 1
End If
Next i%
Debug.Print "Кількість кредитових сальдо="; Format(Kil%, "###")
End Sub