編寫VB程序，實現(xiàn)如下功能：在文本框Text1中輸入篩選關(guān)鍵詞“ca”，單擊“篩選”按鈕Command1，在列表框List1所列字符串中查找左邊與“ca”相匹配的字符串，并在列表框List2中輸出（運行效果如圖所示）；否則，在列表框List2中顯示“無篩選結(jié)果”．

實現(xiàn)上述功能的VB代碼如下，但加框處代碼有錯，請改正．
Dim a（1To 20）As String'用于存儲20個字符串
'將20個字符串分別保存賦值給數(shù)組元素a（1）、a（2）、a（3）、a（4）、…、a（19）、a（20），并在列表框List1中顯示
Private Sub Form_Load （　?。?br />'代碼略
End Sub
Private Sub Command1_Click （　?。?br />Dim s As String,n As Integer,i As Integer
Dim flag As Boolean'變量flag用于標記是否在數(shù)組a中篩選到左邊與s匹配的字符串
List2．Clear'篩選時清空上次篩選結(jié)果
s=Text1．Text
n=Len（s）
flag=False
For i=1To 20
If =s Then'（1）
List2．AddItem a（i）
flag=True
End If
Next i
If flag=False Then
'（2）
End If
End Sub.