数组a中存放着1到20的正整数，要求对其中的元素进行分段排序，在Text2中输入每段元素的个数，在文本框Text3中显示每段降序排序后的数据，其中多余的元素不做处理，具体界面如图所示：

实现该功能的VB程序如下，请回答下列问题：
（1）要使程序运行时，窗体Form1标题显示“数组分段排序”，可在Form_Load事件过程中添加语句_______________(单选，填字母：

A．Form1. Caption=“数组分段排序”/

B．Form1. Text=“数组分段排序”/

C．Text1. Text=“数组分段排序”)。

（2）程序代码中的加框处有错误,请改正。
__________________________
（3）请在划线处填入合适的程序代码。
①________________________
②________________________
Dim a(0 To 100) As Integer
Const high = 16
Private Sub Form_Load()
For i = 1 To high
Randomize
a(i) = Int(Rnd ∗ 20) + 1
Text1.Text = Text1.Text + Str(a(i))
Next i
End Sub
Private Sub Command1_Click()
Dim p As Integer, q As Integer, t As Integer,m As Integer, n As Integer, k As Integer
m = Val(Text2.Text)
For i = 1 To ① 
c = ""
For j = 1 To m
p=j '改错
q = i ∗ m
k = sort(p, q)
If a(k) <> a(p) Then
t = a(p): a(p) = a(k): a(k) = t
End If
c = c + Str(a(p))
Next j
Text3.Text = Text3.Text + "" + c
Next i
End Sub
Function sort (f As Integer, g As Integer)As Integer
s = f
For i = f To g
If a(i) > a(s) Then
②   
End If
Next i
sort = s
End Function