首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp,如图6所示。运行程序时,从文件中读入矩阵数据并放入二维数组a中。单击“计算”按钮时,将统计矩阵两个对角线的元素中能被3整除的个数,统计结果显示在标签lblFirst中;同时计算矩阵主对角线的元素之和,计算结果显
在考生文件夹中有一个工程文件sjt5.vbp,如图6所示。运行程序时,从文件中读入矩阵数据并放入二维数组a中。单击“计算”按钮时,将统计矩阵两个对角线的元素中能被3整除的个数,统计结果显示在标签lblFirst中;同时计算矩阵主对角线的元素之和,计算结果显
admin
2017-06-22
25
问题
在考生文件夹中有一个工程文件sjt5.vbp,如图6所示。运行程序时,从文件中读入矩阵数据并放入二维数组a中。单击“计算”按钮时,将统计矩阵两个对角线的元素中能被3整除的个数,统计结果显示在标签lblFirst中;同时计算矩阵主对角线的元素之和,计算结果显示在标签lblSecond中。
已给出了部分程序,请编写“计算”命令按钮事件过程中的部分程序代码,以便完成上述功能。
注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后,必须执行程序,并用“计算”按钮进行计算,否则无成绩。
选项
答案
步骤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 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 lblSecond.Caption=Sum lblFirst.Caption=Counter 步骤2:按<F5>键运行程序,然后单击“计算”按钮。 步骤3:按要求将文件保存至考生文件夹中。
解析
矩阵主对角线上元素的特点:第一维下标与第二维下标相同;7*7矩阵次对角线上元素的特点:第一维下标与第二维下标之和为8。根据题意,可通过一个For循环,将满足主对角线上元素特点的数组元素累加入变量Sum。再通过一个嵌套的For循环逐一判断满足两个对角线上的元素特点的元素能否被3整除,若某数组元素能被3整除,则记录个数的变量Counter增1。
转载请注明原文地址:https://kaotiyun.com/show/kDGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如图所示,在列表框List1中已经有若干人的简单信息,运行时在Text1文本框(即“查找对象”右边的文本框)中输入一个姓或姓名,单击“查找”按钮,则在列表框中进行查找,若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列表项,则只显示第1个匹配
在程序运行期间,增加和删除列表框(或组合框)的方法是Addltem和【】。
下面的数组声明语句中正确的是
算法执行过程中,所需要的基本运算次数称为算法的【】。
对序列(70,75,82,90,23,16)用快速排序方法进行排序,以序列的第一个元素为划分的基准。在第一趟划分后数据元素的排列是()。
下列叙述中不正确的是______。
编写一个过程把C盘中的Config.sys文件内容读出,并在文本框中显示出来。在窗体Form1建立一个文本框Text1,将其MultiLine属性设置为True,将ScrollBars属性设置为3-Both。根据题意。请完善下列程序。optionEx
下列关于菜单的说法错误的是()。
多分支选择结构的SelectCase<测试表达式>语句中,<测试表达式>可以是______。
随机试题
土地规划通过对区域内国民经济各部门、各行业用地量的合理分配,解决各部门、各行业土地需求的矛盾,这体现了土地规划的控制作用。()
已知,最强的氧化剂和最强的还原剂分别是()。
建设项目财务预算分三个主要部分:单位工程预算、()、建设项目总预算。
个人贷款的特征有()。[2015年10月真题]
下列属于药膳的有()
机关文书部门对那些必须办理答复的文件,根据承办时限的要求,及时地对文件承办的情况进行督促和检查的环节称()。
甲工厂每天生产的零件数比乙工厂的1.5倍还多40个,乙工厂每天生产的零件数比甲工厂的一半多20个。则两个工厂每天共能生产多少个零件?
20世纪80年代第五代导演崛起之时,导演编剧为剧本反复推敲修改,演员为塑造好形象深入生活实地采风的故事________,《红高粱》《黄土地》《霸王别姬》等在中国乃至世界电影史上留下印记的杰作,就是在创作者殚精竭虑、心无旁骛的努力中诞生的。填入画横线部分最
Everymanisaphilosopher.Everymanhashisownphilosophyoflifeandhisspecialviewoftheuniverse.Moreover,hisphiloso
ThemostcommonlegendaboutthediscoveryofcoffeeisthatithappenedintheninthcenturyA.D.AgoatherderinEthiopiana
最新回复
(
0
)