作业帮用VB编写 VB计算公式S=1+1/3+1/5+1/7+.+1/2n-1的和,当第n项的值
来源：学生作业帮 编辑：作业帮 分类：数学作业 时间：2024/05/25 08:26:45
用VB编写 VB计算公式S=1+1/3+1/5+1/7+.+1/2n-1的和,当第n项的值
Private Sub Command1_Click()
Dim sum As Double
Dim i As Long
Dim n As Doublen = ((1 / (10 ^ -5)) + 1) / 2 '正好等于10 ^ -5时候n的值
n = Round(n + 0.5, 0) '对n+0.5进行四舍五入处理,保证n只要有小数点后面有数就进,不舍.For i = 1 To n '计算n项的和
sum = sum + 1 / (2 * i - 1)
Next i
Print "项数n为：" & n
Print "n项和为：" & sum
End Sub调试如下图：
Dim sum As Double
Dim i As Long
Dim n As Doublen = ((1 / (10 ^ -5)) + 1) / 2 '正好等于10 ^ -5时候n的值
n = Round(n + 0.5, 0) '对n+0.5进行四舍五入处理,保证n只要有小数点后面有数就进,不舍.For i = 1 To n '计算n项的和
sum = sum + 1 / (2 * i - 1)
Next i
Print "项数n为：" & n
Print "n项和为：" & sum
End Sub调试如下图：
用VB编写 VB计算公式S=1+1/3+1/5+1/7+.+1/2n-1的和,当第n项的值
vb语句编写S=1*2*3*……*n的值怎么编?
求vb编写程序大神求当s=1*2*3*4...*n小于或者等于5000时最大的n值及此时的s值.
VB计算1!+2!+3!+…+n!的和
vb编写程序,计算表达式的值 1+x/2!+x^2/4!+x^3/6!+.x^n(2n)!
编写程序计算s=1+3+5+...+n求s=100得值,请画出流程图,并写出相应的VB语句代码
用VB编写“输入整数N,计算1!+2!+.+N!=”
编程；VB 编写一个过程,用来计算下列表达式的值,并在事件过程中调用.S=1+1/2!+1/3!+...+1/n!
利用VB设计一个程序：输入一个大于10的正整数n,计算sum=1+3+5+…(2n+1),编写程序输出计算结果sum
vb计算S=1*2+2*3+3*4+.N*(N+1)直到和大于5000停止,输出结果及N的值.
vb编程题,1、* 编写程序,计算并输出下面数列中前n项的和.(设n=20)1*2*3,2*3*4,3*4*5,……,n
vb计算1!+3!+*****+（2n+1）!的代码