首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp,如图所示。运行程序时,从文件中读入7×7的矩阵数据并放入二维数组a中。单击“计算”命令按钮时,将统计矩阵两个对角线的元素中能被3整除的个数,统计结果在标签lblFirst中显示;同时计算矩阵主对角线的元素之和,
在考生文件夹中有一个工程文件sjt5.vbp,如图所示。运行程序时,从文件中读入7×7的矩阵数据并放入二维数组a中。单击“计算”命令按钮时,将统计矩阵两个对角线的元素中能被3整除的个数,统计结果在标签lblFirst中显示;同时计算矩阵主对角线的元素之和,
admin
2019-03-14
58
问题
在考生文件夹中有一个工程文件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全国计算机二级
相关试题推荐
将数据项“Student”添加到名称为Listl的列表框中,并使其成为列表框第一项的语句为
输入VB源程序时,若一个命令行中包含两个语句,则两个语句之间的分隔符应使用
要求如果x被7除余2,则输出x的值,下列语句中不能实现此功能的语句是
设有如下数组定义语句:Dima(一1To4,3)AsInteger以下叙述中正确的是
窗体上有一个名称为Command1的命令按钮,编写如下事件过程:PrivateSubC0mmand1Click()i=0DoWhilei
设有如下事件过程:PrivateSubCommand1Click()Fori=1To5j=1DoPrint“*”i=i-1LoopUntilj=0NextiEndSub运行程序,输出“*”的个数是
使用Line控件在窗体上画一条从(0,0)到(600,700)的直线,则其相应属性的值应是
在学校中,“班级”与“学生”两个实体集之间的联系属于()关系。
公司中有多个部门和多名职员,每个职员只能属于一个部门,一个部门可以有多名职员。则实体部门和职员间的联系是
关于MDI窗体下列说法正确的是()。
随机试题
中国政府在美国发行的美元债券称为()。
1858年,俄国强迫中国签订的割去黑龙江以北60多万平方公里中国领土的不平等条约是
试述唑类抗真菌药的分类及代表药的应用。
公文的承办包括哪些方面?
铁-酚试剂中铁盐的作用为
肠内营养并发症与输入速度及溶液浓度有关的是
以下属于民事责任特点的是:
在石油天然气勘探开发、矿产开采、初级原材料加工行业使用较多的投资结构是( )。
人类历史上经历了哪三次技术革命?()
HenryKissingerwasborninasmalltown,located【C1】______thesouthGermanprovinceofFranconia,onMay27,1923.Hisfatherwa
最新回复
(
0
)