1. (2020·浙江模拟) 诗诃爱好者小奇发现一些诗句中的叠字（有至少二个重叠的字）非常优美，如“庭院深深深几许”……，小奇希望用VB编写程序，寻找诗句中的叠字。程序运行界面如下：

1. （1） 每次点击“运行”按钮，自动清空列表框List1的内容，可在过程“Command1_Click”中加入Listl. Clear，其中“Clear”是（单选。填字母：A .对象名/B .方法/C .属性/D .事件）。
3. （2） 实现上述功能的VB程序如下，请在画线处填入合适的代码。

   Private Sub Command1_Click ()

       Dim i As Integer, n As Integer, flag As Boolean, txt As String

       txt=Text1. Text

       n=Len（txt）

       c=1

       For i=1 To n-1

           If Mid (txt, i,1)=   ①   Then

               flag=True

               c=c+1

           Else

               flag=Fals

           End If

           If   ②   Then

               List1. AddItem Mid (txt, i-c+1, c)

               c=1

           End If

       Next i

   

   End sub

   ① ② 

5. （3） 若去掉加框代码，输入的诗句为“贫恨苦吟穷寞寞，乱愁牵断梦沉沉”（不含引号），则启动程序，单击“运行”按钮后，列表中_______（单选，填字母）。

   A . 输出： B . 输出： C . 输出： D . 无输出