怎样点击计算后，最后两排的后面，出现结果

你这个像是print上去的，找位置比较困难，要改print语句。
或者你可以建个2维数组存数字，在窗体上对好位置，放两个label，计算结果在label里显示。
如果不是print的，直接把label的内容改了就行。
Label1.caption = "主对角线的和为" & " " & 结果

设该矩阵定义语句为：a(4,4) '前提是默认维度下标为0
则主对角线元素有（用˹˼框起的）：
˹a(0,0)˼ a(0,1) a(0,2) a(0,3) a(0,4)
a(1,0) ˹a(1,1)˼ a(1,2) a(1,3) a(1,4)
a(2,0) a(2,1) ˹a(2,2)˼ a(2,3) a(2,4)
a(3,0) a(3,1) a(3,2) ˹a(3,3)˼ a(3,4)
a(4,0) a(4,1) a(4,2) a(4,3) ˹a(4,4)˼
副对角线元素有（用˹˼框起的）：
a(0,0) a(0,1) a(0,2) a(0,3) ˹a(0,4)˼
a(1,0) a(1,1) a(1,2) ˹a(1,3)˼ a(1,4)
a(2,0) a(2,1) ˹a(2,2)˼ a(2,3) a(2,4)
a(3,0) ˹a(3,1)˼ a(3,2) a(3,3) a(3,4)
˹a(4,0)˼ a(4,1) a(4,2) a(4,3) a(4,4)
'###########
# 代码部分（参考） #
###########
Dim i,j,m,n
'求主对角线元素之和的代码为：
For i = 0 To 4
m = m + a(i,i)
Next i
'求副对角线元素之和的代码为：
For i = 0 To 4
For j = 4 To 0
n = n + a(i,j)
Next j
Next i
Print "主对角线之和：" & m
Print "主对角线之和：" & n