EXCEL VBA 用宏编程的问题 急!!!!!!!!!!!!!!!!!!

一定要vba吗?
工作表函数fact就是计算阶乘的.

Sub 阶乘()
Dim x As Integer
x = InputBox("请输入要计算的数字:")
MsgBox x & "的阶乘为:" & Application.WorksheetFunction.Fact(x)
End Sub

或者不用该函数,循环语句也可以.效率相对就低了很多
Sub 阶乘1()
Dim x As Integer
x = InputBox("请输入要计算的数字:")
y = 1
For i = 1 To x
y = i * y
Next i
MsgBox x & "的阶乘为:" & y
End Sub

Sub aaa()
Dim i As Integer
i = 1
k = InputBox("请输入数字K")
For x = 1 To k
i = i * x
Next
MsgBox i
End Sub

放着好好的函数不用，
全部显示

FACT

请参阅

返回数的阶乘，一个数的阶乘等于 1*2*3*...* 该数。

语法

FACT(number)

Number 要计算其阶乘的非负数。如果输入的 Number 不是整数，则截尾取整。

示例

如果您将示例复制到空白工作表中，可能会更易于理解该示例。

操作方法

创建空白工作簿或工作表。
请在“帮助”主题中选取示例。不要选取行或列标题。

从帮助中选取示例。

按 Ctrl+C。 <