问题详情

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