试题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