首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp,如图3.164所示。运行程序时,从文件中读入矩阵数据并放入二维数组a中。单击“计算”按钮时,将统计矩阵两个对角线的元素中能被3整除的个数,统计结果显示在标签lblFirst中;同时计算矩阵主对角线的元素之和,计
在考生文件夹中有一个工程文件sjt5.vbp,如图3.164所示。运行程序时,从文件中读入矩阵数据并放入二维数组a中。单击“计算”按钮时,将统计矩阵两个对角线的元素中能被3整除的个数,统计结果显示在标签lblFirst中;同时计算矩阵主对角线的元素之和,计
admin
2017-09-22
34
问题
在考生文件夹中有一个工程文件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全国计算机二级
相关试题推荐
在链表的运算过程中,能够使空表与非空表的运算统一的结构是______。
在窗体上有一个命令按钮,然后编写如下事件过程 PrivateSubCommand1_cickc() a=InputBox("enterthefirstinteger") b=InputBox("enterthesecon
编写如下事件过程:PrivateSubForm_keyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)EndSubPrivateSubForm_Keypress(
随机文件使用Put语句写数据,使用【】语句读数据。
若有一个动态数组a有两个元素a(0)和a(1),现要令数组a有三个元素a(0)、a(1)和a(2),则应当使用【】语句。
程序执行结果s的值是【】。PrivateSubsub1(ByvalpAsInteger)p=p*2EndSubPrivateSubCommand1_Click()DimiAsIntegeri=3Callsub1(i
一个完整的程序必须完成3个层次的过程,它们分别是编码、测试和【】。
在窗体上面一个命令按钮(其Name属性为Command1),然后编写如下代码:OptionBase1PrivateSubCommand1_Click()Dima(4,4)Fori=
在窗体上画一个名称为Filel的文件列表框,并编写如下程序:PrivateSubFilel_DblClick()x=Shell(Filel.FileName,1)EndSub以下关于该程序的叙述中,错误的是__
一个工程中含有窗体Form1、Form2和标准模块Model1,如果在Form1中有语句PublicXAsInteger,在Model1中有语句PublicYAsInteger,则以下叙述中正确的是()。
随机试题
班杜拉提出的强化包括哪几种形式?
合同规定甲公司应当在8月30日向乙公司交付一批货物。8月中旬,甲公司把货物运送到乙公司。此时乙公司有权应当如何处理?()
者行孙以自己个人财产设立一家个人独资企业,从事广告用品的印刷,主要收入用于家庭共同开支。但后来由于经营不善,该企业经清算后解散,但仍有几个债务没有清偿。则:()
(2011年)圆管流的下临界雷诺数()。
阅读下列材料,按要求完成教学设计任务。材料一《普通高中化学课程标准(实验)》内容标准为:“通过实验了解氯、氮、硫、硅等非金属及其重要化合物的主要性质,认识其在生产中的应用和对生态环境的影响”。活动与探究建议:“实验氯气的漂白性”。材料二
化学与生活密切相关,下列说法正确的是()。
某疗养院同一个房间的四位病友,把他们的年龄(均为整数)两两相加得到6个不同的数,已知其中5个数为:99,113,125,130,144,四人中年龄最大者与年龄最小者岁数之和为()岁。
46.下面哪一项对人们座位的安排(从妹妹开始,经桌头再到另一边)是可以接受的?47.若爷爷坐在小明的对面,则奶奶必须与下面哪一个人相邻?
设z=f[xg(y),x-y],其中f二阶连续可偏导,g二阶可导,求.
Bumrateisthespeedatwhichastartupbusinessconsumesmoney.Myratewouldbe$50,000amonthwhenmynewmediacompanys
最新回复
(
0
)