长度小于等于 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 20) As Integer

For i=2 to 10

For j=2 to 20\i

a(i*j)=a(i*j) +1

Next j

Next i

该程序段运行后，数组a中元素值为0的个数是（  ）

算法思想：先用 2 去筛，即把 2 留下，把 2 的倍数剔除掉；再用下一个质数，也就是 3 筛，把3 留下，把 3 的倍数剔除掉；接下去用下一个质数 5 筛，把 5 留下，把 5 的倍数剔除掉；不断重复下去……

现在使用埃氏筛法求 1～n 之间的素数个数，代码如下：

n=int(input())

a=[1]*(n+1)

a[0],a[1]=0,0 #标记小于 2 的数, 0 表示非素数，1 表示素数

    ①    i=2

while i<=n:

    if    ②   :

        for j in range(2*i,n+1,i):

            a[j]=0

    i+=1

for i in range(n+1):

       ③    print(num)