题目

编写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   ‘    List2.AddItem a(i)    flag=True   End If Next i If flag=False Then      ‘ End If End Sub 答案：【1】Mid(a(i),1,n)=s【2】List2.AddItem “无筛选结果”

查看本题答案和解析