首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是:分别统计7*7数组四周元素之和及四周元素中能够被7整除的元素的个数,并将统计结果在相应的标签中显示。请仔细阅读已有程序,然后在标出的位置编写适当的程序,实现上述的功能。 要求:不得修改原
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是:分别统计7*7数组四周元素之和及四周元素中能够被7整除的元素的个数,并将统计结果在相应的标签中显示。请仔细阅读已有程序,然后在标出的位置编写适当的程序,实现上述的功能。 要求:不得修改原
admin
2018-12-20
18
问题
在考生文件夹中有一个工程文件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://jikaoti.com/ti/rhm0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为VScroll1的垂直滚动条,要求程序运行时,滚动块的初始位置在最下端,应该使VScroll1.Value的值等于( )。
下面程序计算并输出的是( )。PrivateSubCommand1_Click() a=10 s=0 Do s=s+a*a*a a=a-1 LoopUntila
设有语句:Open"c:\Test.Dat"ForOutputAs#1则以下叙述中错误的是( )。
下列叙述中正确的是( )。
在窗体上画1个命令按钮,并编写如下事件过程:PrivateSubCommand1_Click() Dima(3,3) Form=1To3 Forn=1To3 Ifn=mOrn=4-mThen
为了使每秒钟发生一次计时器事件,可以将其Interval属性设置为( )。
下列选项中属于面向对象设计方法主要特征的是( )。
为使文本框具有初始值"VB",在设计阶段正确的操作是
假定有如下的程序段:DimintVarAsIntegerintvar=TruePrintintVar则输出结果是
随机试题
“众里寻他千百度,蓦然回首,那人却在灯火阑珊处。”这一情形可以归结为注意的()功能。
不同部位不同条件下安装的消防给水管的材质和处理方式也不同。当工作压力小于或等于0.60MPa时,室外埋地的消防给水管宜采用()
上市公司提取法定盈余公积达到注册资本的()时,可不再提取法定盈余公积。
深度睡眠状态亦被称为“休眠”,是人体处在低体温情况下可以自然发生的一种现象。人类飞往月球只要3天,但飞往火星则需要5—6个月。虽然人类现在的技术维持几个人在太空中生活几年不是什么大问题,但如果能让宇航员处于休眠状态,他们对水和食物的总体需求就可降低许多,不
元代永乐宫三清殿壁画的作者是民间画工__________等,而纯阳殿的壁画构图则是采用了__________的表现形式。
成长需要自由的空间,要想使人成长得更快,就一定要给他活动的自由,而不要将他拘泥于一个小小的鱼缸。这种给予更大空间而带来更快发展的现象被称为“鱼缸法则”。根据上述定义,下列现象属于“鱼缸法则”的是:
中国共产党在抗日民族统一战线中坚持的根本原则是()。
我国的基本法律部门包括()。
经典奔腾有两个8KB的超高速缓存,一个用于缓存指令,一个用于缓存______,这样可以大大提高访问Cache的命中率。
下列符号中可以用做C++标识符的是()。
最新回复
(
0
)