编写VB程序,实现如下功能:在文本框Text1中输入筛选关键词“ca”,单击“筛选”按钮Command1,在列表框List1所列字符串中查找左边与“ca”相匹配的字符串,并在列表框List2中输出(运行效果如图所示);否则,在列表框List2中显示“无筛选结果”。
实现上述功能的VB代码如下,但加框处代码有错,请改正。
Dim a(1 To 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=1 To 20
If Then ‘{#blank#}1{#/blank#}
List2.AddItem a(i)
flag=True
End If
Next i
If flag=False Then
‘{#blank#}2{#/blank#}
End If
End Sub