Question

用vb做这道题11. 在TextBox中输入一个正整数n，当n的值为偶数时，求1-1/2-1/4-...-1/n序列的和

Answer 1

'窗体上一个文本框，一个按钮，复制以下代码

Private Sub Command1_Click()

s = 1

n = Val(Text1.Text)

If n Mod 2 = 0 Then

For i = 2 To n Step 2

s = s - 1 / i

Next k

Else

For i = 3 To n Step 2

s = s - 1 / i

Next k

End If

MsgBox s

End Su