①M=－M   ②S=S+1   ③X+Y＝Z   ④A=A+B*C

长度小于等于 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

Private Sub Command1_Click()

  Dim n As Integer，cj As Integer，s As String

  n＝Val(Text1.Text)

  cj＝{#blank#}1{#/blank#}

  s＝”s＝”

  Do While {#blank#}2{#/blank#}

    If n<>4 Then

      n＝n－3

      cj＝cj*3

      s＝s＋”3×”

    Else

      n＝n－2

      cj＝cj*2

      s＝s＋”2×”

    End If

  Loop

    cj＝{#blank#}3{#/blank#}

    If n＝3 Then s＝s＋”3” Else s＝s＋”2”

    Text2.Text＝s

    Text3.Text＝cj

End Sub