解密规则：将整数中各个位中的每一位值乘以5，然后除以8所得余数即为该位的值，然后将所得数的首末位进行交换。如数字9357，解密后的值为3715。

    Ins=Text1．Text

    n=Len(Ins)

    Outs=Mid(Ins，1，1)    ‘取字符串Ins第1个字符

    i=2

    Do While Mid(Ins，i，1)>=Mid(Outs，i-1，1)

        Outs=Outs+Mid(Ins，i，1)

        i=i+1

    Loop

    Text2．Text=Outs

在文本框Text1中输入“Happy2017”，执行该程序段后，文本框Text2中显示的是（  ）

  Dim n As Integer

  Dim a(1 To 100)As Integer

Private Sub Command1_Click()  ‘生成n个有序数，显示在List1中

‘代码略

End Sub

Private Sub Command2_Click()

    Dim t As Integer

    Dim i As Integer

    Dim j As Integer

    Dim temp As Integer

    t=Val(Text2．Text)

    For i= To n       ‘(1)

      temp=a(i)

      For j=i To i+1-t Step-1

      a(j)=a(j-1)

      Next j

        =temp    ‘(2)

    Next i

    For i=1 To n

      List2．AddItem Str(a(i))

    Next i

  End Sub

s=“491053”

For i=1 To 3

n=Len(s)

k=1

For j=2 To n

If Mid(s， k， 1) >=Mid(s， j， 1) Then

K=j

Else

Exit For .Exit For表示退出循环

End If

Next j

s= Mid(s， 1， k-1) + Mid(s， k+ 1，n-k)

Next i

Label1.Caption =s

执行该程序段后，标签Label1中显示的值是（  ）

s=Text.Text

c=0

For i=1 To 26

      ⑴ 

Next

For i=1 To Len(s)

      ⑵ 

IF d(t)=0 Then d(t)=i

      ⑶ 

Next

Text2 Text=Str(c)

填空处的代码可由以下部分组成

①d(i)=0 ②=val(Mid(si, 1) ③IFd(t)<>0Andi-d(t)> c Then c=i-d(t)

④d(i)=1 ⑤t=Asc(Mid(s, i, 1)-Asc("a")+1 ⑥fi-d(t)> c Then c=i-d(t)

代码顺序正确的是（  ）

For i= 1 To 2

    For j=5 To i+1 Step-1

      If a(j) >a(i) Then

        t=a(j)：a(j)=a(i)：a(i)=t

      End If

    Next j

Next i

数组元素a(1)到a(5)的值依次为“33，24，45，16，77”，经过该程序段“加工”后，数组元素a(1)到a(5)的值依次为（  ）