参考答案:
从datain.txt文件中读出数据,存放到二维数组中,使用只读方式打开文件即可。用双循环输出E行E列的数。矩阵的左上右下对角线的数是行和列相同的元素,这样只要要求输出二维数组的行值和列值是相等的元素打印到窗体即可。解题步骤:第一步:阅读题目提供的程序。程序提供的代码:OptionBaseAPrivateSubForm_Click()ConstN=EConstM=E’DimDimi,j’OpenApp.Path&""&"datain.txt"As#AFori=AToNForj=AToM’NextjNextiClose#APrintPrint"初始矩阵为:"PrintFori=AToNForj=AToMPrintTab(E*j);Mat(i,j);NextjPrintNextiPrintPrint"左上-右下对角线上的数为:"Fori=AToNForj=AToM’IfThenPrintTab(E*j);Mat(i,j);NextjNextiEndSub第二步:修改程序代码。参考代码:OptionBaseAPrivateSubForm_Click()ConstN=EConstM=EDimMat(M,N)Dimi,jOpenApp.Path&""&"datain.txt"ForInputAs#AFori=AToNForj=AToMInput#A,Mat(i,j)NextjNextiClose#APrintPrint"初始矩阵为:"PrintFori=AToNForj=AToMPrintTab(E*j);Mat(i,j);NextjPrintNextiPrintPrint"左上-右下对角线上的数为:"Fori=AToNForj=AToMIfi=jThenPrintTab(E*j);Mat(i,j);NextjNextiEndSub第三步:调试并运行程序。第四步:按题目要求存盘。