小华写了一个模糊查询的VB程序，具体功能如下：程序运行时，在列表框List1中显示热门书籍名称，在文本框Text1中输入查询关键词后，单击“开始查询”按钮Command1，则在列表框List2中显示包含此关键词的书籍名称，并统计找到的书籍数；若找不到，则在列表框List2中输出“查无此书”。程序运行界面如下图所示：

为实现上述的功能的程序如下，加框处的代码有误，请改正。

Dim book(1 To 20) As String, st As String

Const n = 20

Private Sub Form_Load()

    '读入n个数据，存储在数组book中，并显示在列表框List1中

End Sub

Private Sub Command1_Click()

    Dim i As Integer, j As Integer, len1 As Integer, len2 As Integer，k As Integer

    st = Text1.Text

    List2.Clear

    len1 = Len(st)

    k = 0

    For i = 1 To n

        len2 = Len(book(i))

              '①

        Do While j <= len2 - len1 + 1

            If  Then    '②

                List2.AddItem book(i)

                k = k + 1

            End If

            j = j + 1

        Loop

    Next i

    If k> 0 Then

        List2.AddItem “共找到”+Str(k) + “条信息”

    Else

        List2.AddItem “查无此书”

    End If

End Sub

程序中加框①处应改正为；

加框②处应改正为。