對(duì)一個(gè)n×n 的矩陣以“行”為單位進(jìn)行升序排序，如圖所示是一個(gè)4×4 的矩陣以行為單位進(jìn)行升序排序。

李華編寫了實(shí)現(xiàn)上述功能的程序，程序功能如下：程序運(yùn)行時(shí)，在文本框Text1 中輸入n（1＜=n＜=10）單擊“產(chǎn)生”按鈕Command1 產(chǎn)生n×n 個(gè)隨機(jī)數(shù)，隨機(jī)數(shù)的范圍為[0，9]，隨機(jī)存儲(chǔ)在數(shù)組a 中，并以矩陣的形式在列表框List1 上顯示。單擊“排序”按鈕Command2，對(duì)矩陣以“行”為單位進(jìn)行升序排序，并在列表框List2 輸出排序后的矩陣。在程序運(yùn)行界面如下圖所示。

實(shí)現(xiàn)上述功能的VB 程序如下，請(qǐng)?jiān)跈M線處填入合適的代碼。
Dim n As Integer
Dim a（1 To 100）As Integer
Private Sub Command1_Click（　?。?br />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（　?。?br />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