试题11下列程序的功能是求算式:1-1/2+1/3-1/4+……前30项之和。请在空白处填入适当的语句,使程序可
试题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