长度小于等于 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(0 To 20)As Integer，d(0 To 20)As Integer

Dim n As Integer

Private Sub Command1_Click()

‘产生n个[10，99]之间的随机整数，存储在a(0 To n-1)中，同时显示在List1中，代码略

End Sub  

Private Sub Command2_Click()

    Dim i As Integer  

    n=Val(Text1．Text)   

    For i=0 To n-2    

      For j=i+1 To n-1  

        If     Then            ‘(1)

          temp=a(i)：a(i)=a(j)：a(j)=temp

        End If

     Next j

Next i 

If n Mod 2<>0 Then  d(n＼2)=a(n-1)  ‘个数为奇数，最小值放中间位置

    For i=0 To n＼2—1

    d(i)=a(i*2)

=a(2*i+1)               ‘(2)

Next i

  ‘在列表框List2中输出数组d，代码略

  End Sub

x=1 : a=x : b=x+1

x=x+1 : c=x : d=x+1

该程序段运行后，下列说法正确的是（  ）

i = 1

Do While i<=6

    a(i) = Int(Rnd * 10) + 1

    If a(i) Mod 2 = i Mod 2 Then i = i + 1

Loop

For i = 1 To 2

    k = 1

    For j = 1 To 6 - i * 2

        If a(j) * k > a(j + 2) * k Then

            t = a(j): a(j) = a(j + 2): a(j + 2) = t

        End If

        k = -k

    Next j

Next i

执行该程序段后，在下列选项中，a(1)~a(6)各元素值可能的是（  ）