编写“数对查询”程序，实现如下功能：生成11个随机整数存入数组，并在标签Label1中显示。在文本框Text1中输入一个正整数，单击“搜索”按钮Command1，在数组中查找和为该正整数的两个数，并在列表框List1中输出查询结果。程序运行界面如图所示：

实现上述功能的VB程序如下：

Const n=11

Dimd（1 To n）As Iteger

Private Sub Form_ Load( )

    '生成n个随机整数存入数组d，并在Label1中显示，代码略

End Sub

Private Sub Command1_Click( )

    Dim sum As Integer， L As Integer， R As Integer， c As Integer

       ①   

    c=0

    For L=1 To n-1

        R=n

        Do While L< R

            If   ②   Then

                List1.Addtcem Str（d（L））& " " & Str（d（R））

                c=c+1

                Exit Do      'Exit Do表示退出循环

            Else

                

            End If

        Loop

    Next L

    List.Addtem "找到和为" "& Str（sum）& "的数对共" & Str（c）&"组"

End Sub

请回答下列问题：