1. (2020·杭州模拟) 有如下的VB程序：

Private Sub Command1_Click( )

    Dim a(10) As Integer, n As Integer

    a(1) = 1

    For i =2 To 10

        a(i)=a(i-1)*i

    Next i

    List1.AddItem Str(a(i))

End Sub

运行该程序，单击命令按钮Command1，弹出的错误信息提示是（    ）