End Sub

Результат выполнения программы:

Пример 6. Заполнить массив А нечетными членами натурального ряда (1, 3, 5...) до тех пор, пока их произведение не станет больше произвольного числа М. Найти сумму элементов массива и их число.

Sub primer_6()

Dim a() As Integer

Dim m As Long

m = InputBox ("Введите целое положительное число m>>1")

Dim p As Double, z As Integer, n As Integer, s As Integer

'определение размера массива

p = 1: z = 1: n = 0

Do While p <= m

p = p * z

z = z + 2 'рассчитываем значение следующего нечетного числа

n = n + 1 'счетчик количества чисел

Loop

ReDim a(n - 1)

'заполнение массива нечетными числами и вывод на печать

a(1) = 1: Cells (1, 1) = a(1)

For i = 2 To n - 1

a(i) = a(i - 1) + 2

Cells (1, i) = a(i)

Next i

'определяем сумму элементов и их произведение

s = 0: p = 1

For i = 1 To n - 1

s = s + a(i)

p = p * a(i)

Next i

Cells (2, 1) = "Сумма элементов = " & s

Cells (3, 1) = "Произведение элементов = " & p

Cells (4, 1) = "Количество элементов = " & n - 1