Private Sub Form_Click()

    Dim As Integer, j As Integer, x As Integer

    For i=1 To 100

        x=0

        For j=1 To i-1

            If i Mod j=0 Then x=1

        Next j

        If x=0 Then Print x

    Next i

End Sub

⒈能被4整除，但不能被100整除；

⒉能被400整除；

For i=1 To 5

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

Next i

For i= 1 To 5

    If i Mod2=0 Then

        a(i) = a(i)\i

    Else

        a(i)= a(i) Mod i

    End If

Next i

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

For k = 100 To 500

    x = k

    z = 0

    Do while x > 0

    Loop

    If z= k Then

        List1．AddItem Str(k)

    End lf

Next k

上述程序段中方框处可选语句为：（   ）

①x =x\ 10    ②y = x Mod 10    ③z = z+10* y    ④z= 10* z + y

则（1）（2）（3）处语句依次为

算法思想：先用 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)