vb求n阶乘表达式
PrivateSubCommand1_Click()
DimnAsInteger
n=InputBox("请输入一个正整数:")
PrintFac(n)
EndSub
PrivateFunctionFac(m)AsLong
'''请不要删除该行,只在下一行中填空'
Fork=2to
Fac=Fac*k
Nextk
EndFunction