在考生文件夹中有一个工程文件sjt5.vbp,如图6所示。运行程序时,从文件中读入矩阵数据并放入二维数组a中。单击“计算”按钮时,将统计矩阵两个对角线的元素中能被3整除的个数,统计结果显示在标签lblFirst中;同时计算矩阵主对角线的元素之和,计算结果显

admin2013-10-17  39

问题 在考生文件夹中有一个工程文件sjt5.vbp,如图6所示。运行程序时,从文件中读入矩阵数据并放入二维数组a中。单击“计算”按钮时,将统计矩阵两个对角线的元素中能被3整除的个数,统计结果显示在标签lblFirst中;同时计算矩阵主对角线的元素之和,计算结果显示在标签lblSecond中。
  已给出了部分程序,请编写“计算”命令按钮事件过程中的部分程序代码,以便完成上述功能。
  注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后,必须执行程序,并用“计算”按钮进行计算,否则无成绩。

选项

答案  矩阵主对角线上元素的特点:第一维下标与第二维下标相同:7*7矩阵次对角线上元素的特点:第一维下标与第二维下标之和为8。根据题意,可通过一个For循环,将满足主对角线上元素特点的数组元素累加入变量Sum。再通过一个嵌套的For循环逐一判断满足两个对角线上的元素特点的元素能否被3整除,若某数组元素能被3整除,则记录个数的变量Counter增1。 步骤1:打开考生文件夹下的本题工程文件sjt5.vbp,在代码编辑窗口的指定位置编写以下代码: 参考代码: For k=1 To N Sum=Sum+a(k,k) Ifa(k,k)/3=Int(a(k,k)/3)Then Counter=Counter+1 EndIf Ifk<>N-k+1 Then Ifa(k,N-k+1)/3=Int(a(k,N-k+1)/3)Then Counter=Counter+1 EndIf EndIf Next lblSecond.Caption=Sum lblFirst.Caption=Counter 步骤2:按<F5>键运行程序,然后单击“计算”按钮。 步骤3:按要求将文件保存至考生文件夹中。

解析
转载请注明原文地址:https://kaotiyun.com/show/cUQp777K
0

相关试题推荐
最新回复(0)