Question

Дан одномеерный массив,состоящий из n элементов,вычислить колличество,сумму и произведение элементов меньших пяти.vba,visual Basic

Answer 1

Выделите на листе строку, колонку или прямоугольную область ячеек с данными и запустите следующую программу:

Sub aaa()
    k = 0: s = 0: p = 1
    For Each c In Selection
        cv = c.Value
        If IsNumeric(cv) Then
            If cv < 5 Then
                k = k + 1: s = s + cv: p = p * cv
            End If
        End If
    Next c
    MsgBox "Количество=" + CStr(k) + ", сумма=" + CStr(s) + ", произведение=" + CStr(p), vbInformation
End Sub

Answer 2

Для вычисления количества, суммы и произведения элементов, которые меньше пяти в одномерном массиве, состоящем из n элементов, можно использовать язык программирования VBA (Visual Basic for Applications) в среде Microsoft Excel.

Вот пример кода на VBA, который решает данную задачу:

Sub CalculateArray()
    Dim arr() As Variant
    Dim n As Integer
    Dim count As Integer
    Dim sum As Integer
    Dim product As Integer
    
    ' Задайте значения массива arr и n
    arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
    n = UBound(arr) + 1
    
    ' Инициализируйте переменные
    count = 0
    sum = 0
    product = 1
    
    ' Проходите по элементам массива и выполняйте необходимые вычисления
    For i = 0 To n - 1
        If arr(i) < 5 Then
            count = count + 1
            sum = sum + arr(i)
            product = product * arr(i)
        End If
    Next i
    
    ' Выводите результаты
    MsgBox "Количество элементов меньше пяти: " & count & vbCrLf & _
           "Сумма элементов меньше пяти: " & sum & vbCrLf & _
           "Произведение элементов меньше пяти: " & product
End Sub

В этом коде мы объявляем массив `arr`, переменные `n`, `count`, `sum` и `product`. Затем мы инициализируем переменные и проходим по элементам массива с помощью цикла `For`. Если элемент меньше пяти, мы увеличиваем счетчик `count`, добавляем элемент к сумме `sum` и умножаем его на произведение `product`. Наконец, мы выводим результаты с помощью `MsgBox`.

Примечание: В приведенном примере массив `arr` и его значения заданы в коде. Вы можете изменить значения массива и его размер, чтобы соответствовать вашим требованиям.

Надеюсь, это поможет вам решить вашу задачу! Если у вас возникнут дополнительные вопросы, пожалуйста, дайте мне знать.