设计求数列s=1+1/3+(-1/5)+1/7+1/9+(-1/11)+...前n(n>=1)项和的算法VB编程,用fo

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/14 05:43:58

设计求数列s=1+1/3+(-1/5)+1/7+1/9+(-1/11)+...前n(n>=1)项和的算法VB编程,用for next i 循环体编
用循环+选择结构，不要用floop float ftemp 之类的

Private Sub Command1_Click()
Dim n As Long
Dim i As Long
Dim sum As Double
n = Val(Text1.Text)
sum = 1#
For i = 2 To n
'sum = sum + (-1) ^ i * 1 / (2 * (i - 1) + 1)
If 2 * Int(i / 2) = i Then
sum = sum + 1 / (2 * (i - 1) + 1)
Else
sum = sum - 1 / (2 * (i - 1) + 1)
End If
Next i
Label1.Caption = sum
End Su

设计求数列s=1+1/3+(-1/5)+1/7+1/9+(-1/11)+...前n(n>=1)项和的算法VB编程,用fo VB：斐波那契数列第一项是1,第二项是1,用递归算法编写一个程序,求数列前N项的和 vb编程题,1、* 编写程序,计算并输出下面数列中前n项的和.(设n=20)1*2*3,2*3*4,3*4*5,……,n vb编程用递归函数求数列1,1,2,3,5,8,13,21.的第N项已知an=5n(n+1)(n+2)(n+3),求数列{an}的前n项和Sn 已知数列an=2n+1 设计算法输出第100项前100项 1:已知数列{an}的前n项和是S=32n-n（平方）,求数列｛|an|｝的前n项和Tn. 已知数列{bn}=n(n+1),求数列{bn的前n项和Sn 数列{a n }前n 项和s n =n 平方+2n, 数列{b n }前n 项和T n =3/2(b n -1), 求{ 已知数列S(N)=2^n-1求其数列奇数项前N项和求数列an=n(n+1)（2n+1)的前n项和. 已知数列{an}的前n项和Sn=1/3n(n+1)(n+2),试求数列(1/an)的前n项和