a(1)=6:a(2)=8:a(3)=7:a(4)=3:a(5)=1:a(6)=2:a(7)=5:a(8)=4

i = 1: j = 8

key = a(1)

Do While i < j

 Do While i < j And a(j) >= key

  j = j - 1

 Loop

 a(i) = a(j)

 Do While i < j And a(i) <= key

  i = i + 1

 Loop

 a(j) = a(i)

Loop

a(i) = key

For i = 1 To 8

 Label1.Caption=Label1.Caption++Str(a(i))

Next i

执行该程序段，标签Label1上显示的内容是(  )

按纪念品价值进行分组，每组总价值不超过限定值w且最多包含两件，要求分组数最少。编写VB程序解决该问题，程序运行时，在文本框Text1中依次输入每件纪念品的价格(不超过w)，以逗号分隔，在文本框Text2中输入限定值w，单击“分组”按钮，在标签Label2上输出最少的分组数。程序运行界面如图所示。

i=1: j=8: n=1

k=Val(Text1. Text)

Do While i<=j

    m=(i+j)2

    IF k<d(m) Then j=m-1 Else i=m+1

    n=n+1

Loop

数组元素d(1)到d(8)依次为3，9，14，17，25，29，32，35，在文本框 Text1输人“14”。执行程序后，下列说法不正确的是（  ）

Dim tmp As Integer

Dim a(1 To 10) As Integer

Private Sub Command1_Click()

  For i=2 To 10

Text1.Text = ""

For i= 1 To 5

  For j=i+1 To 6

  If s(i) + s(i) < s(j) + s(i) Then

    t= s(j): s(j)= s(i): s(i)=t

  End If

  Next j

Next i

For i=1 To 6

  Text1.Text = s(i) + Text1.Text

Next i

  If  Then

    tmp = a(i)

      For j=  To 1 Step -1    ‘依次后移

        If tmp > a(j) Then Exit For

        a(j+1)= a(j)

      Next j

          ‘插入数据

    End If

  Next i

  For i= 1 To 10

    List1.Addltem a(i)

  Next i

End Sub

要实现上述功能，方框①②③中的语句分别是（  ）

Dim a(1 To 10) As Integer，b(1 To 10) As Integer

k = 0

For i = 10 To 1 Step -1

Do While b(i) <> 0 k = k + 1

a(k) = i: b(i) = b(i) - 1

Loop

Next i

若 a(1)～a(10)的值分别为 7，9，8，1，9，4，4，2，1，1，则运行以上程序后，下列说法正确的是（  ）