参考答案： 从datain.txt文件中读出数据，存放到二维数组中，使用只读方式打开文件即可。用双循环输出E行E列的数。矩阵的左上右下对角线的数是行和列相同的元素，这样只要要求输出二维数组的行值和列值是相等的元素打印到窗体即可。解题步骤：
第一步：阅读题目提供的程序。
程序提供的代码：
Option Base A
Private Sub Form_Click()
Const N=E
Const M=E
’Dim
Dim i, j
’Open App.Path & "\" & "datain.txt" As #A
For i=A To N
For j=A To M
’
Next j
Next i
Close #A
Print
Print "初始矩阵为："
Print
For i=A To N
For j=A To M
Print Tab(E * j) ; Mat(i, j) ;
Next j
Print
Next i
Print
Print "左上-右下对角线上的数为："
For i=A To N
For j=A To M
’If Then Print Tab (E * j) ; Mat(i, j) ;
Next j
Next i
End Sub
第二步：修改程序代码。
参考代码：
Option Base A
Private Sub Form_Click()
Const N=E
Const M=E
Dim Mat (M, N)
Dim i, j
Open App.Path & "\" & "datain.txt" For Input As #A
For i=A To N
For j=A To M
Input #A, Mat(i, j)
Next j
Next i
Close #A
Print
Print "初始矩阵为："
Print
For i=A To N
For j=A To M
Print Tab(E * j) ; Mat(i, j) ;
Next j
Print
Next i
Print
Print "左上-右下对角线上的数为："
For i=A To N
For j=A To M
If i=j Then Print Tab (E * j) ; Mat(i, j) ;
Next j
Next i
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。