Работа с матрицами

[bumblebeee]

Работа с матрицами

Дана квадратная матрица. Нужно найти сумму элементов расположенных на диагонали из левого верхнего угла в правый. Помогите,пожалуйста с написание в VBA...

 

[MoNeTa]

CLS
INPUT n
DIM a(n, n)
FOR i = 1 TO n
PRINT
FOR x = 1 TO n
RANDOMIZE TIMER
a(i, x) = INT((RND * 10) * (RND * 10))
PRINT a(i, x);
IF i = x THEN z = z + a(i, x)
NEXT
NEXT
PRINT
PRINT "summa chisel po diagonali="; z

вот прим решение на qbasic. наверное не трудно перевести в VBA
поздновато, но пусть решение остается)