首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp,如图所示。运行程序时,从文件中读入7×7的矩阵数据并放入二维数组a中。单击“计算”命令按钮时,将统计矩阵两个对角线的元素中能被3整除的个数,统计结果在标签lblFirst中显示;同时计算矩阵主对角线的元素之和,
在考生文件夹中有一个工程文件sjt5.vbp,如图所示。运行程序时,从文件中读入7×7的矩阵数据并放入二维数组a中。单击“计算”命令按钮时,将统计矩阵两个对角线的元素中能被3整除的个数,统计结果在标签lblFirst中显示;同时计算矩阵主对角线的元素之和,
admin
2019-03-14
25
问题
在考生文件夹中有一个工程文件sjt5.vbp,如图所示。运行程序时,从文件中读入7×7的矩阵数据并放入二维数组a中。单击“计算”命令按钮时,将统计矩阵两个对角线的元素中能被3整除的个数,统计结果在标签lblFirst中显示;同时计算矩阵主对角线的元素之和,计算结果在标签lblSecond中显示。已给出了部分程序,请编写“计算”命令按钮事件过程中的部分程序代码,以便完成上述功能。
注意:不能修改程序的其他部分和控件属性,最后将修改后的文件按原文件名存盘。程序调试通过后,必须执行程序,并用“计算”按钮进行计算,否则将没有成绩。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Dim a(7, 7) As Integer Private Sub Form_Load() read End Sub Public Sub read() Open App.Path & "\Data5.txt" For Input As #1 Do While Not EOF(1) For i = 1 To 7 For j = 1 To 7 Input #1, a(i, j) Next j Next i Loop Close #1 End Sub Public Sub Save() Open App.Path & "\out5.txt" For Output As #1 Print #1, lblFirst.Caption, lblSecond.Caption Close #1 End Sub Private Sub Command1_Click() Dim Sum As Long N = 7 Counter = 0 Sum = 0 ’======考生编写程序开始======== ’======考生编写程序结束========= Save End Sub 程序结束 参考答案 For i = 1 To 7 For j = 1 To 7 If i = j Then Sum = Sum + a(i, j) Next j Next i For i = 1 To 7 For j = 1 To 7 If i = j Or i = 8 - j And a(i, j) Mod 3 = 0 Then Counter = Counter + 1 End If Next j Next i lblFirst = Counter lblSecond = Sum 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/0bUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
数据库设计的根本目标是要解决
数据库技术的根本目标是要解决数据的
命任何一个滚动条滚动框件过程如下:PrivateSubCommand1_Click()PrivateFunctionf(yAsInteger)X=10Printf(x)f=y*yEndSubEndFunction运行上述程序,如
将数据项“Student”添加到名称为Listl的列表框中,并使其成为列表框第一项的语句为
以下控件中,能显示滚动条的是
以下关于控件数组的叙述中,正确的是
窗体上有一个名称为Commandl的命令按钮。要求编写程序,把文件fl.txt的内容写到文件f2.txt中,然后将f1.txt删除。命令按钮的单击事件过程如下:PrivateSubCommand1—Click()Open“c:\f1.txt”Fo
在名称为Forml的窗体上画一个名称为CDl的通用对话框,通过属性窗口设置CDl的初始路径为c:\,默认的文件名为None,标题为“保存等级考试”,如图2所示。注意:存盘时必须存放在考生文件夹下,工程文件名为sjtl.vbp,窗体文件名为sjtl.frm。
将E-R图转换到关系模式时,实体与联系都可以表示成()。
公司中有多个部门和多名职员,每个职员只能属于一个部门,一个部门可以有多名职员。则实体部门和职员问的联系是
随机试题
患者,慢性支气管炎肺气肿20年,冠心病5年,呼吸困难加重2d,意识障碍1h来诊。查体:浅昏迷,呼吸困难,口唇发绀,球结膜水肿,血压170/110mmHg,双肺散在干啰音,中下部湿哕音,心率128/min,节律不整,肝略大,下肢水肿(±)。该患者经抢救治疗后
在事件树分析中,事故是()引发的结果。
有线电视信号传输一般可采用的传输方式有()。
某大型购物中心地下2层,地上5层,建筑高度30m,耐火等级2级。地下二层室内地面与室外出入口地坪高差为11.5m。地下每层建筑面积为152000m2,地下二层设置汽车库和变配电房、消防水泵房等设备用房及建筑面积为5800m2的建材商场;地下一层为家具灯饰商
根据我国《仲裁法》的规定,当事人有证据证明仲裁裁决依法应当撤销的,可向仲裁委员会所在地的中级人民法院申请撤销裁决的期限是()。
永青假发店是上海第一家假发店,清咸丰十年创办,后重点经营假发,以自产自销为主。假发品种之多,为全市之冠。()
作为可再生新能源,风能具有无污染、永不枯竭、综合社会效益高、研发成本相对低等特点。然而,风能行业建设投资回收周期长,客观上需要长期、稳定的优惠政策保障。美国风能增长潜力很大,但因美政府对风能税收鼓励政策不稳定,使包括中国风能企业在内的国际投资者在美国风能市
下列说法错误的是()。
学生在考试时,回答简答题的记忆活动主要是
VerylittlerainfellonSymi.The76______peoplehavesavedeverydroptheycould.77______Butithasneverbeenenoughfort
最新回复
(
0
)