Цикл в Excel - VBA

Формулировка задачи:

Задание: c помощью excel реализовать быстрое возведение в степень x=a^n и подсчитать количество операций умножения. Вот алгоритм быстрого возведения в степень: readln(a); readln(n); x:=1; while n>0 do begin if n mod 2 = 1 then x:=x*a; a:=a*a; n:=n div 2 end; writeln(x);

Решение задачи: «Цикл в Excel»

textual
                            Листинг программы 
                        

                            Sub Exponentiation(ByVal a As Single, ByVal n As Long)
    Dim x As Single
    Dim iCount As Long
    x = 1
    While n > 0
        If n Mod 2 Then
            iCount = iCount + 1
            x = x * a
        End If
        a = a * a
        iCount = iCount + 1
        n = n \ 2
    Wend
    MsgBox "x = " & x & Chr(10) & "Количество умножений: " & iCount
End Sub
                        