Private Sub Command1Click()

Dim a(1 To 4) As Integer

Dim i As Integer

   a(1) = 1

 For i = 2 To 4

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

 Next i

List1.AddItem Str(a(i))

End Sub

 Private Sub Command1_Click()

   Dim x As Integer

   Dim y As Integer

   x = 900

   y = Abc(x)

   Label1．Caption = Str(y)

 End Sub

运行程序，单击命令按钮Command1后弹出如图所示的出错信息提示，引起该错误的语句是（   ）

⑴用数组b存储最小下降数列中最小的元素(查找过程中的最小值)，b(1)为数组a第1个元素。

⑵加入方法：将a(i)与数组b中的每个元素依次逐个比较：

若a(i)比b(j)小就用a(i)替换b(j)中的值，将a(i)添加到第j个下降数列中，并存储在c数组的c(j)中。

若a(i)比b(j)都大，则在数组b最后添加a(i)新的元素，将a(i)添加到第j个下降数列中，并存储在c数组的c(j)中。

⑶若数组a各元素的值为34，54，3，76，2，3时，则3个下降数列分别为“34，3，2”“54，3”“76”

程序运行界面如图所示。

小明依据上述描述设计了如下VB程序。请回答下列问题：

s = "abcababcababcab": L = Len(s)

For t = 1 To L \ 2      '枚举可能的原始长度

    If L Mod t = 0 Then

        For i = t + 1 To L Step t

            If    ①   <> Mid(s， 1， t) Then Exit For

        Next i

        If i = L + 1 Then ans =   ②   : Exit For

    End If

Next t

Text1.Text = ans

上述程序段划线处①②语句依次可为（  ）