选择题 27.  下列程序的功能是求算式：1-1/2+1/3-1/4+…前30项之和。
    Private Sub Command1_Click()
    Dim i as integer, s as single, f as integer
    s=0: f=1
    For i=1 To 30
    s=s+f/i
    f=______
    Next i
    Debug.Print"1-1/2+1/3-1/4+…="; s
    End Sub
    横线处应填写的内容是______。