首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp,如图3.129所示。运行程序时,从文件中渎入矩阵数据并放入二维数组a中。单击“计算”按钮时,将统计矩阵两个对角线的元素中能被3整除的个数,统计结果显示在标签lblFirst中;同时计算矩阵主对角线的元素之和,计
在考生文件夹中有一个工程文件sjt5.vbp,如图3.129所示。运行程序时,从文件中渎入矩阵数据并放入二维数组a中。单击“计算”按钮时,将统计矩阵两个对角线的元素中能被3整除的个数,统计结果显示在标签lblFirst中;同时计算矩阵主对角线的元素之和,计
admin
2016-03-22
66
问题
在考生文件夹中有一个工程文件sjt5.vbp,如图3.129所示。运行程序时,从文件中渎入矩阵数据并放入二维数组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 Then 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:按
键运行程序,然后单击“计算”按钮。 步骤3:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/h0Lp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列叙述中正确的是
设有如下变量声明语句:Dima,bAsBoolean则下面叙述中正确的是
VB6.0的主要特点是具有面向对象的______设计工具,非常适用于用户界面的编程方式。
请填写下列空白以实现运行后形成一个主对角线上元素值为l,其他元素为0的6×6阶矩阵。PrivateSubCommand1_Click()Dims(6,6)Fori=1To6Fori=1To6If
在长度为64的有序线性表中进行顺序查找,最坏情况下需要比较的次数为
下面程序段,运行后的结果是PrivateSubCommand1_Click()Dimb%(1To4),i%,t# Fori=1To4 b(i)=i Next t=Tof(b()
若某二叉树的前序遍历访问顺序是abdgcefh,中序遍历访问顺序是dgbaechf,则其后序遍历的结点访问顺序是
表达式x=Sqr(a^2-5)+sqr(b^2-5)的类型是
当对象得到焦点时,会触发GotFocus事件,当对象失去焦点时将触发______事件。
在数据库系统的组织结构中,下列()映射把用户数据库与概念数据库联系了起来。
随机试题
患者,中年男性,有咳嗽,发热,体重减轻。查体有左锁骨上淋巴结肿大,伴胸腔积液,行积液检查。若积液LD/血清LD为0.9,可提示下列何种疾病
继发肺结核好发于()
细菌具有黏附作用的结构是
世界各国的证券交易市场都有专门机构进行证券的存管和结算,在每一周的最后一个交易日结束后对证券和资金进行清算、交收、过户,使买入者得到证券,卖出者得到相应的资金。()
甲公司因快速扩张、管理不善,导致资不抵债不能清偿到期债务,人民法院受理其破产申请后,指定海天律师事务所为管理人。管理人查明甲公司的债权债务情况如下:(1)欠乙银行贷款3000万元,甲公司以其建设用地使用权设定抵押;(2)欠丙公司货款1000万元,其中8
教育劳动作为一种特殊职业劳动的目的是()。
下列不属于公安赔偿的方式的是()。
女士,这个现代社会常见的对女性的称呼源于《诗经》。周朝贵族在祭祀完宗庙后,会对主持祭祀的人说一些祝福语,诸如“君子万年”,是祝他长寿;“釐尔女士”是送的意思,就是说送给你一个女朋友。什么是“女士”?孔颖达的解释是“女士,谓女而有士行者”,指的是女性有男性的
学习策略
Readthetextsfromanarticleinwhichfivepeopletalkedaboutwhytheylikeordislikesalesmen.Forquestions61to65,matc
最新回复
(
0
)