编写“简单密码筛选”程序，实现如下功能：在文本框Textl中输入连续多组数字密码，之间以空格符分隔，筛选出简单密码（即一组密码中所有数字均相同），单击“筛选密码”按钮 Commandl,将简单密码显示在列表框List1中，简单密码个数显示在文本框Text2中。程序运行界面如图a所示。
（1）程序运行时，提示如图b所示的出错信息，导致出错的是下列哪条语句

B

B

（单选，填字母：A．s=Text1．text  B．List.jye.ai  C．Text2．Text=Str（cnt））
（2）实现上述功能的VB程序如下，请在横线处填入合适的代码。
Private Sub Commandl_Click （　　）
Dim s As String,c As String,tmp As String
Dim i As Integer,cnt As Integer
Dim flag as boolean
cnt=0：flag True
List.Clear：s=Text1．Text：Text1．text=″″
For i=1 To Len（s）
ch=Mid（s,i,1）
If ch＞=″0″And ch＜=″9″Then
tmp=tmp+ch
If Len （tmp）＞1 Then
If

①ch＜＞mid（s,i-1，1）

①ch＜＞mid（s,i-1，1）

Then flag=False
End If
Else
If flag Then
Listl.AddItem tmp：cnt cnt+1
flag=True
tmp=″″
End if
Next  i
If flag Then List1．AddItem tmp：cnt cnt+1
If

②cnt=0

②cnt=0

Then Text2．Text=“找不到“Else text2．Text=Str（cnt）
End Sub
（3）成功修改第1题中错误的程序代码后，若文本框Text中输入的内容为

“11 456 7 4443 488 666666”

“11 456 7 4443 488 666666”

“11 456 7 4443 488 666666”，单击“筛选密码”按钮，文本框Text2中显示的内容是

3

3

。