首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是:分别统计7*7数组四周元素之和及四周元素中能够被7整除的元素的个数,并将统计结果在相应的标签中显示。请仔细阅读已有程序,然后在标出的位置编写适当的程序,实现上述的功能。 要求:不得修改原
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是:分别统计7*7数组四周元素之和及四周元素中能够被7整除的元素的个数,并将统计结果在相应的标签中显示。请仔细阅读已有程序,然后在标出的位置编写适当的程序,实现上述的功能。 要求:不得修改原
admin
2018-12-20
32
问题
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是:分别统计7*7数组四周元素之和及四周元素中能够被7整除的元素的个数,并将统计结果在相应的标签中显示。请仔细阅读已有程序,然后在标出的位置编写适当的程序,实现上述的功能。
要求:不得修改原有程序和控件的属性。在结束程序运行之前,必须至少正确运行一次程序,将统计的结果显示在标签中,否则将没有成绩,最后将修改后的文件按原文件名进行存盘。
选项
答案
步骤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 Private Sub CommandLClick() Dim Sum As L0ng ’====考生编写程序开始======= ’=====考生编写程序结束======= Save End Sub Public Sub Save() Open App.Path&"\out5.txt"For Output As #1 Print #1,lblFirst.Caption.lblSecond.Caption Close #1 End Sub 程序结束 参考答案 Dim i As Integer.n As Integer For i=1 To 7 If a(i,1)Mod 7=0 Then n=n+l ElseIf a(1,i)Mod 7=0 Then n=n+l Elself a(7,i)Mod 7=0 Then n=n+1 ElseIf a(i,7)Mod 7=0 Then n=n+1 End If Next i lblFirst=n For i=1 To 7 sum=sum+a(1,i)+a(i,1)+a(7,1)+a(1,7) Next sum=sum—a(1,1)一a(1,7)一a(7,1)一a(7,7) lblSecond=sum 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
根据题意将考生文件夹内数据文件读入到一个二维数组,在Command1 Click事件过程中,Mod函数用于判断数组中四周元素的值是否能被7整除,运用If判断语句,实现变量n对于被7整除的数的统计。通过For循环语句,统计四周元素之和,需要注意,对于四个角的值累加了两次,所以要减去。
转载请注明原文地址:https://kaotiyun.com/show/bfFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有语句:Open"c:\Test.Dat"ForOutputAs#1则以下叙述中错误的是( )。
窗体上已有的3个单选按钮组成了1个名为ChkOpt1的控件数组。用于区分控件数组ChkOpt1中每个元素的属性是( )。
在VisualBasic中,所有标准控件都具有的属性是( )。
设循环队列的存储空间为Q(1:35),初始状态为front=rear=35。现经过一系列入队与退队运算后,front=15,rear=15,则循环队列中的元素个数为
设工程中有Form1、Form2两个窗体,要求单击Form2上的Command1命令按钮,Form2就可以从屏幕上消失,下面的事件过程中不能实现此功能的是( )。
以下关于窗体的叙述中错误的是( )。
在关系模型中,每一个二维表称为一个()。
有三个关系R、S和T如下:则关系T是由关系R和S通过某种操作得到,该操作为( )。
能正确表述“x为大于等于5并且小于20的数”的VisualBasic表达式是()。
为了判断字符串变量ch中是否是一个大写字母,需要编写这样一个表达式:当ch中字符为大写字母时,表达式的值为True,否则为False。下面能正确实现这一目的的表达式是
随机试题
在Access中,文本类型的字段最多存储【】个字符或数字。
食管癌的X线表现不包括()
A.所在地省级人民政府卫生主管部门批准B.所在地设区的市级人民政府卫生主管部门批准C.所在地设区的市级药品监督管理部门批准D.所在地省级药品监督部门E.国家卫生行政主管部门医疗机构需要使用麻醉药品和第一类精神药品的,应当经()部门批准
某机床企业生产130型号机床,其年产量为10000台,每个机床需要型号为C1-001的齿轮2个。该企业年初运用在制品定额法来确定本年度车间的生产任务,相关信息及数据见下表:在制品定额计算表为各车间分配生产任务时必须与()相平衡。
(2018年真题)计算机病毒能利用系统信息资源进行繁殖并生存,影响计算机系统正常运行。下列关于计算机病毒的表述,正确的是()。
依法执教就是要求教师在教育教学活动中,按照教育法律、法规使自己的教育教学活动法制化和规范化。
违法犯罪分子实施犯罪后携带匕首逃跑的,人民警察可以使用武器。()
类似于孔子的启发式教学法的是苏格拉底的()
Lookatthenotebelow.Youwillhearawomanleavingamessageaboutwheretoholdameeting.
【S1】【S9】
最新回复
(
0
)