首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp,如图6所示。运行程序时,从文件中读入矩阵数据并放入二维数组a中。单击“计算”按钮时,将统计矩阵两个对角线的元素中能被3整除的个数,统计结果显示在标签lblFirst中:同时计算矩阵主对角线的元素之和,计算结果显
在考生文件夹中有一个工程文件sjt5.vbp,如图6所示。运行程序时,从文件中读入矩阵数据并放入二维数组a中。单击“计算”按钮时,将统计矩阵两个对角线的元素中能被3整除的个数,统计结果显示在标签lblFirst中:同时计算矩阵主对角线的元素之和,计算结果显
admin
2020-02-27
28
问题
在考生文件夹中有一个工程文件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://jikaoti.com/ti/vGx0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有两个关系R、S如下:由关系R通过运算得到关系s,则所使用的运算为()。
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm,此外还有一个名为datain.txt的文本文件,其内容如下:32437658281298573142536475869713243546
在长度为n的有序线性表中进行二分查找,最坏情况下需要比较的次数是()。
设有如下Command1的单击事件过程及fun过程:PrivateSubCommand1_Click()DimxAsIntegerx=Val(InputBox("请输入一个整数"))fun(x)EndSubPrivateSubf
设有栈S和队列Q,初始状态均为空。首先依次将A,B,C,D,E,F入栈,然后从栈中退出三个元素依次入队,再将X,Y,Z入栈后,将栈中所有元素退出并依次入队,最后将队列中所有元素退出,则退队元素的顺序为()。
(1)在名称为Form1的窗体上添加一个名称为Framee1、标题为“框架”的框架,在框架内添加两个名称分别为Pption1、Option2的单选按钮,其标题分别为“第一项”、“第二项”。要求通过设置控件的属性将“第二项”初始值设为被选中,框架为不可用。运
通用对话框Filter属性的作用是
软件生命周期是指( )。
下列关于类、对象、属性和方法的叙述中,错误的是()。
一棵二叉树中共有80个叶子结点与70个度为1的结点,则该二叉树中的总结点数为
随机试题
Whatismeantby"investmentinstruments"?
关于全身性感染相关性器官功能衰竭评分(SOFA)认识错误的是
膀胱癌侵犯精囊时,CT表现不正确的是
称为“众方之祖”的医学典籍是()。
干式报警阀组除按照报警阀组安装的共性要求进行安装、技术检测外,还需符合哪些要求?
下列职务不能成为法人的法定代表人的是()。
下列可以启动VisualBasic的方法是
Whatdoesthistablecompare?
Britainhasannouncedthatitistocancelabout200millionpounds’worthofdebts【T1】______itbypoorerCommonwealthcountrie
"Wehavebeenignoringthebiggestglobalhealththreatofthe21stcentury."Thiswasthemessagespelledoutinareportlaunc
最新回复
(
0
)