退后钢琴简谱:用VB编程求1/1-1/2+1/3+...+(-1)^n-11/n直到最后一项的绝对值少于10^-7为止

来源：百度文库 编辑：中科新闻网 时间：2024/05/12 05:39:04
我急用
请大家帮帮忙！
谢谢了，谢谢了

Dim n As Double
Dim s As Double

n = 1
Do While (1 / n >= 1 / 10000000)
s = s + (-1) ^ (n - 1) * 1 / n
n = n + 1
Loop

MsgBox s

s = s + (-1) ^ (n - 1) * 1 / n
就是
s = s + (-1) ^ (n - 1) / n

不对
少了一项得值
最后补上s=s+(-1)^(n-1)/n

请问各位VB编程高手,小女子急求VB编程题目1、 求1+1/2+1/3+……+1/50的和 求1－10的平方和。vb编程给代码 VB编程求s=1/2*2/3*3/5*5/8...的最后一项 用VB编程求1/1-1/2+1/3+...+(-1)^n-11/n直到最后一项的绝对值少于10^-7为止 请教，用VB编程实现1~1--之和的平均值 vb入门编程系列问题1 VB:求S=1！+2！+3！+……+20！的编程代码 用VB编程求三角形的面积 求高手VB编程~~~~ 求VB编程问题