对一个n×n 的矩阵以“行”为单位进行升序排序，如图所示是一个4×4 的矩阵以行为单位进行升序排序。

李华编写了实现上述功能的程序，程序功能如下：程序运行时，在文本框Text1 中输入n（1＜=n＜=10）单击“产生”按钮Command1 产生n×n 个随机数，随机数的范围为[0，9]，随机存储在数组a 中，并以矩阵的形式在列表框List1 上显示。单击“排序”按钮Command2，对矩阵以“行”为单位进行升序排序，并在列表框List2 输出排序后的矩阵。在程序运行界面如下图所示。

实现上述功能的VB 程序如下，请在横线处填入合适的代码。
Dim n As Integer
Dim a（1 To 100）As Integer
Private Sub Command1_Click（　　）
Dim i As Integer,s As String
s=““

n=Val（Text1.Text）

n=Val（Text1.Text）

For i=1 To n*n

a（i）=Int（Rnd*10）

a（i）=Int（Rnd*10）

s=s+Str（a（i））
If i Mod n=0 Then
List1.AddItem s
s=““
End If
Next i
End Sub
Private Sub Command2_Click（　　）
Dim i As Integer,j As Integer,t As Integer
Dim s As String
s=““
For i=1 To n*n
k=i
For j=i+1 To 

（（i-1）\n+1）*n

（（i-1）\n+1）*n

If a（j）＜a（k） Then k=j
Next j
If k＜＞i Then t=a（k）：a（k）=a（i）：a（i）=t

s=s+Str（a（i））

s=s+Str（a（i））

If i Mod n=0 Then
List2.AddItem s
s=““
End If
Next i
End Sub