vb程序设计 关于循环结构

Question

要求是计算1-1/2+1/3-1/4+……+1/99-1/100 但是按照这个程序出来 答案是0 不知道是哪里出错了 大神们帮忙看一看呀

Answer 1

Option Explicit
 
Dim i As Integer
Dim s As Double     's必须声明为浮点数，否则无法计算小数
Dim f As Integer

Private Sub Command1_Click()
s = 0
f = 1
For i = 1 To 100
    s = s + f * (1 / i)   '此两行的顺序要换过来
    f = -f
Next i
Print "1-1/2+1/3-……-1/100="; s
End Sub

共两处错误

本回答被提问者和网友采纳