vb中如何實現(xiàn)數(shù)組對角線求和問題？一個n階方陣，用n×n（n行n列）二維數(shù)組存儲：主對角線上元素的下標，滿足：行號=列號，次對角線上元素的下標，滿足：行號和列號=n 1VB代碼實現(xiàn)：（以n=5為例，數(shù)

vb中如何實現(xiàn)數(shù)組對角線求和問題？

一個n階方陣，用n×n（n行n列）二維數(shù)組存儲：主對角線上元素的下標，滿足：行號=列號，次對角線上元素的下標，滿足：行號和列號=n 1VB代碼實現(xiàn)：（以n=5為例，數(shù)組為D，已分配）dim n as integerdim S1 as integer “主對角線上的元素之和dim S2 as integer “次對角線上的元素之和dim I as integerdim J as integern=5s1=0s2=0對于I=1到5對于J=1到n如果I=J那么S1=S1 D（I，J）如果I J=n1那么S2=S2 D（I，J）下一個jnext iPrint “主對角線元素之和=“s1print”次對角線元素之和=”S2