学进去

小王基于冒泡排序算法编写了一个VB程序，实现数据分段排序。功能如下：在文本框Text1中输入产生的数据个数，单击“产生原始数据”按钮Command1，随机产生若干个不重复的整数依次存储在数组a中，并显示在文本框Text2中。在文本框Text3中输入每段数据的元素个数及排序的次序（0表示升序，1表示降序），数据之间用空格隔开，提取数据后，依次存储在数组b中。单击“排序”按钮Command2，根据要求输出数据排序的结果。部分运行界面如图所示。

（1）若在文本框Text1中输入“10”，文本框Text2中显示“29 25 95 52 50 38 46 51 23 44”，在文本框Text3中输入“3 1 4 0 3 0”，则排序后数据序列为_____（单选，填字母）。
A. 25 29 95 52 50 46 38 51 44 23             B. 95 29 25 38 46 50 52 23 44 51
C. 95 29 25 38 46 50 52 51 44 23                    D. 23 25 29 38 44 46 50 51 52 95
（2）请在划线处填入合适的代码。
Dim a(1 To 100) As Integer
Dim b(1 To 100) As Integer
Dim n As Integer
Function sort(x As Integer, m As Integer, k As Integer) As Integer
Dim r As Integer, t As Integer
Dim i As Integer, j As Integer
If k = 0 Then k = -1
For i = 1 To m - 1
       For j = x To x + m - 1 - i
             If   __________   Then
                    t = a(j)
                    a(j) = a(j + 1)
                    a(j + 1) = t
             End If
       Next j
Next i
sort = x + m
End Function
Private Sub Command1_Click()
n = Val(Text1.Text)
'产生n个不重复的随机整数依次存储在数组元素a(1)到a(n)中，并显示在文本框Text2
代码略
End Sub
Private Sub Command2_Click()
Dim y As Integer, d As Integer, c As Integer
Dim st As String, s As Integer
y = 1
st = Text3.Text
For i = 1 To Len(st)
       ch = Mid(st, i, 1)
       If ch >= "0" And ch <= "9" Then
             __________
       Else
             If y Mod 2 = 1 Then s = s + b(y)
             y = y + 1
       End If
Next i
If s <> n Then
       MsgBox ("排序数据量与数据总量不相等")
Else
       c = 1
       d = 1
       Do While d <= n
             d = __________
             c = c + 1
       Loop
       For i = 1 To n
             Text4.Text = Text4.Text + Str(a(i))
       Next i
End If
End Sub