編寫“簡單密碼篩選”程序，實現如下功能：在文本框Textl中輸入連續(xù)多組數字密碼，之間以空格符分隔，篩選出簡單密碼（即一組密碼中所有數字均相同），單擊“篩選密碼”按鈕 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 （　?。?br />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

。