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

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

que=[""]*20

head,tail= 0,0

for i in range(3):

    que[tail]=chr(97+i)

    tail+= 1

st=["b","c","d","a"]

top=3

while head < tail and top > - 1:

    if st[top]==que[head]:

        head+= 1

    else:

        que[tail] = st[top]

        tail+= 1

    top-= 1

print(que[head:tail])

执行该程序段，则输出的结果是(  )

p = "Call-168"

c = " "

for ch in p:

    if ch >= "0" and ch <= "9":

        c += str(9-int(ch))

    elif ch >= "a" and ch <= "z":

        c += chr(ord(ch) - ord("a")+ord("A"))

    else:

        c += ch

print(c)

程序运行后，输出的结果是（   ）

s="VictoryOnTheWay"            #'A'的ASCII值为65，"a"的ASCII码值为97

mx=""

pre=0

for i in range(1,len(s)):

    if ord(s[i]) < 97:

        if mx<s[pre:i]:

            mx=s[pre:i]

        pre=i

print(mx)（   ）