s = Text1．Text

ans = "": k =4

i = k - 1: j = k + 1: n = Len(s)

Do While k > 0

    If Mid(s ,i,1) = Mid(s, j, 1) Then

        ans = ans + Mid(s, i,1): k = k - 1

    End If

    i = (n + i - 2) Mod n + 1

    j = j Mod n+1

Loop

Label1.Caption=ans

在文本框Text1中输入“banana”，执行程序后，标签Label1中显示的内容是（  ）

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

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

Dim a(l To n) As Integer,y(l To n) As Integer, i As Integer, j As Integer

k=Val(Text1.Text)

For i=1 To n

    y(i)=1

Next i

For i=1 To n

    For j=1 To n

        If a(i) < a(j) Then y(i)=y(i)+1

    Next j

    If y(i)=k Then List1.AddItem Str(a(i))

Next i

数组 a 的各元素的值为3，4，3，1，4，4，5，5，6，2，0， 在文本框中输入4，执行该段程序后 List1 中显示的值为（    ）

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）处语句依次为

s="Good-Luck-2023!"

n=0;m=0;k=0

for i in range(len(s)):

    ch=s[i]

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

        m=m+1

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

        n=n+1

    else:

        k=k+1

n= 5

head=0

tail=4

que=['a' , 'b' ,'c' ,'d' ,'e' ]

while head!=tail:

    if head%4==0:

        print (que[head])

    else:

        tail=(tail+1)%n

        que[tail]=que[head]

    head= (head+1)%n

print (que[head])