下面程序段用于求两数中的较大数（结果保存到变量maxn中），不正确的是（ ）

A．maxn=x If y>="maxn" Then maxn=y

B．If x>y Then maxn="x" Else maxn=y

C．maxn=x If y>="x" Then maxn=y

D．If y>="x" Then maxn=y

maxn=x

对数组a中的n个元素进行排序，生成升序的数据序列，结果如下表所示：

a(1)	a(2)	a(3)	……	a(n-2)	a(n-1)	a(n)
17	39	48	……	79	79	100

 
实现上述功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
Const n = 8
Dim a(1 To n) As Integer, left As Integer, right As Integer, m As Integer
Dim i As Integer, j As Integer, t As Integer

’读取一组数，存储在数组a中，代码略

 For i = 2 To n

    left = 1

    __________________

    Do While left <= right

m = (left + right) \ 2

If a(i) < a(m) Then right = m - 1 Else left = m + 1

    Loop

__________________

    t = a(i)

For j = i To m + 1 Step -1

a(j) = a(j - 1)

    Next j

    a(m) = t

Next i

’输出排序结果，代码略
End Sub

某超市面食区共有5种面食品种，其价格依次为6.20、4.5、5.5、2、3，若采用冒泡排序算法对其进行从小到大排序，则第二趟的排序结果是（ ）

A．2 5.5 3 6.2 4.5

B．2 3 6.2 4.5 5.5

C．2 4.5 6.2 3 5.5

D．2 3 5.5 4.5 6.2

对10个数据进行冒泡排序，需要比较的次数是( )

A．90	B．110
C．45	D．55

数组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