Do While i<=6

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

  If a(i) Mod 2<>i Mod 2 Then

    i=i-1

  ElseIf a(i)<a(i-1) Then

    a(i)=a(i)*2

  End If

i=i+1

Loop

执行该程序段后，数组元素a(1)到a(6)的值可能是(    ）

小王利用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

a=1

b=0

while a<101:

    b=b+a

    a=a+1

print(b)

for i in range(1,5):

    print(i, end="," )

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!”（不包括双引号），则输出的结果是（   ）

设m=12，n=10，如图a所示，是已经预约成功的5个订单对应的各景点车上人数。当输入新的订单号：“4,5,8,”，程序提示预约不成功，如图b所示。