学进去

小岩设计了一个顺时针旋转矩阵的程序，其功能为：运行程序时，在文本框Text1中输入矩阵规模n，点击“产生矩阵”按钮Command1，在列表框List1中显示一个n*n的矩阵，该矩阵数据由从1开始的连续自然数组成。点击“旋转矩阵”按钮Command2，该矩阵顺时针旋转90度并显示在列表框List2中，此后每点一次“旋转矩阵”按钮Command2，列表框List2中显示的矩阵顺时针旋转90度。请完成程序填空。

Dim n As Integer
Dim st As String
Dim a(1 To 100) As Integer
Dim b(1 To 100) As Integer
Private Sub Command1_Click()
’产生矩阵，代码略
End Sub
Private Sub Command2_Click()   ’旋转矩阵
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
End Sub
Function adj(a As String, n As Integer) As String
’在字符串a前加入适当的空格，使a的长度为n位，代码略
End Function