首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp,如图6所示。运行程序时,从文件中读入矩阵数据并放入二维数组a中。单击“计算”按钮时,将统计矩阵两个对角线的元素中能被3整除的个数,统计结果显示在标签lblFirst中:同时计算矩阵主对角线的元素之和,计算结果显
在考生文件夹中有一个工程文件sjt5.vbp,如图6所示。运行程序时,从文件中读入矩阵数据并放入二维数组a中。单击“计算”按钮时,将统计矩阵两个对角线的元素中能被3整除的个数,统计结果显示在标签lblFirst中:同时计算矩阵主对角线的元素之和,计算结果显
admin
2020-02-27
37
问题
在考生文件夹中有一个工程文件sjt5.vbp,如图6所示。运行程序时,从文件中读入矩阵数据并放入二维数组a中。单击“计算”按钮时,将统计矩阵两个对角线的元素中能被3整除的个数,统计结果显示在标签lblFirst中:同时计算矩阵主对角线的元素之和,计算结果显示在标签lblSecond中。
已给出了部分程序,请编写“计算”命令按钮事件过程中的部分程序代码,以便完成上述功能。
注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后,必须执行程序,并用“计算”按钮进行计算,否则无成绩。
选项
答案
步骤l:打开考生文件夹下的本题工程文件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 End If Ifk<>N-k+1 Then Ifa(k,N-k+1)/3=Int(a(k,N-k+1)/3)Then Counter=Counter+1 End If End If Next IblSecond.Caption=Sum lblFirSt.Caption=Counter 步骤2:按
键运行程序,然后单击“计算”按钮。 步骤3:按要求将文件保存至考生文件夹中。
解析
矩阵主对角线上元素的特点:第一维下标与第二维下标相同;7*7矩阵次对角线上元素的特点:第一维下标与第二维下标之和为8。根据题意,可通过一个For循环,将满足主对角线上元素特点的数组元素累加入变量Sum。再通过一个嵌套的For循环逐一判断满足两个对角线上的元素特点的元素能否被3整除,若某数组元素能被3整除,则记录个数的变量Counter增1。
转载请注明原文地址:https://kaotiyun.com/show/ECTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
求1!+2!+…+10!的程序如下:PrivateFunctions(xAsInteger)f=1Fori=1Toxf=f*iNexts=fEndFunctionPrivateSubCommand1_Click()Di
在数据管理技术发展的三个阶段中,数据共享最好的是()。
下列VisualBasic函数中,计算结果为字符串型的是()。
设有以下程序代码:PrivateSubCommand1_Click()a=Array(1,2,7,10,6)b=Array(5,4,7,8,2)i=0j=0DoIfi<=UBound(a)Andj<=UBound(b)ThenIf
下列各排序法中,最坏情况下的时间复杂度最低的是()。
设有表示学生选课的三张表,学生S(学号,姓名,性别,年龄,身份证号),课程C(课号,课名),选课SC(学号,课号,成绩),则表SC的关键字(键或码)为()。
以下关于VB对象属性的叙述中,错误的是()。
深度为7的二叉树共有127个结点,则下列说法中错误的是()。
设有以下过程:PrivateSubproc(xAsInteger,OptionalyAsInteger)Printx,yEndSub针对此过程,下面正确的过程调用语句是()。
对长度为10的线性表进行冒泡排序,最坏情况下需要比较的次数为
随机试题
依我国刑法规定,适用保护管辖原则有一定的条件限制,这些条件中不包括()
合同履行规则:履行地点不明确,给付货币的,在________履行;交付不动产的,在________履行;其他标的,在________履行。
求函数y=x3—3x2+6x—2在区间[一1,1]上的最值.
下列物质中,不参与溶血反应的是
药物信息的特点不包括
急性肾衰竭少尿期病人的饮食要求为
科学发展观是在()的基础上提出的。
关于垃圾容器和垃圾容器间设置要求的表述中,错误的是()
永久受到法律保护的著作权包括()。
Itcanbeinferredfromthepassagethatscientistsnowgenerallyagreethatthe______.Theauthorviewstheideathatthepte
最新回复
(
0
)