如下VB程序段：
Dim a(1 To 8) As Integer
a(1) = 13: a(2) = 18: a(3) = 9: a(4) = 32
a(5) = 12: a(6) = 11: a(7) = 7: a(8) = 20
start = 1: k = 1
For i = start + 1 To 8
If a(i) < a(start) Then
k = k + 1
t = a(i): a(i) = a(k): a(k) = t
End If
Next i
t = a(start): a(start) = a(k): a(k) = t
For i = k + 1 To 8
List1.AddItem Str(a(i))
Next i
执行上面代码段后，列表框List1中依次输出的数组元素值为

A．322018	B．32122018
C．203218	D．321820

小王用 VB 编写一个自动统计离散数据的“极大值”（如图 a 所示）个数的程序。 功能如下：在列表框 List1 中随机产生 n 个介于1,99的正整数，单击“统计极大值”命令按钮 Command1，程序自动统计出极大值，并将其输出到列表框 List2，且将其中的最大值输出在标签 Label1 中。程序界面如图 b 所示，实现上述功能的 VB 程序如下。（假设：数据的左右两个端点不 计入极大值，且相等的两个值也不计入极大值）。请回答以下问题：

图 a 图 b
（1）当 n=6，原始数据为“8 39 24 5 71 25”,此时极大值有：  。
（2）请在划线处填入合适的代码。 Const n = 10
Dim a(1 To n) As Integer    '存储原始数据 Dim Max(1 To n) As Integer  '存储极大值数据
Private Sub Form_Load() '原始数据初始化
Randomize
For i = 1 To n
a(i) = ①  '产生1,99间随机整数
List1.AddItem Str(a(i))
Next i End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim count As Integer, Maxa As Integer
count = 0
List2.Clear
For i = 2 To n - 1 '统计极大值，左右两边端点值除外
If   ②     Then
count = count + 1
    ③   = a(i)
End If
Next i
Maxa = 0
For i = 1 To count
List2.AddItem Str(Max(i))
If Maxa < Max(i) Then
Maxa = Max(i)
End If
Next i
Label1.Caption = "极大值中的最大值为：" + Str(Maxa) End Sub

（加试题）随机数排序程序。程序功能如下：窗体加载时生成10，100范围内的随机整数10 个存储在数组 a 中,并在列表框 List1 中显示原始数据，单击“排序”按钮，这 10 个数据按 降序排序后显示在列表框 List2 中。程序运行效果如图所示。实现上述功能的 VB代码如下，但 加框处代码有错，请改正。

 

 
Dim a(1 To 10) As Integer
Private Sub Command1 Click()
Dim i As Integer, j As Integer, x As Integer p = True
i = 1
Do While i <= 9 And p p = False
For j = 10 To i + 1 Step -1
If   a(j)< a(i)   Then   '①________
k = a(j): a(j) = a(j - 1): a(j - 1) = k: p = True
End If
Next j
i = i + 1
Loop
For i = 1 To 10

List2.AddItem Str(a(i)) Next i

End Sub
Private Sub Form_Load() Dim i As Integer
List1.Clear
Randomize ' 初始化随机函数 Rnd
For i = 1 To 10
a(i) =   Int(Rnd * 100)   '②________ List1.AddItem   Str(a(i))
Next i
End Sub

某排序程序的主要代码如下所示：
n=5
For  i = 1  To  n-1
For  j =n-1  To  i  step  -1
If  d(j) < d(j+1)  Then  k = d(j): d(j) = d(j + 1): d(j + 1) = k
Next j
Next i
在排序过程中，某一遍排序后的结果是81,77,1,76,70，则下一遍排序后的结果应该是

A．81,76,1,77,70	B．81,77,76,1,70
C．81,77,76,70,1	D．1,70,76,77,80

小孟为提高效率，对选择排序算法进行了如下改进：在数组的所有元素中找出最小和最大数据的元素，然后将这两个元素分别与第一个和最后一个元素交换数据，在余下的元素中找出最小和最大数据的元素，分别与第二个和倒数第二个元素交换数据，以此类推，直到所有元素的数据按升序排列。小赵编写的VB程序段如下：
p = 1: q = 10
Do While p < q
iMin = p: iMax = p
For i = p + 1 To q
If a(i) < a(iMin) Then
iMin = i
elseIf a(i) > a(iMax) Then
iMax = i
endif
Next i
t = a(iMax): a(iMax) = a(q): a(q) = t
    ①    
t = a(iMin): a(iMin) = a(p): a(p) = t
p = p + 1:q = q -1
Loop
要使程序实现上述算法思想，则方框中的语句是

A．If iMax = q Then iMax = iMin	B．If iMin = q Then iMin = iMax
C．If iMax = q Then iMin = iMax	D．If iMin = q Then iMax = iMin