Question

用vb求1到n的阶乘和的程序编写

Answer 1

用vb求1到n的阶乘和的程序：
1.
自己编写函数代码：
Private
Function
jieC(Byval
n
As
Integer)
As
Long

Dim
i
As
Integer

Dim
Fac
As
Long

Fac
=
1

For
i
=
1
To
n

Fac
=
Fac
*
i

Next
i

jieC
=
Fac
End
Function
2.
在需要求阶乘的地方，调用该函数：
例如：
Dim
y
As
Long
y
=
jieC(10)
'求阶乘(10)将用10调用上面的自定义函数，返回10的阶乘

Answer 2

private
sub
command1_click()
dim
x
as
integer,
s
as
long,
y
as
integer,
sum
as
long
x
=
inputbox("请输入小于13的数据",
"输入数据",
0)
s
=
1
sum
=
0if
x
>=
13
then
msgbox
("请重新输入小于13的数据")
end
iffor
i
=
1
to
x
s
=
s
*
i
'计算阶乘的算法
sum
=
sum
+
s
累加求和的算法
next
i
print
sum
end
sub