Function f(n as integer) as long

    Dim j As Integer

    f=1

    For j=1 to n

   f=f*j

    Next j

End Function

 Private Sub Command1_Click()

  Dim s As Long, AS Integer

  S=0

  For i=1 to 6

  Next i

  Text1.text=str(s)

 End Sub

方框中正确的语句是  （   ）

Private Sub Command1_Click()

    Dim Pi As Single, t  As Single

    Dim n As Integer, s As Integer

    Pi = 0

    t = 1: n = 1:s =1

    Do While Abs(t) >= 0.0001

        Pi = Pi + t

        n = {#blank#}1{#/blank#}

        s= {#blank#}2{#/blank#}

        t = s *1 / n

    Loop

    Text2.Text ={#blank#}3{#/blank#}

End Sub

PRIVATE SUB FORM__CLICK( ）

S=0

FOR A= 1 TO 5

    S=S+（10^A-1）/3

NEXT A

PRINT S

END SUB