请问一道VB编程题?(答案)

核心代码：

dim a(i,j) as integer
dim i as integer
dim j as integer
dim sum as integer
dim sumtrangle as integer
dim sumtrangle1 as integer
dim sumtrangle2 as integer
for i=0 to 5
for j=0 to 5
a(i,j)=分配随机数（最好是10到100之间的）
sum=sum+a(i,j) '这是所有元素之和
if i=j then
sumtrangle1=sumtrangle1+a(i,j) '正对角线之和
if i+j=5 then
sumtrangle2=sumtrangle2+a(i,j) ‘负对角线之和
end if
end if
next j
next i
sumtrangle=sumtrangle1+sumtrangle2 ’对角线之和
dim sumyard as integer '定义sumyard为该数组的周围数之和
dim a1 as integer
dim b as integer
dim c as integer
dim d as integer
for i=0 to 5
a1=a1+a(i,0)
b=b+a(i,5)
next i
for j=0 to 5
c=c+a(0,j)
d=d+a(5,j)
next j
sumyard = a1+b+c+d ‘在边上的所有元素之和

我也不会做，是在网上帮你找的