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

（1）每次点击“运行”按钮，自动清空列表框List1的内容，可在过程“Command1_Click”中加入List1.Clear，其中“Clear”是 （单选，填字母：A.对象名/B.方法/C.属性/D.事件）
（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 = False
End If
If ② Then
list1.AddItem Mid(txt, i - c + 1, c)
c = 1
End If
Next i
If c > 1 Then list1.AddItem Mid(txt, i - c + 1, c)
End Sub
（3）若去掉加框代码，输入的诗句为“贫恨苦吟穷寞寞，乱愁牵断梦沉沉”（不含引号），则启动程序，单击“运行”按钮后，列表中    （单选，填字母）
A.输出：寞寞沉沉 B. 输出：沉沉 C. 输出：寞寞 D. 无输出