Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

conn.ConnectionString="provider=Microsoft.ACE.OLEDB.12.0；data sourc="

+App.Path+"\socre.accdb"

Conn.Open

Set rs.ActiveConnection=conn

Rs. Open"Selec*from cj"

n=1

Do While Not rs.EOF

Score(n)=rs.fields("成绩")：Name(n)=rs.fields("姓名")

n＝n+1：rs.MoveNext

Loop

下列说法中不正确的是（   ）

小王利用VB程序实现这一加密功能，程序界面和代码如下所示：

Private Sub Com_ jm_ Click()

    Dim x As String, ch As String, cl As String

    Dim s1 As String, s2 As String, s As String

    Dim i As Integer, n As Integer, y As Integer

    x= Text1. Text

    n=Len(x)

    For i=1 To n

        ch= Mid(x, i, 1)

        If ch >= "0" And ch <= "9" Then

               ①     

            s2=s2 & y

        Elself ch >="a" And ch<="z" Then

            y=(Asc(ch)-Asc("a")+3) Mod 26

                 ②   

            s1=c1+s1

        Else

            y=(Asc(ch)- Asc("A")+3) Mod 26

            c2=Chr(Asc("A")+y)

            s1=c2+s1

        End If

    Next i

        ③  

    Text2 Text=s

End sub

count = 0

For i = 1 To 20

    a(i) = Int(Rnd ∗ 100) + 1

Next i

For i = 1 To 20

Next i

For i = 1 To 100

    If b(i) <> 0 Then count = count + 1

Next i

Label1.Caption= "不重复数字个数" + Str(count)

为实现上述功能,则程序①处应填入的语句为（   ）

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

实现功能：键盘上输入任意一个正整数，将其按冰雹猜想的规则进行拆解，输出每一步拆解的值和总步数，验证其是否符合冰雹猜想。

冰雹猜想是指：一个正整数，如果是奇数就乘以3再加1，如果是偶数就对它除以2（如下图），这样经过若干次，最终回到1。无论这个过程中的数值如何庞大，就像瀑布一样坠落，在经过若干次的变换之后也必然会到纯偶数：4－2－1。

N变为

x＝{#blank#}1{#/blank#}(input("请输入任一正整数："))

n＝0

while({#blank#}2{#/blank#})：

    if (x%2 ！＝ 0)：

        x＝{#blank#}3{#/blank#}

   else：

        x＝int(x/2)

    print({#blank#}4{#/blank#}, end＝" ")

s=input()

n=len(s);c=1;max=1

for i in range(1,n):

 if (1)____:

 c=c+1

 if c>max:

 max=c

 else: