VB 阶乘 求和题

Question

2!+4!+6! (求阶乘必须用子过程实现）

Answer 1

在窗体上放一个命令按纽，计算结果将在窗体上输出，代码如下（直接拷贝）
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a = 2
b = 4
c = 6
nn a, b, c
End Sub
Sub nn(a As Integer, b As Integer, c As Integer)
Dim i As Integer, j As Integer, k As Integer, s1 As Integer, s2 As Integer, s3 As Integer
s1 = 1
s2 = 1
s3 = 1
For i = 1 To a
s1 = s1 * i
Next i
For j = 1 To b
s2 = s2 * j
Next j
For k = 1 To c
s3 = s3 * k
Next k
Print "2!+4!+6!=" & s1 + s2 + s3
End Sub本回答被提问者采纳

Answer 2

计算阶乘子过程：
function fact(n as integer) as long
dim i as intrger,s as long
s=1
for i=1 to n
s=s*i
next i
fact =s
end fanction
用call 调用就可以了

Answer 3

for i=1 to 3
和=和+阶乘(i*2)
next
print 和

function 阶乘(n) as double
阶乘=1
for i=2 to n
阶乘=阶乘*i
next
end function

Answer 4

这里只给你写一个思路
m 就是你要求的阶乘数
k=1
for i= 1 to m
k=k*i
next k
m=m+k

Answer 5

编一个求皆乘的函数
主函数求和