某排序算法的VB程序段如下：
k=1
For i=1 To 2
For j=1 To 6-2*i
If k* a(j)<k*a(j+2)Then
t=a(j): a(j)=a(j+2): a(j+2)=t

End if

k=-k

Next j
Next i
数组元素a(1)到a(6)的初始值依次为“15，11，58，38，26，9”，该程序段执行后，数组a元素的值分别为（   ）

A．58，9，26，11，15，38

B．58，38，26，11，15，9

C．15，38，26，11，58，9

D．58，38，26，15，11，9

学校组织运动会，开幕式的时候要求每个班排成一个方阵，为了能快速地排成方阵，小张编写了一个 VB 程序，程序功能：在文本框 Text1 中输入每一行的人数，在文本框 Text2 中输入班级人数（输入人数<=60），单击“排队”按钮 Cmd1 后，在列表框 List1 中按学号显示队形。程序运行界面如下图所示，程序代码如下，请回答下列问题：


（1）以上代码的事件处理过程名是___________。
（2）程序代码中加框处有两处错误，请改正：①___________② ___________
（3）程序代码中，请将③处的代码补充完整___________

在信息加工中，经常要对被处理的数据进行排序，在排序时经常要进行数据的交换。下面有四个程序段：
 
其中能正确地将x和y两个变量中的数据进行交换的程序段有（   ）

A．1个

B．2个

C．3个

D．4个

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
i = 1
flag = True
Do While   '改错
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
Label3.Caption = "排序过程的加工遍数为" +       '填空
For i = 1 To n
List2.AddItem Str(a(i))
Next i
End Sub
（1）代码“Private Sub Command1_Click()”中的Click是___________。（单选，填字母：

A．对象名/

B．属性名/

C．事件名）

（2）程序代码中，Do While语句加框处有错，请改正。__________________
（3）程序代码中，将Label3.Caption赋值语句补充完整。_________________
（4）程序代码中，flag值为___________表示某一遍加工中发生过交换。