学进去

小许最近刚学了一种数据储存结构——链表，于是他准备实验一番。链表将每一个存放数据的存储单元，  分为两个部分，一个用来放数据（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.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
     ①   
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(now) = i
flag = 0
Exit Do
End If
②          
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 =     ③   
End Sub