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

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

放着好好的函数不用， 全部显示 FACT 请参阅 返回数的阶乘，一个数的阶乘等于 1*2*3*...* 该数。 语法 FACT(number) Number 要计算其阶乘的非负数。如果输入的 Number 不是整数，则截尾取整。 示例 如果您将示例复制到空白工作表中，可能会更易于理解该示例。 操作方法 创建空白工作簿或工作表。 请在“帮助”主题中选取示例。不要选取行或列标题。 从帮助中选取示例。 按 Ctrl+C。 在工作表中，选中单元格 A1，再按 Ctrl+V。 若要在查看结果和查看返回结果的公式之间切换，请按 Ctrl+`（重音符），或在“工具”菜单上，指向“公式审核”，再单击“公式审核模式”。 1 2 3 4 5 6 A B 公式 说明（结果） =FACT(5) 5 的阶乘,即 1*2*3*4*5 的值 (120) =FACT(1.9) 1.9 截尾取整后的阶乘 (1) =FACT(0) 0 的阶乘 (1) =FACT(-1) 负数导致错误值 (#NUM!) =FACT(1) 1 的阶乘 (1)

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