编写VB程序，实现如下功能：在文本框Text1中输入筛选关键词“ca”，单击“筛选”按钮Command1，在列表框List1所列字符串中查找左边与“ca”相匹配的字符串，并在列表框List2中输出（运行效果如图所示）；否则，在列表框List2中显示“无筛选结果”．

实现上述功能的VB代码如下，但加框处代码有错，请改正．
Dim a（1To 20）As String'用于存储20个字符串
'将20个字符串分别保存赋值给数组元素a（1）、a（2）、a（3）、a（4）、…、a（19）、a（20），并在列表框List1中显示
Private Sub Form_Load （　　）
'代码略
End Sub
Private Sub Command1_Click （　　）
Dim s As String,n As Integer,i As Integer
Dim flag As Boolean'变量flag用于标记是否在数组a中筛选到左边与s匹配的字符串
List2．Clear'筛选时清空上次筛选结果
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.