当前位置:IT认证>BASIC题库

问题:[多项选择题]

[多项选择题] 注意:下面出现的“考生文件夹”均为C:wexam25160002。 在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm,此外还有一个名为datain.txt的文本文件,其内容如下: 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37 32 43 76 58 28 12 98 57 31 程序运行后,单击窗体,将把文件datain.txt中的数据输入到二维数组Mat中,在窗体上按5行5列的矩阵形式显示出来,并输出矩

  

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

  参考解析

微信端