n个数据的冒泡排序需要经过n-1遍加工，每一遍加工自下而上比较相邻两个数据，把较小者交换到上面。小刘发现：当某一遍加工过程中没有数据交换，说明数据已经有序，无需进一步加工。为此，小刘对算法进行优化，编写了一个VB程序，功能如下：运行程序时，在列表框List1中显示排序前数据，单击“排序”按钮Commaiid1，在列表框List2 中显示这些数据按升序排序后的结果，在标签Label3中显示排序过程的加工遍数。运行效果如下图所示。

实现上述功能的VB代码如下，但加框处代码有错，请改正。
Dim a(1 To 8) As Integer
Dim n As Integer
Private Sub Form_Load()
'n=8，排序前数据存储在数组a中，并在列表框Listl中显示
'代码略
End Sub
Private Sub Command1_Click()
Dim flag As Boolean 'flag值为True表示一遍加工中发生过交换
i = 1
flag = True
Do While '（1）  

i <=" n" - 1 Or flag = True

flag = False
For j =" n" To i + 1 Step -1
If a(j) < a(j - 1) Then
k =" a(j):" a(j) =" a(j" - 1): a(j - 1) = k
flag = True
End If
Next j
i =" i" + 1
Loop

Str(i)

Label3.Caption = "排序过程的加工遍数为" +    '（2）

For i =" 1" To n
List2.AddItem Str(a(i))
Next i
End Sub

在VB中，语句Dim s As Integer的功能是

A．定义一个字符串型变量s	B．定义一个日期型变量s
C．定义一个整型变量s	D．定义一个单精度型变量s

有如下Visual Basic程序段：
a = 9
b = "Command Button"
c = Len(b)
If a > 0 And a < c Then
Label1.Caption =Mid(b,a,6)
Else
Label1.Caption = "error"
End If
该程序段运行后，在标签Label1上显示的是____________

A．error

B．6

C．Button

D．Command

下列各组控件都具有Caption属性的是( )

A．按钮、文本框	B．标签、列表框
C．按钮、标签	D．文本框、列表框

《孙子算经》中提出“物不知其数”的问题，此数以3除余2，以5除余3，以7除余2。下列VB程序用来求指定范围内满足该条件的自然数及其个数。程序界面如图所示，

VB程序段如下：
Private Sub Command1_Click()
k = 0 '用来计数
Max = 600     '指定范围600以内
n = 9
Do While n <= Max
Loop
Label1.Caption = Str(Max) & "范围内满足问题的数有" & Str(k) & "个"
End Sub
方框中的代码由以下五部分组成：
① n=n+7
② k = k + 1
③ List1.AddItem Str(n)
④ End If
⑤ If n Mod 3 = 2 And n Mod 5 = 3 Then
代码顺序正确的选项是（ ）

A．⑤①②③④

B．②⑤③①④

C．⑤③②④①

D．⑤①③④②