Глупая задача…
Дан динамический массив А(n), заполненный случайными числами с помощью генератора случайных чисел (элементы массива вывести в ячейки рабочего листа). Найти сумму и количество элементов массива, остаток от деления которых на 2 равен 3. Полученные значения вывести в одно окно сообщения.
Ни одно число не будет подходить под условие задачи, но решение есть.
Public Sub sum1()
Dim i As Integer
Dim sum As Integer
Dim count As Integer
sum = 0
count = 0
n = InputBox("n=") ' Просим ввести n - размерность массива.
ReDim arr(n)
Cells.Value = ""
Cells.Interior.ColorIndex = -4142
For i = 1 To n
arr(i) = Int((0 - 100 + 1) * Rnd + 100)
If (arr(i) Mod 2 = 0) Then
sum = sum + arr(i)
count = count + 1
Cells(1, i).Interior.Color = vbGreen
End If
Cells(1, i).Value = arr(i) ' Печать в ячейку
Next i
MsgBox ("Сумма = " + CStr(sum) + " Количество = " + CStr(count))
End Sub