Question

求高手帮做VB题 谢谢拉

1 编程序。设n=20,x=0.5,编写程序，计算并输出下面级数的部分和。结果取小数点后6位。
x/1!-x 3/3!+x 5/5!.....+（-1）^(n-1)*x^(2n-1)/(2n-1)!+......(^表示冥运算，！表示求阶乘)
2 编写程序，求下面级数前n项中奇数项的和OS。在求和的过程中，以第一个数值小于0.0001的项为末项
，计算并输出和数OS，结果取六位小数...1/1!-1/2!+1/3!-1/4!+...(^表示冥运算，!表示求阶乘)

Answer 1

第一个题目看不懂。
写第二个。
dim os,n,m,i,c
c=1
m=1
do while abs(m)>=0.0001
n=n+1
for i=1 to n
c=c*i
next
m=(-1)^n*(1/c)
os=os+m
loop
? os

Answer 2

Dim n ,x as integer
n=20
x=0.5

Answer 3

第一题
Private Sub Command1_Click()
Dim i, j As Integer, m, n, s As Double
x = 0.5
s = 0

For i = 1 To 20
n = 1
For j = 1 To (2 * i - 1)
n = n * j
Next j

m = ((-1) ^ (i + 1)) * ((x ^ (2 * i - 1))) / n
s = s + m
Next i
Sn = Round(s, 6)
Print "Sn="; Sn
End Sub