忆知数组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
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
第1题:
下面程序的功能是:将数组a下标为偶数的元素从小到大的排序,其他元素不变。给定的程序不完整,请在画线处填入适当的内容,回答 42~44 题。 注意:不得增行或删行,也不得更改程序的结构!
第42题:请填写【1】处标准答案。
第2题:
利用随机函数产生整数给含100个元素数组赋值,输出该数组,按每行5个元素的形式安排输出,统计能被3或7整除的元素的个数并输出统计结果
第3题:
【判断题】可以对结构体数组的各个元素单独赋值
A.Y.是
B.N.否
第4题:
已知数组A(4,4),各个元素在运行程序时被赋值并打印,形成四除非方阵。请在______和______处填写所需的内容,使其产生一个转置矩阵(即行列互换),仍放在数组A中,并打印出来。例如:
1 1 1 1
2 2 2 2
3 3 3 3
4 4 4 4
Private Sub Command1_Click()
Dim s(4,4)
For k=1 To 4
For j=1 To 4
a(k,j) =j
Print a(k,j);
Next
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
第5题:
声明一个含7个整型元素的数组a,通过键盘为数组a赋值,并进行如下操作: (1) 将数组a的各个元素反转后输出 (2) 将数组a的元素排序后输出 (3)将数组a的前5个元素赋值给数组b,并输出数组b的各个元素。