问题标题：
vb求n阶乘表达式PrivateSubCommand1_Click()DimnAsIntegern=InputBox("请输入一个正整数：")PrintFac(n)EndSubPrivateFunctionFac(m)AsLong'''请不要删除该行,只在下一行中填空'Fork=2toFac=Fac
问题描述：
vb求n阶乘表达式
PrivateSubCommand1_Click()
DimnAsInteger
n=InputBox("请输入一个正整数：")
PrintFac(n)
EndSub
PrivateFunctionFac(m)AsLong
'''请不要删除该行,只在下一行中填空'
Fork=2to
Fac=Fac*k
Nextk
EndFunction
曹文彬回答：
PrivateSubCommand1_Click()
DimnAsInteger
n=InputBox("请输入一个正整数：")
PrintFac(n)
EndSub
PrivateFunctionFac(m)AsLong
'''请不要删除该行,只在下一行中填空'
Fork=2Tom
Fac=Fac*k
Nextk
EndFunction
查看更多
