VB编程题,自定义函数求3!+5!+7!的值。
发布网友
发布时间：2022-05-06 08:34
共1个回答
热心网友
时间：2022-06-29 03:35
sumyta(100)就是你要的代码,如可放在sub
command1_click中，一行即可
代码还可以优化以减少cpu的计算次数
function
sumyta
(n
as
integer)
'
1!+2!+...n!
if
n=1
then
sumyta
=1
else
sumyta
=nyta(n)+
sumyta(n-1)
end
function
function
nyta
(n
as
integer
)
as
long
'求n!
if
n=1
then
nyta=1
else
nyta=n*nyta(n-1)
end
function
