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
Sum = 0
For i% = 1 To m%
If S(i%) > 0 Then
Sum = Sum + S(i%)
End If
Next i%
Debug.Print "Сума дебетових сальдо="; Format(Sum, "###.000")
Debug.Print
End Sub