程序界面如图所示，左边列表框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#}。

原始数据：

方法一：

①向右旋转1步：

②向右旋转2步：

③向右旋转3步：

方法二：

①将a(1)值放至旋转3个位置后位置a(4)：

②将原a(4)值放至旋转3个位置后位置a(3)：

③将原a(3)值放至旋转3个位置后位置a(2)：

④将原a(2)值放至旋转3个位置后位置a(1)：

有n个数存储在数组a中，给定一个整数p(1≤p≤n)，将数组a的前p个数与后n-p个数分别向右旋转k次。例如数组a的各个数值分别是1,2,3,4,5,6,7，当p=4，k=1时，旋转后的结果为4,1,2,3,7,5,6。小明为此编写了VB程序，功能如下：在文本框Text2、Text3中依次输入p和k的值，单击“旋转数组”按钮Command1后，数组旋转后结果显示在Text4中。程序运行界面如图1所示，请回答下列问题：

图1

实现上述功能的VB程序如下，但加框处代码有错，请改正。

Const n = 10

Const maxn = 20

Dim a(1 To n) As Integer, index(1 To n) As Integer, flag(1 To n) As Boolean

Private Sub Form_Load()

Dim i As Integer

Randomize

For i = 1 To n

 flag(i) = False

 a(i) = Int(Rnd() * maxn) + 1

 List1.AddItem Str(a(i))

Next i

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer

Dim k As Integer

For i = 1 To n

 For j = 1 To n

  If flag(j) = False Then k = j: Exit For

 Next j

 For m = k + 1 To n

  If Then k = m     ‘⑴

 Next m

 index(i) = k

 flag(k) = True

Next i

For i = 1 To n

 List2.AddItem      ‘⑵

Next i

End sub

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#} 

程序运行界面如题图所示。运行程序后，输入梯子高度a、手伸直高度b、可用力气s的值，单击“计算”按钮（Command1），在文本框Text4中输出小林最多能摘得的苹果数ans。

i=1

Do While <=6

    t= Int(Rnd*10)+1

    If t Mod 2=i Mod 2 Then a(i)=t: i=i+1

Loop

For i=1 To 2

    k=1

    For j=1 To 6-i*2

        If a(j)*k>a(j +2)*k Then

            t=a(j): a(j)=a(j+2): a(j+2)=t

        End If

        k=-k

    Next j

Next i

执行该程序段后，数组元素a(1)到a(6)的值可能是（   ）

编写VB程序，实现上述挑选、组队功能。运行程序，在列表框List1中显示m名身高大于等于175cm的学生信息，且根据体重数值降序排序。单击“组队”按钮，在符合条件的情况下尽可能多的两两组队，并将组队结果显示在列表框List2中。程序运行界面如图所示，实现上述功能的VB程序如下。

请回答下列问题：