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

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

admin2019-05-14  29
问题 在考生文件夹中有一个工程文件sjt5．vbp，如图2-48所示。运行程序时，从文件中读入矩阵数据并放入二维数组a中。单击”计算”按钮时，将统计矩阵两个对角线的元素中能被3整除的个数，统计结果显示在标签lblFirst中；同时计算矩阵主对角线的元素之和，计算结果显示在标签lblSecond中。
已给出了部分程序，请编写”计算”命令按钮事件过程中的部分程序代码，以便完成上述功能。
注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，必须执行程序，并用”计算”按钮进行计算，否则无成绩。  
选项
答案步骤1：打开考生文件夹下的本题工程文件sjt5．vbp，在代码编辑窗口的指定位置编写以下代码： 参考代码： For k=1 To N Sum=Sum+a(k，k) If a(k， k) ／3=Int(a(k， k) ／3)Then Counter=Counter+ 1 End If If k＜＞N - k+ 1 Tnen If a(k，N-k+1) ／3=Int(a(k，N-k+ 1)／3)Then Counter=Counter+ 1 End If End If Next lblSecond．Caption=Sum lblFirst．Caption=Counter 步骤2：按＜F5＞键运行程序，然后单击”计算”按钮。 步骤3：按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/dTUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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