Question

vb试题编程计算1-1/2+1/3-1/4+...+1/99-1/100，单击窗体后，在窗体上显示结果。

Private Sub Form_Click()

Dim s As Single

Dim i As Integer

s = 0

For i = 1 To 100 Step 1

If i Mod 2 <> 0 Then

s = s + 1 / i

Else

s = s - 1 / i

End If

Next i

Print "s="; s

End Sub

Answer 1

Private Sub Form_Click()
Dim s, i As Integer
s = 0
For i = 1 To 100 Step 1
If i Mod 2 <> 0 Then
s = s + 1 / i
Else
s = s - 1 / i
End If
Next i
Print "s="; "0" & s
End Sub

Answer 2

dim s as double
for i=1 to 100
s=s+1/i*(-1)^(i+1)
next i
print "s=";s
简单点实现容易懂啊!!