学进去

循环排序。任意生成10个[1，100]之间的整数，编程实现将这10个数进行循环降序排序，即首尾相连后是一个降序序列。要求最大值位置不变，然后依次进行排列。程序运行界面如图所示：

（1）要使程序启动后，窗体的标题栏显示“循环排序”文字，可在Form_Load事件过程中添加语句________（单选，填字母）

A．Form1="循环排序"	B．Form1.Name="循环排序"
C．Form1.Caption="循环排序"	D．Form.Caption="循环排序"

（2）实现上述功能的VB程序如下，加框处的代码有误，请改正，并将划线处的代码补充完整.
Const  n=10
Dim a(1  To  n)As Integer,b(1 To n)As Boolean
Private Sub Form_Load()
随机生成n个[1，100]之间的整数，存储在数组a中，并初始化数组b为False，
按顺序输出在列表框List1中，代码略。
End Sub
Private Sub Command1_Click()

Dim max As Integer, pMax As Integer, temp As Integer

Dim i As Integer, j As Integer, k As Integer

Max=a(1): pMax=1

For i = 2 To n

  If a(i) >= max Then

Max = a(i)
    ①_____
End  If
Next i
b(pMax)=True：pMax=pMax+1
If pMax>n Then pMax=1
For i=1 To n-2
k=pMax
For j=1 To n
IfThen k =j②________
Next j
If k <> pMax Then
temp=a(k):a(k)=a(pMax):a(pMax)=temp
End If
b(pMax)=True
pMax=      ③_______
Next i
Fori=1 To n
List2. AddItem Str(a(i))

Next i

End Sub