问题标题:
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
点击显示
其它推荐
热门其它推荐