小许最近刚学了一种数据储存结构——链表，于是他准备实验一番。链表将每一个存放数据的存储单元，分为两个部分，一个用来放数据（key），另一个用来存放下一个单元的位置（nxt）。例如：Key（1）=1，nxt（1）=10 表示当前位置的值为 1，且下一个位置在 10 号位。
现在有一串混乱且不重复的数字，小许想逐个把数字插入到链表里面，且最后访问链表时数字是有   序的。
例如：输入数据 1，3，2。那么可能的链表是：Key（1）=1，nxt（1）=3
Key（2）=3，nxt（2）=0（以 0 表示结尾）
Key（3）=2，nxt（3）=2
那么我们在最后访问时，先在位置找到 1，再跳到 nxt（1）也就是 3 号位得到 key （3），以此类推，最终依然可以输出一个有序的数列。
编写 VB 程序，实现上述链表功能。运行程序，在文本 Text1 中输入数据个数，在 Text2 中输入数列，单击“排序”按钮，在 Text3 中输出排序后的结果。程序运行界面如图所示。
请回答下列问题：
（1）若要清空窗体的标题内容“Form1”，能实现该功能的语句是

A

A

（ 单选，填字母：
A.Form1.Caption=““/B.Form1.Text=““/C.Form1.Clear）
（2）实现上述功能的 VB 程序如下，请在横线处填入合适的代码。
（3）程序中加框处代码有错，请改正。
Private Sub Command1_Click

（　　）

（　　）

Dim n As Integer,st As Integer,now As Integer,ans As String,i As Integer Dim key（20）As Integer,nxt（20）As Integer
n=Val（Text1.Text）'从文本框中读入数列到 key 数组的代码略
st=1
①

i=2或i=st+1

i=2或i=st+1

Do While i＜=n
If key（st）＞key（i） Then nxt（i）=st
st=i
Else
now=st：flag=1
Do While nxt（now）＜＞0

If key（nxt（now））＞key（i） Then nxt（i）=nxt（nxt（now）） nxt（now）=i
flag=0 Exit Do
End If
②

now=nxt（now）

now=nxt（now）

Loop
If flag=1 Then
nxt（now）=i End If
End If i=i+1
Loop now=st
Do While nxt（now）＜＞0

ans=ans+Str（key（now））+“-＞“now=nxt（now）
Loop
Text3.Text=③

ans+Str（key（now））

ans+Str（key（now））

End Sub