求一个5×5的整型方阵对角线说各元素之积（VB）

Question

求一个5×5的整型方阵对角线说各元素之积（VB）

Answer 1

C语言编程题：定义一个5╳5的矩阵，求对角线上的元...
要求：1）5╳5的矩阵是一个整型二维数组。 2）对角线上交叉的元素只加一次。
#include int main() { int a[5][5]={{*4,5},{*4,5},{*4,5},{*4,5},{*4,5}}; int sum=0,i; for (i=0;i

Answer 2

Private Sub Command1_Click()

Dim a(5, 5) As Integer

Randomize

For i = 1 To 5

For j = 1 To 5

a(i, j) = Int(Rnd * 9) + 1

Print a(i, j);

Next j

Print

Next i

p = 1

For i = 1 To 5

p = p * a(i, i)

If i <> 3 Then p = p * a(i, 6 - i)

Next i

Print

Print "二条对角线上各元素之积="; p

Print

End Sub

本回答被提问者采纳