首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp,如图3.164所示。运行程序时,从文件中读入矩阵数据并放入二维数组a中。单击“计算”按钮时,将统计矩阵两个对角线的元素中能被3整除的个数,统计结果显示在标签lblFirst中;同时计算矩阵主对角线的元素之和,计
在考生文件夹中有一个工程文件sjt5.vbp,如图3.164所示。运行程序时,从文件中读入矩阵数据并放入二维数组a中。单击“计算”按钮时,将统计矩阵两个对角线的元素中能被3整除的个数,统计结果显示在标签lblFirst中;同时计算矩阵主对角线的元素之和,计
admin
2017-09-22
20
问题
在考生文件夹中有一个工程文件sjt5.vbp,如图3.164所示。运行程序时,从文件中读入矩阵数据并放入二维数组a中。单击“计算”按钮时,将统计矩阵两个对角线的元素中能被3整除的个数,统计结果显示在标签lblFirst中;同时计算矩阵主对角线的元素之和,计算结果显示在标签lblSecond中。
已给出了部分程序,请编写“计算"命令按钮事件过程中的部分程序代码,以便完成上述功能。
注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后,必须执行程序,并用“计算”按钮进行计算,否则无成绩。
选项
答案
步骤1:打开考生文件夹下的工程文件sjl5.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.CaDtion=Sum lblFirst.CaDtion=Counter 步骤2:按
键运行程序,然后单击“计算”按钮。 步骤3:按要求将文件保存至考生文件夹中。
解析
矩阵主对角线上元素的特点:第一维下标与第二维下标相同:7*7矩阵次对角线上元素的特点:第一维下标与第二维下标之和为8。根据题意,可通过一个For循环,将满足主对角线上元素特点的数组元素累加入变量Sum。再通过一个嵌套的For循环逐一判断满足两个对角线上的元素特点的元素能否被3整除,若某数组元素能被3整除,则记录个数的变量Counter增1。
转载请注明原文地址:https://kaotiyun.com/show/PjGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Text1的文体框,然后画一个名称为HScrolll的滚动条,其Min和Max属性分别为0和100。程序运行后,如果移动滚动框,则在文本框中显示滚动条的当前值,如图所示。以下能实现上述操作的程序段是
在VisualBasic中按文件的访问方式不同,可以将文件分为顺序文件,随机文件和【】。
数据库系统的三级模式分别为【】模式、内部级模式与外部级模式。
单击一次命令按钮后,下列程序的执行结果为 PrivateSubCommand1_Click() DimmAsInteger,IAsInteger,x(10)AsInteger ForI=0To4:x(I)=I+1
假定有下表所列的菜单结构:要求程序运行后,如果单击菜单项“大图标”,则在该菜单项前添加一个“√”。以下正确的事件过程是
在下图中,要在窗体的标签Label1上显示“二级VB等级考试”字样,标签属性应设置为______。
下列事件过程的功能是:建立一个名为Data1的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整()。PrivateTypeAngKAsInteger
为命令按钮的Picture属性装入了一个图片,但却发现图片没有显示出来,要使图片显示出来,应设置它的【】属性。
随机试题
在卧式铣床上加工矩形工件,通常选用__________铣刀,以使铣削平稳。
InBritain,thebestseasonoftheyearisprobably______spring.
A.二尖瓣城墙样改变B.二尖瓣SAM现象C.二尖瓣吊床征D.二尖瓣舒张期震颤波E.二尖瓣钻石征主动脉瓣反流表现为
A.周围神经炎和肝损害B.肝损害和致畸作用C.视神经炎和肝损害D.肝损害和关节痛E.肾功能损害乙胺丁醇的不良反应是
项目经理的职权包括( )。
验证客户违约风险区分能力的常用方法有()。
某航空运输公司2015年年末对一架运输飞机进行减值测试。该运输飞机原值为50000万元,累计折旧为30000万元,未计提减值准备,预计尚可使用年限为5年。假定该运输飞机存在活跃市场,其公允价值为14000万元,直接归属于该运输飞机的处置费用为1500万元。
某公司发行债券面值为1000万元,票面利率为12%,偿还期限5年,每年付息一次。公司溢价发行,发行收入为1050万元,发行费用率为3%,所得税率为33%,则债券资金成本为()。
Atschoolwewentoveroursocialnetworkingguidelines.【C1】______theobvious—don’tbeinappropriatewithstudentsthroughtexti
Aninvisibleborderdividesthosearguingforcomputersintheclassroomonthebehalfofstudents’careerprospectsandthosea
最新回复
(
0
)