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
Debug.Print "Кредитові сальдо масиву S="
For i% = 1 To m%
If S(i%) < 0 Then
Debug.Print S(i%); " ";
End If
Next i%
Debug.Print
End Sub