题目

小岩设计了一个顺时针旋转矩阵的程序，其功能为：运行程序时，在文本框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 答案：【1】a(i+(n-j)*n)

查看本题答案和解析