求一个 4×4 方阵的主对角线元素之和副对角线的元素之积（数组元素的取值范围为[br][/br][10， 99]）。
Private Sub Form_Click() Dim a(1 To 4, 1 To 4) As Integer For i = 1 To 4 For j = 1 To 4 a(i, j) = Int(Rnd * 90 + 10) Print a(i, j); Next j Print Next i s = 0: t = 1 For i = 1 To 4 s = s + a(i, i) t = t * a(i, 5 - i) Next i Print "s="; s, "t="; t End Su
举一反三
内容
- 0
一个方阵的行列式就是其主对角线上元素之积。
- 1
8输入4*4整数矩阵中的各元素,求主对角线和副对角线元素之和。(主对角线为从矩阵的左上角至右下角的连线,副对角线为从矩阵的右上角至左下角的连线)。【输入输出样例】1234123412341234sum=20(输出后不换行)
- 2
求一个4*4的整型矩阵对角线元素之和。设有下列矩阵:A=
- 3
对角矩阵就是对角线的元素全不为零，而其他元素全为零的方阵。 （ ）
- 4
二维数组:求矩阵对角线元素之和。求一个3×3矩阵对角线元素之和。样例输入:123111321样例输出37