k=1

while 1:

    k+=1

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

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

s = "abcxyz"

q = [1,2,3] + [0] * 10

head , tail = 0 , 3

res = ""

for i in s :

    c = chr ((ord(i) - ord("a") + q [head]) % 26 + ord("a"))

    res += c

    q [tail] = q [head]

    head = head + 1

    tail = tail + 1

print(res)

执行该程序段后，输出的结果是（   ）

from random import random

a=[1]*5

i=1

while i<=4:

    a[i]=int(random()*10)+1

    if a[i]==a[i-1]//2 or a[i]==a[i-1]*2:

        i+=1

执行该程序段后，数组a的值可能是（   ）

s=input()

t=0

mw=''

for i in range(len(s)):

    ch=s[i]

    if '0'<=ch<='9':

        t=t*10+int(ch)

    elif ch=='-':

        mw+=chr(t%26+ord('A'))

        t=0

    else:

        mw+=ch

print(mw)

执行该程序段输入“29-052-24!”（不包括双引号），则输出的结果是（   ）

请回答下列问题：