题型：综合题 题类：常考题 难易度：普通
浙江省高中信息技术 VB基本语句同步练习
实现上述功能的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
试题篮
