长度小于等于 100），在列表框 List1 里输出所有配对括号在表达式中的位置。例如在文本框 Text1 里入：“12*(3-(1+2))*3”，程序运行效果如图所示。

实现上述功能的 VB 代码如下，在划线的地方填入合适代码，完善程序。Private Sub Command1_Click()

Dim s As String

Dim a(1 To 100) As Integer

i = 1 top = 0

Do While i <= Len(s)

     If Mid(s, i, 1) = "(" Then

        top = top + 1

        {#blank#}1{#/blank#} 

     End If

     If Mid(s, i, 1) = ")" Then

        List1.AddItem Str(a(top)) + "    " + Str(i)

        {#blank#}2{#/blank#} 

     End If

     i=i+1 Loop

End Sub

实现上述功能的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