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

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

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