m = (1 + n) \ 2       ‘n为数组元素的个数，m为数组中间位置元素的下标

For i = 1 To n

    If a(i) < a(m) Then t = a(i): a(i) = a(m): a(m) = t

Next i

p = m: q = m

For i = 1 To n - 2

    If i Mod 2 = 1 Then

        k = q + 1: q = q + 1

    Else

        k = p - 1: p = p - 1

    End If

    pos = k

    For j = 1 To n

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

    Next j

    If pos > k Then

        t = a(pos): a(pos) = a(k): a(k) = t

    End If

Next i

上述程序段方框处的代码为（  ）

i=1

Do While i<=5

    If i = 0 or a(i - 1)<= a(i) Then

        i=i+1

    Else

        t=a(i): a(i)=a(i-1): a(i-1)=t

        i=i-1

    End If

Loop

数组元素a(0)到a(5)依次为：“0，41，22，53，99，36”，经过该程序段处理后，数组元素a(3)的值为（   ）

count = 0

For i = 1 To 20

    a(i) = Int(Rnd ∗ 100) + 1

Next i

For i = 1 To 20

Next i

For i = 1 To 100

    If b(i) <> 0 Then count = count + 1

Next i

Label1.Caption= "不重复数字个数" + Str(count)

为实现上述功能,则程序①处应填入的语句为（   ）

Private Sub Form_Click()

    Dim arr(1 to 10, 1 to 10） As Integer

    Dim i As Integer, j As Integer

    For i =2 To 4

        For j = 2 To 4

            arr(i, j） = i * j

        Next j

    Next i

    Label1.Caption =str(arr(2, 2）+ arr(3, 3))

End Sub

for i in range(1,5):

    print(i, end="," )

图a

为了梳理产品组件的组装顺序，并计算所有组件安装完成所需的最短时间，编写程序模拟组装过程：先同时组装前置总数为0的组件，完成后更新每个组件的前置总数，再重复以上步骤，直至所有组件安装完毕，程序运行结果如下图b所示，请回答下列问题:

图b