Прогромирование вба циклы Дано вещественное число A и целое число N (N > 0). Найти A
степени N:
N = A·A·…·A (числа A перемножаются N раз)

Предыдущий
вопрос Следующий
вопрос

Для реализации данной задачи в VBA можно использовать следующий код:

Sub Power(
Dim A As Doubl
Dim N As Intege
Dim result As Doubl
Dim i As Intege
A = InputBox("Введите вещественное число A:"
N = InputBox("Введите целое число N:"
result =
For i = 1 To
result = result *
Next
MsgBox A & " в степени " & N & " равно " & resul
End Sub

При запуске данной макрос-процедуры пользователю будет предложено ввести вещественное число A и целое число N. Затем будет произведено возведение числа A в степень N и результат будет выведен в окне сообщения.

Пример работы программы:

Введите вещественное число A: 2.
Введите целое число N:
2.5 в степени 3 равно 15.625