首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp,如图3.129所示。运行程序时,从文件中渎入矩阵数据并放入二维数组a中。单击“计算”按钮时,将统计矩阵两个对角线的元素中能被3整除的个数,统计结果显示在标签lblFirst中;同时计算矩阵主对角线的元素之和,计
在考生文件夹中有一个工程文件sjt5.vbp,如图3.129所示。运行程序时,从文件中渎入矩阵数据并放入二维数组a中。单击“计算”按钮时,将统计矩阵两个对角线的元素中能被3整除的个数,统计结果显示在标签lblFirst中;同时计算矩阵主对角线的元素之和,计
admin
2016-03-22
87
问题
在考生文件夹中有一个工程文件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(10)…ForEachx1naPrintx;Nextx在上面的程序段中,变量x必须是
假定编写了如下4个窗体事件的事件过程,则运行应用程序并显示窗体后,已经执行的事件过程是
在窗体上面一个命令按钮,然后编写如下事件过程:PrivateSubCommandl_Click()MsgBoxStr(123+321)EndSub程序运行后,单击命令按钮,则在信息框中显示的提示信息为
栈通常采用的两种存储结构是
数据结构作为计算机的一门学科,主要研究数据的逻辑结构、对各种数据结构进行的运算,以及
下列各选项说法错误的一项是
下列表达式中,()的值为false。
对象是既包含数据又包含对______的方法,并将其封装起来的一个逻辑实体。
下列特征中不是面向对象方法的主要特征的是()。
随机试题
银汞合金调合24小时后产生0.05%~0.1%的膨胀有利与洞壁密合,对膨胀影响最少的因素是
某男性患者,32岁,有吸毒史(注射)。近半年来体重减轻,发烧.口腔反复发生真菌感染。首先考虑为AIDS。为进一步确诊.需抽血检查哪项指标
马小军某天闲来无事跑去好友牛大海的工厂探望牛大海,工厂经理巡视时看见马小军闲坐,恰逢工厂缺人手,便问其是否有意在工厂工作。马小军想着自己闲着也是闲着,来工厂干活还能挣点儿小钱,一口答应下来。于是牛大海当日就教会了马小军使用工厂设备,马小军当日便上岗工作,不
长生公司拟拆除该单位的污水处理设施,下列叙述中,符合环境保护法要求的是:()
以下是投资项目决策分析与评价阶段应考虑的一种风险对策的为()。
霍兰德的“人格类型论”包含的职业人格类型有()。
Forthispart,youhavetowriteashortpassage.Youshouldwriteatleast150wordsfollowingtheoutlinegivenbelowinChine
A、6:40.B、7:40.C、6:20.A
Thetown’sonlyclaimto_______isthatQueenElizabethIoncevisitedit.
Thedestructionofournaturalresourcesandcontaminationofourfoodsupplycontinuetooccur,largelybecauseoftheextreme
最新回复
(
0
)