用vb怎样写阶乘相加

'首先编写个计算阶乘的函数 jiecheng（）
private function jiecheng(x as intger) as long
if (x=0 or x=1) then '0和1的阶乘都为1
jiecheng=1
exit function
esleif
jiecheng=x*jiecheng(x-1)
end function
'然后在窗口上添加一个command按钮和一个text文本框，用于显示结果
private sub command1_click()
text1.text=jiecheng(3)+jiecheng(5)+jiecheng(7) '调用函数计算3，5，7的阶乘 ，显示结果
end sub

'vb的阶乘自定义函数:
function 阶乘(n as integer)as long
if n>0 then
阶乘=1
for i = 1 to n
阶乘=阶乘*i
next
endif
end function

'引用
print 阶乘(5)+阶乘(6)本回答被网友采纳

我只会用笔写