利用sub程序计算阶乘，那里错误？求指正！

对上面一个程序加下注解 Private Sub Command1_Click() 'Command1的单击事件所以要在窗体上加command1按钮一个 Dim a As Long, b As Long, c As Long, s As Long '定义变量a,b,c,s a = Val(InputBox("请输入一个正整数：")) 'd出对话框输入每一个数，并用VAl函数转化成数字类型芹茄 b = Val(InputBox("请输入一个正整数：")) 'd出对话框输入每二个数，并用VAl函数转化成数字类型 c = Val(InputBox("请输入一个正整数：")) 'd出对话框输入每三个数，并用VAl函数转化成数字类型 jiecheng a '引用过程jiecheng并带入a jiecheng b '引用过程jiecheng并带入b jiecheng c '引用过程jiecheng并带入c s = a + b + c '将a + b + c的值赋给s msgbox s 'd出对话框，并把S值写在上面 End Sub 'Command1的单击事件完 Public Sub jiecheng(ByRef n As Long) '自定义过程jiecheng Dim i As Long, lin As Long '定义变量i,lin If n <>0 Then '如果n不等于零 lin = 1 'lin＝1 Else '那么 n = 0 'n＝0 Exit Sub '卖首纳退出判中没断 End If 'if 语句完 For i = 1 To n '循环语句，表示i从1循环到n lin = lin * i 'lin乘i Next i '循环结束 n = lin 'n=lin End Sub '自定义过程jiecheng完

Public Sub t()

a=2:b=3:c=4

阶乘 p, a :S=p

阶乘 p, b :S=S+p

阶乘 p, c :S=S+p

Print S

End Sub

Public Sub 阶乘(ByRef P, ByVal N)

'注圆逗意要返回值族腔坦的兆桐 用 ByRef

P= 1

For i = 1 To N

P= P * i

Next

End Sub

---