小王設(shè)計(jì)了一個(gè)順時(shí)針旋轉(zhuǎn)矩陣的程序，其功能為：運(yùn)行程序時(shí)，在文本框Text1中輸入矩陣規(guī)模n,點(diǎn)擊“產(chǎn)生矩陣”按鈕command1，在列表框List1中顯示一個(gè)n*n的矩陣，該矩陣數(shù)據(jù)由從1開始的連續(xù)自然數(shù)組成。點(diǎn)擊“旋轉(zhuǎn)矩陣”按鈕command2，該矩陣順時(shí)針旋轉(zhuǎn)90度并顯示在列表框List2中，此后，每點(diǎn)一次“旋轉(zhuǎn)矩陣”按鈕command2，列表框List2中顯示的矩陣順時(shí)針旋轉(zhuǎn)90度。

（1）運(yùn)行程序，在文本框Text1中輸入5，點(diǎn)擊“產(chǎn)生矩陣”按鈕command1，再連續(xù)點(diǎn)擊三次command2按鈕，則列表框List2中第一行顯示的內(nèi)容是

510152025

510152025

。
（2）實(shí)現(xiàn)此程序的代碼如下，請(qǐng)完成程序填空。
①

a（（n-j）*n+i）

a（（n-j）*n+i）

②

b（i）

b（i）

③

sa

sa

Dim n As IntegerDim st As String
Dim a（ 1 To 1005 As Integer
Dim b（ 1 To 100）As Integer
Private Sub Command1_Click（　?。?br />n=Val（ Text1.Text）
For i=1 To n*n
a（i）=i
Next i
For i=1 To n
st-““
For j=1 To n
st-st+adj（ Str（a（i-1）*n+j）），3）
Next j
List1.AddItem st
Next i
End Sub
Private Sub Command2_Click（　?。?br />List2.Clear
For i=1 To n
st-““
For j=1 To n
b（（i-1）*n+j）=①
st=st+adj（Str（b（（i-1）*n+j）），3）
Next j
List2.AddItem st
Next i
For i=1 To n*na（i）=②
Next i
End Sub
'adj函數(shù)的功能：在字符串a(chǎn)前加入適當(dāng)?shù)目崭瘢筧的長度為n位Function adj（a As String,n As Integer）As String
Dim sa As String
na=Len（a）：sa=a
For i=1 To n-na
sa=““sa
Next i
adj=③
End Function