End Sub. MsgBox Base & raised to the & Power & th power = & Result

Next

MsgBox Base & " raised to the " & Power & "th power = " & Result

Step – любое целое число - шаг приращения счетчика.

Пример 2: вычисление факториала числа;

факториал числа: n! = 1*2*3*…*n

0! = 1

n ≥ 0

' процедура вычисления факториала числа

Sub ForNextIfThenElse()

Dim NumberString As String

Dim Num As Integer

Dim Factorial As Double

Dim Count As Integer

NumberString = InputBox ("Enter Number: ", "Calculate Factorial")

If IsNumeric (NumberString) Then

Num = Val (NumberString)

If Num >= 0 Then

Factorial = 1

For Count = 1 To Num

Factorial = Factorial * Count

Дата добавления: 2014-01-07