（加试题）有如下程序段：
i=6 : flag=True
Do While i>=4   And   flag=True flag=False
k=i
For j=1 To i-1
If a(k)>a(j)  Then k=j
Next j
If k<>i Then
t=a(i) : a(i)=a(k) : a(k)=t flag=True
End If
i=i-1
Loop
数组元素 a(1)到 a(6)的值依次为“24，7，37，45，11，52”，经过该程序段“加工”后， 数组元素 a(1)到 a(6)的值依次为（   ）

A．7，11，37，45，24，52	B．45，52，37，24，11，7
C．7，11，24，45，37，52	D．24，52，37，45，11，7

暑期旅游旺季，各地旅行社纷纷给出了国外游的各种行程报价。小宇为了同学们方便选择出行路线及价格，设计了一个程序。在文本框Text1中输入“国外”或“国内”，在文本框Text2中输入出游的天数，单击“线路及报价查询”按钮Command1，将在列表框中输出按价格从高到低排序的线路名称及报价信息。

实现上述功能的VB代码如下，但加框处代码有错，请改正。
Dim g(100) As String, day(100) As Integer, xl(100) As String, pri(100)
As Integer
Const n=100
Private Sub Form_Load()
'从数据库中读取数据并存储在相关变量中。g()数组存储国内/国外，day()数组存储出游天数，xl()数组存储旅游线路名称，pri()数组存储行程报价。
'代码略
End sub
Private Sub Command1 Click()
Dim i As Integer，j As Integer
For i=I To n\2

For j=I To n-i

If pri(j)>pri(j+1) Then
t=pri(j):pri(j)=pri(j+1):pri(j+1)=t
End if

Next j

   '①
If pri(j)<pri(j-1) Then
t=pri(j):pri(j) pri(j-1):pri(j-1)=t
End If

Next j

Next i
List1.Clear
i=1
Do While i<=n And g(i)=Text1.Text And day(i)=Val(Text2,Text)

    '②

i=i+1

Loop
（1）程序中①处加框代码应改为________________________________________。
（2）程序中②处加框代码应改为________________________________________。

某同学设计了一个排序算法，先将数组a中奇数位置的元素、偶数位置的元素分别进行排序，然后再进行后续处理，直至所有元素按降序排列。算法的VB程序段如下：
‘待排序数据已存储在数组a中(a(1)～a(n))

上述程序段中3处方框处的代码分别为

A．①i+1 To n Step 2   ②2 To n Step 2   ③a(j+1)=t

B．①i+2 To n Step 2   ②3 To n Step 2   ③a(j+1)=t

C．①i+2 To n Step 2   ②2 To n Step 2   ③a(j)=t

D．①i+1 To n Step 2   ②3 To n Step 2   ③a(j)=t

数组a中存放着1到20的正整数，要求对其中的元素进行分段排序，在Text2中输入每段元素的个数，在文本框Text3中显示每段降序排序后的数据，其中多余的元素不做处理。具体程序实现如图所示。

实现该功能的VB程序代码如下，请在划线处填入合适代码。
Dim a(0 To 100) As Integer
Const high = 16
Private Sub Form_Load()
Randomize
For i = 1 To high
a(i) = Int(Rnd * 20) + 1
Text1.Text = Text1.Text + Str(a(i))
Next i
End Sub
Private Sub Command1_Click()
Dim p As Integer, q As Integer, t As Integer
Dim m As Integer, n As Integer, k As Integer
m = Val(Text2.Text)
For i = 1 To ①________
c = ""
For j = 1 To m
p =②________
q = i * m
k = sort(p, q)
If a(k) <> a(p) Then
t = a(p): a(p) = a(k): a(k) = t
End If
c = ③________
Next j
Text3.Text = Text3.Text + " " + c
Next i
End Sub
Function sort(f As Integer, g As Integer) As Integer
s = f
For i = f To g
If a(i) > a(s) Then
s = i
End If
Next i
sort = s
End Function

某排序算法的VB程序段如下：
k=1
For i=1 To 2
For j=1 To 6-2*i
If k* a(j)<k*a(j+2)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)的初始值依次为“15，11，58，38，26，9”，该程序段执行后，数组a元素的值分别为（   ）

A．58，9，26，11，15，38

B．58，38，26，11，15，9

C．15，38，26，11，58，9

D．58，38，26，15，11，9