忆知数组A(4,4),各个元素在运行程序时被赋值并打印,形成四除非方阵。请在【 】和【 】处填处所需的内容,使产生一个转置矩阵(即行列互换),仍放在数组A中,并打印出来。例如: 1 2 3 4 1 2 3

admin2010-03-30  39

问题 忆知数组A(4,4),各个元素在运行程序时被赋值并打印,形成四除非方阵。请在【  】和【  】处填处所需的内容,使产生一个转置矩阵(即行列互换),仍放在数组A中,并打印出来。例如:
   1    2    3    4
   1    2    3    4
   1    2    3    4
   l    2    3    4
   1    1    1    1
   2    2    2    2
   3    3    3    3
   4    4    4    4
   Private Sub Command1_Click()
   Dim a(4,4)
      For k=1 To 4
         For j=1 To 4
           a(k,j)=j
           Print a(k,j);
         Next
         Print
      Next
   For k=2 To 4
   For j=1 To【  】
         t=a(j,k)
         a(j,k)=【  】
         a(k,j)=t
      Next
    Next
   For k=1 To 4
      Print a(k,1);a(k,2);a(k,3);a(k,4)
      Next
   End Sub

选项

答案a,a(k,j)

解析 本题的难点是数组的下标操作。程序的前半部分是产生数据,后半部分是数据交换。空打印 Print操作是换行。
转载请注明原文地址:https://jikaoti.com/ti/99q0FFFM
0

随机试题
最新回复(0)