[问答题] 要求：去掉程序中的注释符，把程序中的改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

[问答题] 要求：去掉程序中的注释符，把程序中的改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

参考答案：

从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 第三步：调试并运行程序。 第四步：按题目要求存盘。

问题解析:

解析无