s = "adobe": ans = ""

For i = 1 To Len(s)

    A(i) = Mid(s, i, 1)

Next i

For i = 1 To Len(s)

       k = i

       For j = i To Len(s) Step 2

           If a(j) < a(k) Then k = j

       Next j

       If k <> i Then t = a(k): a(k) = a(i): a(i) = t

    Ans = ans + a(i)

Next i

label1.Caption = ans

该程序段运行后，标签Label1中显示的内容是（  ）

实现上述功能的VB程序如下：

s=“7218634594” : n=Len(s): c=0

For i=1 To n-1

  a(i)=Val(Mid(s, i, 2))

Next i

For i=1 To n-2 Step 2

  k=i

  For j=i+2 To n-1 Step 2

    If a(j) < a(k) Then k=j

  Next j

 If k <> i Then

   t=a(i): a(i)=a(k): a(k)=t: c=c+1

 End If

Next i

Text1.Text=Str(c)

该程序段运行后，Text1中显示的内容是（  ）

Const n = 100

Dim a(n) As Integer

Private Sub Form_Load()

′产生n个2位正整数，并显示在文本框Text1中，代码略

End Sub

Private Sub Command1_Click( )

    Dim i As Integer, j As Integer, left As Integer

    Dim right As Integer, m As Integer, t As Integer

    i = n-1

    Do While i > = 1

        ________

        right = n

        t = a(i)

        Do While left < = right

            m = Int((left + right)/2)

            If a(m) = t Then right = m: Exit Do

            If a(m) < t Then

                left = m + 1

            Else

                right = m-1

            End If

        Loop

        For j = i To right-1

            a(j) = a(j + 1)

        Next j

        ________________

        i = i-1

        s = “”

        For j = 1 To n

            s = s + Str(a(j))

        Next j

        List1.AddItem s

    Loop

End Sub

医院为提升服务质量，编写程序模拟就诊顺序。现获取某医生早上就诊患者的数据，分别为姓名、预约或挂号时间、就诊时长(单位：分钟)。预约挂号数据(准时到达人员数据)如图a所示，直接挂号数据如图b所示。运行程序，输出前三位就诊顺序名单，如图c所示。