插入排序。小明用VB设计程序，主要功能如下：随机产生10个介于1到100之间的正整数数列，按升序排序后显示在List1列表框中，在文本框Text1中输入1个100以内的正整数，单击“插入”按钮Command1后将其插入到数列中，并保持数列仍然有序，显示在列表List2中，同时在标签Label4中显示插入的位置，程序界面如下图所示。

实现上述功能的VB程序代码如下，但是有两个地方有误，请改正。
Dim a(1 To 15) As Integer
Dim i, j As Integer
Const n=10
Private Sub Form_Load()

Randomize '随机生成n个1到100之间的正整数

For i = 1 To n

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

Next i

'将10个数从小到大排序

For i = 1 To n-1

k = i

For j = i + 1 To n

If  a(k) < a(j)  Then k = j ‘（1）

Next j

If i <> k Then

   t = a(i): a(i) = a(k): a(k) = t

End If

Next i

'将排好序的数输出在列表框Listl中

List1.Clear

For i = 1 To n

List1.AddItem Str(a(i))

Next i

End Sub
Private Sub Command1_Click()

Dim key As Integer

key = Val(Text1.Text)

i = 1

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

i = i + 1

Loop

Label4.Caption = "该数插入的位置是：" + Str(i)

If i = 11 Then

  a(i) = key

Else

 For j = n+1 To i + 1 Step -1
a(j-1) = a(j+1) ‘（2）
Next j
a(i) = key

End If

List2.Clear

For i = 1 To 11

List2.AddItem a(i)

Next i

End Sub

（加试题）所谓双向排序是在一遍加工中先从上到下把最大的元素送到最下的位置，再从下到上把最小的元素送到最上的位置。实现上述功能的vb代码如下：
Dim a(1 to 100) as integer
Const n=10
Private Sub form_load()
’生成n个随机数，存储在数组a中，代码略
End Sub
Private Sub command1_click()
Dim I as integer,j as integer
For   　   　① 
For j=i to n-i
If a (j)>a(j+1) then
t=a(j):a(j)=a(j+1):a(j+1)=t
End If
Next j
For   ②
If a(j)<a(j-1) then
t=a(j):a(j)=a(j-1):a(j-1)=t
End If
Next j
Next i
for i=1 to n
List2.additem str(a(i))
Next i
End Sub
程序中①②处最合适的语句是（ ）

A．① i=1 to n-1    ②j=n to i+1 step -1

B．① i=1 to n\2    ②j=n-i to i+1 step -1

C．① i=1 to n\2    ②j=n to i+1 step -1

D．① i=1 to n-1    ②j=n-i to i+1 step -1

（加试题）小李基于冒泡排序算法编写了一个VB程序，功能如下：在文本框Text1 中显示排序前的数据，单击“排序”按钮Command1,在文本框Text2 中显示剔除重复数据后的升序排序结果。程序运行界面如下图所示。

实现上述功能的VB程序如下，但加框处代码有错，请改正。
Const n = 10
Dim a(1 To n) As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t As Integer, bottom As Integer
'获取排序前数据依次存储在数组a 中，并在文本框Text1 中显示。代码略
bottom = n : i = 1
Do While i <= bottom - 1

For j = bottom To i + 1 Step -1

If a(j) < a(i) Then
t = a(j): a(j) = a(j - 1): a(j - 1) = t
ElseIf a(j) = a(j - 1) Then ' 相邻两个数据相等，进行剔除处理
a(bottom)=a(j)   
bottom = bottom - 1
End If

Next j

i = i + 1

Loop
Text2.Text = " "
For i = 1 To bottom

Text2.Text = Text2.Text + Str(a(i))

Next i
End Sub

有如下VB程序段：
For i = 1 To 2
For j = 5 To i + 1 Step -1
If d(j) >d(i) Then
t = d(j): d(j) = d(i): d(i) = t
End If
Next j
List1.additem  str(d(i+1))
Next i
数组元素d(1)到d(5)的值依次为34，25，46，17，78，经过该程序段“加工”后，则List1列表框中显示的结果为（  ）

A．78 46 34 17 25	B．25 34
C．17 25 34 46 78	D．78 46

（加试题）下列 VB 程序段的功能是将数组元素 a(1)到 a(n)按非递减序排序：
For i = 1 To n - 1
For j = 补充代码
If a(j) > a(j + 1) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
End If
Next j
Next i
方框中的代码将会是以下四句中的一句：
① i To n - 1 ② n - 1 To i Step -1
③ 1 To n - i ④ n To i+1 Step -1
正确的选项是

A．①②

B．③④

C．①④

D．②③