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

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

2025-02-28 13:49:23

推荐回答（2个）

回答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

回答2：

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