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

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

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

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

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

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

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