Question

关于VB的一些算法问题？

1：怎样编写1！+2！+3！+4！+5！+6！+7！+8！

2：怎样编写1+1/2-1/3+4/1-5/1+6/1......+1/100

给位大哥大姐，帮帮忙了，信息考试呢！！！

Answer 1

第一个
for i=1 to 8
j=1
for k=1 to i
j=j*k
next k
L=L+j
next i
print l

第二个
for i=1 to 100
if (i mod 2) = 0 then
k=k-(1/i)
else
k=k+(1/i)
endif
next i
print k

Answer 2

提示:
n! 可以写成：
sum=1
for i=1 to n
sum=sum*i
next

Answer 3

2/
dim sum as double
dim x as Integer
x=1
for i=1 to 100
sum=sum+x/i
x=-x
next i
print sum

Answer 4

第一题递归函数算阶乘
public function JieCheng(n as long)as long
if n=1 then
jiecheng=1
else
jiecheng(n)=jiecheng(n-1)
end if
end function
然后累加个数字的阶乘
第二题
dim sum as double
for i=1 to n
if mod(i,2)=0 then
sum=sum+1/i
else
sum=sum-1/i
end if