试题11
下列程序的功能是求算式：1-1/2+1/3-1/4+……前30项之和。请在空白处填入适当的语句，使程序可以完成指定的功能。
Private Sub Command0_Click()
Dim i As Single ， s As Single，f As Single
s=0 ：f=1
For i= 1 To 30
s=s+f / i
f=___【11】__
Next i
Debug.Print “1-1/2+1/3-1/4+……=”；s
End Sub

A.Print

【参考答案】


试题11分析
题目是求1-1/2+1/3-1/4+……前30项之和，奇数项的符号位正，偶数项为负，可以......

(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)