Private Sub Command1_Click( )

Dim x As String, k As String, j As Integer

x = "XiaoWei"                    ①

k = "语文"                       ②

j = 90                           ③

Text1.Text = x + k +j               ④

End Sub

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

Dim a(1 To 5) As Integer

Dim f As Boolean

a(1) = 23: a(2) = 12: a(3) = 56: a(4) = 34: a(5) = 10

i = 1: f = True

Do While i <= 5 And f = True

  If a(i) = 56 Then f = False

  i = i + 1

Loop

Label1.Caption = i

  s=0

  For i=1 To 5 Step-2

s=s+i

  Next i

  执行上述代码后，下列说法正确的是（  ）

   max=a(1)

   For i=2 To 10

   Next i

当虚线框内的语句刚好执行完第6次后(此时循环变量i的值为7)，变量max的值是（  ）