vostro 7000:如何用VB使用子函数,计算6!

来源:百度文库 编辑:中科新闻网 时间:2024/05/16 11:11:52
如何用VB使用子函数,计算6!

不用函数就行了
sum=1
for j=1 to 6
sum=sum*j
next j

AAA=JIECHENG(6)

FUNCTION JIECHENG(N)
E=1
FOR I = 1 TO N
E=E*I
NEXT
JIECHENG=E
END FUNCTION

我同意qq19443156的答案