vb试题编程计算1-1⼀2+1⼀3-1⼀4+...+1⼀99-1⼀100

用四种不同方法来做，急需

2024-11-03 21:16:44

推荐回答（1个）

回答1：

1:
Dim i As Integer
Dim s As Double
Dim s0 As Double
For i = 1 To 100
s0 = 1 / i
If i Mod 2 = 0 Then s0 = s0 * (-1)
s = s + s0
Next
Print s

2:
Dim i As Integer
Dim s As Double
For i = 1 To 100 Step 2
s = s + 1 / i - 1 / (i + 1)
Next
Print s

3:
Dim i As Integer
Dim s As Double
i = 1
Do Until i >= 100
s = s + 1 / i - 1 / (i + 1)
i = i + 2
Loop
Print s

4:
Dim i As Integer
Dim s As Double
For i = 1 To 100
Select Case i Mod 2
Case 0
s = s - 1 / i
Case 1
s = s + 1 / i
End Select
Next
Print s