设计求数列s=1+1/3+(-1/5)+1/7+1/9+(-1/11)+...前n(n>=1)项和的算法VB编程,用fo
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/06/17 22:45:29
设计求数列s=1+1/3+(-1/5)+1/7+1/9+(-1/11)+...前n(n>=1)项和的算法VB编程,用for next i 循环体编
用循环+选择结构,不要用floop float ftemp 之类的
用循环+选择结构,不要用floop float ftemp 之类的
![设计求数列s=1+1/3+(-1/5)+1/7+1/9+(-1/11)+...前n(n>=1)项和的算法VB编程,用fo](/uploads/image/z/6973736-32-6.jpg?t=%E8%AE%BE%E8%AE%A1%E6%B1%82%E6%95%B0%E5%88%97s%3D1%2B1%2F3%2B%28-1%2F5%29%2B1%2F7%2B1%2F9%2B%28-1%2F11%29%2B...%E5%89%8Dn%28n%3E%3D1%29%E9%A1%B9%E5%92%8C%E7%9A%84%E7%AE%97%E6%B3%95VB%E7%BC%96%E7%A8%8B%2C%E7%94%A8fo)
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
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项和