第1个回答 2016-06-27
Private Sub Command1_Click()
Dim sum As Double
sum = 0
For i = 1 To 100
sum = sum + ((-1) ^ (i + 1)) / i
Next i
Print sum
End Sub本回答被网友采纳
Dim sum As Double
sum = 0
For i = 1 To 100
sum = sum + ((-1) ^ (i + 1)) / i
Next i
Print sum
End Sub本回答被网友采纳
第2个回答 2016-06-27
LET s=0
LET sign=-1
FOR i=1 TO 100
LET sign=-sign
LET s=s+sign/i
NEXT i
PRINT s
END
LET sign=-1
FOR i=1 TO 100
LET sign=-sign
LET s=s+sign/i
NEXT i
PRINT s
END
第3个回答 2016-06-27
s=0
for i=1 to 99 step 2
s=s+1/(i*(i+1))
next i
print s
for i=1 to 99 step 2
s=s+1/(i*(i+1))
next i
print s
相似回答
