Private Sub Command1_Click()

 Dim y As Integer

 y = Val(Text1.Text)

 Label1.Caption = Str(f(y))

End Sub

Function f(n As Integer) As Integer

 If (n = 1) Or (n = 2) Then

    f = 1

  Else

    f = f(n - 1) + f(n - 2)

  End If

End Function

程序运行时，在文本框中输入8，单击命令按钮Command1后，Label1中显示的内容是：

Private Sub Command1_Click( )

   Dim  s  As  Integer

   Dim  I  As  Integer

   S=0

   For i=1 To 10

      s=s+i\7

   Next i

   Text1.text=str(s)

End sub

该程序段运行后，文本框Text1中显示{#blank#}1{#/blank#} 

For i = 1 To 10

  If a(i) >= 0 Then

    n=n+1

    List1.AddItem Str(a(i))

  Else

    m=m+1

    List2.AddItem Str(a(i))

Next

则该程序段出错的原因是缺少了（   ） 

Private Sub Command1_Click()

Dim d(1 To 8) As Integer

Dim i As Integer, s As Integer

d(1)=1

For i=2 To 10

    d(i)=d(i-1)*i

Next i

For i=1 To 5

    s=s+d(i)

Next i

Text1.Text = Str(s)

End Sub

程序运行时，单击命令按钮Command1后，将会出现的提示信息是（  ）