Написать программу в ВБА найти сумму и произведение отрицательных чисел выведенных с клавиатуры.Всего ввести н различных чисел

Для написания программы на языке VBA (Visual Basic for Applications) для поиска суммы и произведения отрицательных чисел, введенных с клавиатуры, вам потребуется следующий код:

Sub Поиск_Суммы_и_Произведения()
    Dim i As Integer
    Dim число As Double
    Dim сумма_отрицательных As Double
    Dim произведение_отрицательных As Double
    
    сумма_отрицательных = 0
    произведение_отрицательных = 1
    
    n = InputBox("Введите количество различных чисел:")
    
    For i = 1 To n
        число = InputBox("Введите число:")
        
        If число < 0 Then
            сумма_отрицательных = сумма_отрицательных + число
            произведение_отрицательных = произведение_отрицательных * число
        End If
    Next i
    
    MsgBox "Сумма отрицательных чисел: " & сумма_отрицательных & vbCrLf & "Произведение отрицательных чисел: " & произведение_отрицательных
End Sub

Этот код запрашивает у пользователя количество различных чисел, затем позволяет вводить числа с клавиатуры. Программа находит сумму и произведение только отрицательных чисел, введенных пользователем.