作者：乔山办公网日期：
返回目录：excel表格制作
不需要用知fact函数，用 fact函数这题就没有意义：
Sub xxx()
For i = 1 To 5 '变量道 i从1到5
s = 1 '初始值1,从1开始乘
For j = 1 To i '变量 j 从1 到 i (i分别=1,2,3,4,5)
s = s * j '阶乘回结果 1*....*i (1*1,1*2,1*2*3
Next
jc = jc + s '阶乘结果 相加赋值给答jc
Next
MsgBox jc 'jc报数
End Sub
我刚才也写了一个，你下载解压出来（共2个文件）。
然后打开VBA编辑器，在工程资源管理窗口内点鼠标右键，
再点“导入文件……”，把UserForm1导入你要实现查找功能的那个文档中。
运行就行了。
右击excel的sheet也名称，点击查看抄代码，这时就打开了一个袭VBA窗口。
VBA都是由 Sub 宏名() 开始，End Sub 结束。
推荐你一本书《别怕，Excel VBA其实很简单百》，简单通俗，适合初学者。这个在百度上都能搜得到电子版的度。
三元一点是什么？具体的算法