vb程序做个 阶乘 S = 10!+7!*8!

一个取阶乘的函数:
private function JC(n as long) as long
dim k as long
k=1
for i=1 to n
k=k * i
next
jc=k
end function

s=jc(10)+jc(7)*jc(8)

dim i as long, j as long, m as long, n as long, e as long, r as long, s as long
for i = 10 to 1 step -1
j = j * i
next i
for m = 7 to 1 step -1
n = n * m
next m
for e = 8 to 1 step -1
r = r * e
next e
s = j + n * r

相信你也知道：VB不区分大小写的。