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中显示的是（  ）

  Private Sub Command1_Click()

    For i=1 To 4

    s=””

      For j=1 To 7

     If        Then

s=s+“*“

 Else

       s=s+”  ”    ‘双引号内为1个空格

       End If

    Next j

    List1．AddItem s

    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中显示的值是（  ）