请认真阅读并分析下面Visual Basic程序代码，按要求完成题目。
Dim a(1 To 6) As Integer
Dim n, i, j, k As Integer
Private Sub Command1_Click()
For i =" 1" To n - 1
For j = （1） To n
If a(i) < a(j) Then
k = a(i): （2） : a(j) = k
End If
Next j
Next i
For i =" 1" To n
list2.AddItem Str(a(i))
Next I
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii =" 13" Then
n =" n" + 1
a(n) = Val( (3) )
List1.AddItem Str(a(n))
Text1.Text = "": Text1.SetFocus
End If
End Sub
（1）程序中出现了text和list两种控件，其中list控件的中文名称是列表框，text控件的中文名称是 。
（2）在上述程序段中3处带序号的空白地方补充恰当的语句，完善程序。
