首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp,如图3—164所示。运行程序时,从文件中读入矩阵数据并放入二维数组a中。单击“计算”按钮时,将统计矩阵两个对角线的元素中能被3整除的个数,统计结果显示在标签lblFirst中;同时计算矩阵主对角线的元素之和,计
在考生文件夹中有一个工程文件sjt5.vbp,如图3—164所示。运行程序时,从文件中读入矩阵数据并放入二维数组a中。单击“计算”按钮时,将统计矩阵两个对角线的元素中能被3整除的个数,统计结果显示在标签lblFirst中;同时计算矩阵主对角线的元素之和,计
admin
2017-10-27
23
问题
在考生文件夹中有一个工程文件sjt5.vbp,如图3—164所示。运行程序时,从文件中读入矩阵数据并放入二维数组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 iblSecond.Caption=Sum lblFirst.Caption=Counter 步骤2:按
键运行程序,然后单击“计算”按钮。 步骤3:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://jikaoti.com/ti/2Ly0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下循环的执行次数是【】。k=0DoUntilk>=10k=k+1Loop
在窗体上画一个名称为Command1的命令按钮,一个名称为Label1的标签,然后编写如下事件过程:PrivateSubCommand1_Click()S=0Fori
假定Picture1和Text1分别为图片框和文本框的名称,下列不正确的语句是______。
VisualBasic程序设计采用的编程机制是
设x=4,y=8,z=7,下列表达式的值是()。x>zOrz<x
下列程序的功能是:将数据1,2,…,8写入顺序文件Num.txt中,请补充完整。PrivateSubForm_Click()DimiAsInteger Open"Num.txt”ForOutputAs#1
软件的需求分析阶段的工作,可以概括为四个方面:【】、需求分析、编写需求规格说明书和需求评审。
使用DoWhile循环从打开的文件中逐条读取记录。以下能够正确读取数据的程序段是
以下循环的执【】。k=0DoUntilk>=10k=k+1Loop
下列有关数据库的叙述,正确的是()。
随机试题
调出快捷菜单的操作是______。
A.目测法B.等量递增法C.重量法D.估分法E.容量法适用于含毒性药物和贵重药物散剂的分剂量方法是
甲、乙双方约定:松花江一解冻,乙就租给甲一条渔船,甲乙之间的租赁行为属于______。
以下属于危险、有害因素辨识与分析工作内容的是()。
学生对接到大学录取通知书时的愉快心情的记忆是_______。
在市场经济条件下,市场配置资源的核心机制是()。
水是透明、没有颜色的,但为什么海中的浪花却是白色的?()
随着科技水平的提高和人们对物质世界更深层次的认识,医用生物材料作为材料大家族中与人们关系最直接、最密切的一个分支,也得到了迅猛的发展。人们现在可以制造出各种生物医学材料来修复和替代人体器官,提高人们的生活质量,延长人们的生存时间。介人医学是一
—Letmehelpyoupreparedinner,Mom.—______,butyourhomeworkhasn’tbeendone,you’dbetterfinishitfirst.
A、Takesomeextratime.B、Putdownwhateverideasshehasfirst.C、Dosomeworkforanothercourse.D、Writethestoryendingfir
最新回复
(
0
)