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

Question

Dim I as Long
Dim n as long
Dim T as Doublen=Val(Text1.Text)T=0
For I=1 to n
    T=T+(-1)^(I-1)*I/I
Next I

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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