Разработка проекта

Разработка визуальной части

3.2 Разработка кода приложения

Private Sub Command1_Click()

Dim A() As Integer, m As Integer

m = InputBox("m")

ReDim A(1 To m)

b = 1

For j = 1 To m

A(j) = InputBox("A(j)")

If A(j) < 0 Then

b = b * A(j)

End If

Next

If b = 1 Then

Print; "Отрицательных элементов нет"

Else

Print b

End If

End Sub

Конечный результат