第1个回答 2006-08-27
Private Sub Command1_Click()
Dim i As Integer, s As Double
s = 0
For i = 1 To 100
If i Mod 2 = 0 Then
s = s - 1 / i
Else
s = s + 1 / i
End If
Next i
Text1.Text = s
End Sub本回答被提问者采纳
Dim i As Integer, s As Double
s = 0
For i = 1 To 100
If i Mod 2 = 0 Then
s = s - 1 / i
Else
s = s + 1 / i
End If
Next i
Text1.Text = s
End Sub本回答被提问者采纳
相似回答
大家正在搜
