程序界面如图所示，左边列表框List1中显示数据（成绩和姓名），单击 “开始排序”按钮（Command1），排序后的结果按成绩从高到低显示在列表框List2中。

解决此问题的排序部分的程序段如下：

Dim result(1 To 10) As Single

Dim name(1 To 10) As String

Private Sub Command1_Click( )

Dim I, J, K, X As Single, Y As String

For I = 1 To 9

    K = I

    For J = I + 1   To  10

        If      ①      Then K = J

    Next J

    If K <> I Then

        X = result(I) : result(I) = result(K) :       ②      

        Y = name (I) :  name (I) = name (K)   :  name (K) = Y

    End If

Next I

    For I = 1  To  10

        List2.AddItem Str(result(i)) + "     " + result(i)

    Next i

End Sub

Private Sub Form_Load()

       ' 此过程用于对数组a和数组b进行初始赋值，代码略

End Sub

在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：

程序中①划线处应填入{#blank#}1{#/blank#}。

程序中②划线处应填入{#blank#}2{#/blank#}。

s = 0：x = 1

Do While x <= 5 s = s + x

x = x + 2 Loop

该程序段运行后，语句“x <= 5”执行的次数是（  ）

①两位D组裁判分别打“难度分”，取平均值作为该参赛选手的最终难度分。

②五位E组裁判分别打“完成分”，在5个E组打分结果中，去掉一个最高分和一个最低分，然后取平均值作为该参赛选手的最终完成分。

③难度分和完成分之和，即该参赛选手的最终得分。

例如：某参赛选手打分如下：

该选手“难度分”为(6.5+6.9)/2=6.7。E组裁判打分去掉一个最高分和一个最低分之后，计算“完成分”为(9.0+8.3+8.8)/3=8.7。所以该选手最终得分为6.7+8.7=15.4分。

小杜编写一个VB程序:程序运行时从数据库读取参赛选手人数和参赛选手的打分数据，依次存储在数组a中;单击“统计”按钮，依据数组a中的相关数据统计各选手的“难度分”“完成分”和“最终得分”，并在列表框List1中输出。数组a各元素的含义如下，程序运行界面如图所示。

实现上述功能的VB程序如下，请回答下列问题：

若生产时间为20，则可生产编号为1、2、5的商品，总价值为10+16+15=41。

编写一个VB程序，实现如下功能：在文本框Text1中依次输入各商品（数量小于等于10件）的生产时间和价值（整数用逗号分隔并以逗号结尾），在文本框Text2中输入总加工时间（至少可以生产一件商品），单击“确定”按钮Command1后，在列表框List1中显示最大的总价值和生产的商品编号。程序运行界面如图所示。

For i=1 To 3

    For j=i+1 To 7

        If a(j)< a(i) Then

            k= a(j): a(j)= a(i): a(i)=k

            c=c+1

        End If

    Next j

    s= Str(a(i))+s

Next i

Text1.Text=Str(c) & ":" & s

数组元素a(1)至a(7)中值分别为3，9，1，5，8，6，2，该程序段运行后，文本框Text1中显示的内容是（   ）