用VB编写的函数bubble_sort是一个用冒泡方法实现排序的函数，其调用时需要三个参数：布尔类型参数sx来确定是升序还是降序，sx为True时为升序，否则为降序；整数型数组a()是待排序的数据，数据从a(1)开始存放；整数型参数n表示传入的数组长度，该函数的返回值也是一个整数型数组。所以调用此函数实现排序非常方便：
比如有一个整数型数组a(1 to 10)需要降序排序，可以直接这样调用：
a()＝bubble_sort(False，a()，10)
该函数VB代码如下：
Function bubble_sort(sx As Boolean，a() As Integer，n As Integer) As Integer()
Dim i，j，t As Integer
For i＝1 To n－1
For j＝____①____ Step－1
If ____②____ Then
If a(j)＜a(j－1) Then t＝a(j)：a(j)＝a(j－1)：a(j－1)＝t
Else
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
bubble_sort＝a()
End Function
请将代码补充完整：
①___________________________________________。
②___________________________________________。

用VB编写一个字符串分行程序，功能如下：单击“分行”按钮Command1将文本框Text1中的英文文本在列表框List1中分行显示（分行时单词不得跨行，每行字符尽可能多但不超过40个）并在标签Label1中输出总行数，运行效果如图所示。分行算法如下：
（1）将文本框中的字符串保存到变量s中；
（2）当s中字符个数超过40时，循环执行下列①、②、③步，否则跳转到（3）：
①如果第41个字符不是英文字母，则分行位置p = 40;否则，向左逐个查找，直至找到第一个非英文字母，将其位置作为分行位置p;
②截取s的前p个字符，作为新增行显示在列表框List1中，同时总行数加1 ;
③将s中未分行部分重新赋值给变量s。
（3）将s作为新增行显示在列表框List1中，同时总行数加1。

实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Commandl_Click()
Dim s As String，c As String
Dim r As Integer, total As Integer，p As Integer
total = 0
s =__①___
Do While Len(s) > 40
r = 41
c = Mid(s，r，1)
If  Not((c>= "a"And c<="z" ) Or (c>="A"Andc<="Z")) Then
p = 40
Else
’从第41个字符幵始向左找到第1个非英文字母，并将其位置值赋给p
Do While (c >= "a" And c <= "z") Or (c >= "A"
And c <= "Z")
r =__②__
c = Mid(s，r，1)
Loop
p = r
End If
List1. Addltem  Mid(s，1，p)
total =" total" + 1
s =___③___
Loop
List1. AddItem  s
total =" total" + 1
Labell. Caption ="共"+ Str(total) + "行"
End Sub

有一属于顺序结构的流程图，它不需要以下流程图中的哪个符号（   ）

A. B.     C.    D.

若输入站数a为11，人数b为2，则运行的结果为_______

A．10

B．8

C．6

D．22

下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是（1）   ，文本框Text2中显示的内容是____（2）  。
Private Sub Command1_Click()
Dim i As Integer, c As Integer, n As Integer
c =" 0:" n = 10
For i =" 1" To n
If n Mod i =" 0" Then c =" c" + 1
Next i
Text1.Text = Str(n)
Text2.Text = Str(c)
End Sub