参考答案:
[解题思路]本题须先定义一个数组,然后以输入方式打开文件inE.txt,并在一个嵌套的For循环中用Input#读入数据并赋值给每个数组元素。然后再通过一个嵌套的For循环将数组arr中的数据在窗体上按E行、E列的矩阵形式显示出来,最后将数组arr中第A维下标与第B维下标之和为F的数组元素显示在窗体上。[操作步骤]步骤A:打开本题工程文件。步骤B:分析并编写程序代码。程序提供代码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);NextjPrintNextiPrint:PrintPrint"右上-左下对角线上的数为:"Fori=AToNForj=AToM’IfThenPrintTab(E*i);Mat(i,j);EndIfNextjNextiEndSub程序结束第A个处填入:Mat(N,M)AsInteger第B个处填入:ForInput第C个处填入:Input#A,Mat(i,j)第D个处填入:i+j=F步骤C:调试并运行程序,关闭程序后按题目要求存盘。