Написать в VBA через подпрограмму: Написать программу вычисления суммы факториалов всех нечетных чисел от 1 до 9.

Вопрос от пользователя
Фросюшка

Написать в VBA через подпрограмму:

Написать программу вычисления суммы факториалов всех нечетных чисел от 1 до 9.

Ответ
Иона

Это основной код макроса с циклом перебора всех нечетных чисел

Sub SummFactorial ()

Dim summ As Long

Dim i As Byte

For i = 1 To 9 Step 2

summ = summ + Fact (i)

Next i

MsgBox (summ)

End Sub

а эта функция вызывает сама себя (рекурсия) для расчета факториала

Function Fact (s As Byte) As Long

If s < = 1 Then Fact = 1 Else Fact = s * Fact (s — 1) End If End Function и уточните, если нужно, что должно быть в подпрограмме — весь код или только расчет факториала

Предыдущая
Вопрос-ответв каком слове нет уменьшительного суффикса Яблочко сливка персик абрикосик бананчик
Следующая
Вопрос-ответСловосочетания со словами желать жёлтый животное завод завтрак заря заяц здравствуй земляника извините интересный капуста карандаш картина картофель квартира килограмм класс, коллектив, коллекция, комната, компьютер, коньки, корова, красная площадь,
Помогли? Поставьте оценку, пожалуйста.
Плохо
0
Хорошо
0
Супер
0
Спринт-Олимпик.ру
Мы в ВК, подпишись на нас!

Подпишись на нашу группу в ВКонтакте, чтобы быть в курсе выхода нового материала...

Вступить