s=0

For k = 3 To 1 Step -1

   If k <= 1 Then x = 1

   If k <= 2 Then x = 2

   If k <= 3 Then x = 3

   s = s + x

Next k

该程序段运行后，变量 s 的值是（    ）

x=3

if x%2==0:

    print(x，“是偶数。”)

else:

    print(x，“是奇数。”)

Dim a(1 To 5) As Integer

a(1) = 1

For i = 2 To 5

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

    If a(i) Mod 2 = 0 Then

         a(i) = a(i) + i

    Else

        a(i) = a(i) + a(i - 1)

    End If

Next i

a(1)~a(5)的值不可能的是（   ）

以序列[3，14，7，6，9，12，10，8，13，5]为例，整体不是摇摆序列，但子序列[3，14，7，9]、[3，14，6，12]等都属于摇摆子序列，其中最长的摇摆子序列[3，14，6，12，8，13，5]。根据第16图a分析得知，当序列有一段连续的递增(或递减)时，为形成摇摆子序列，我们只需要找到每一次转折中的拐点元素。

小王编写了一个VB程序实现该功能：程序运行时，从文本框Text1中读入数据，单击按钮Command1后，将计算得到的最长摇摆序列的长度输出到标签Label1中，并将具体的序列输出到文本框Text2中。程序运行界面如图b所示：

s = "ABCDEF"

For i = 1 To Len(s)

    a = Int(Rnd * 3 + 1)

    b = Mid(s, a Mod 6 + 1, 1)

    ch = ch + Chr(Asc(b) + 32)

Next i

执行该程序后，变量ch的值可能是（    ）

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])

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