计算1-1/2+1/3-1/4+……+（-1)^n-1*1/n的值,要N在一个输入框中输入，给分20

[hotme]

计算1-1/2+1/3-1/4+……+（-1)^n-1*1/n的值,要N在一个输入框中输入，给分20

[hotme]

谢谢： lvlvlvlylyly(那森) 我会记住你的话的，对啊，我就是找不到循环的规律啊，能有没有好书给我介绍一些。。。
谢谢大家了，，，

[zyl910]

Dim I as Long
Dim n as long
Dim T as Double

n=Val(Text1.Text)

T=0
For I=1 to n
T=T+(-1)^(I-1)*I/I
Next I

[footballboy]

Private Sub Command1_Click()
Dim i As Long
Dim n As Long
Dim s As Double

n = Val(Text1.Text)

s = 0
For i = 1 To n
s = s + (-1) ^ (i - 1) / i
Next i
MsgBox "结果为" & CStr(s)
End Sub

[griefforyou]

呵呵。。。

[_l_]

Private Sub Command1_Click()
Dim i As Long
Dim n As Long
Dim s As Double

n = intputbox ("请树入N的之")
s = 0
For i = 1 To n
s = s + (-1) ^ (i - 1) / i
Next i
MsgBox "结果为" & CStr(s)
End Sub

[lvlvlvlylyly]

第一页是你，来到第二页又是你！
问一次还要问第二次·！
你记住了··！！！！
编程入门第一件事情就是精通“编程的第一基本思想”——————
你一定要记住！那只有两个字---------“循环”！！！
要时刻牢记！！！！
把这个记住了，这种问题就要自己多动脑筋了，！··
还有，你这样问问题是不对的·就算你得到源码又有个屁用啊····
这个题目就算我再浪费一点时间给你稍微一点提示好了·
首先你要知道这是一个循环求解
用“一个值”（随你怎么声明）来保留这个结果！每循环一次这个值就会改变一次，这是你第一步就要确定的！
其次，确定你要使用一个什么样的循环结构！在这里，因为n是输入的数,而n也恰好是表达式的项的数,也就是说n是多少,就往你前面的哪个值进行多少次计算.对于这种可以确定循环次数的建议使用For to结构!
把这两样弄好之后,找到这个题目的"循环规律",这可以说是在"循环"里面最重要的事情了,因为只有这样,你才能"控制循环".而这一步中重中之重又在于写出题目的"表达式",因为这个"表达式"是每次循环的时候要往那个作为结果的数里面写入的东西!
所以我就搞不懂了,你都已经写出了"表达式",(不过你写的不太对,计算机会出错的)怎么还要问人啊??
这个题跟你前面提的那个有点不同,前面那个还要简单一点,这个嘛稍微绕了一点弯,就是符号的问题.不过这个弯老实说绕的一点都不大,你就跟不上来了,也不是我打击你啊,你要多自己想想啊!
当项数为偶数的时候,表达式的值为负,这样表达式可以重新写为
(-1)^(n-1)/n
有个这些,就可以解决这个问题了!
记住,不要一有问题就问人!上网很贵的|!
祝你好运!