首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是:分别统计7*7数组四周元素之和及四周元素中能够被7整除的元素的个数,并将统计结果在相应的标签中显示。请仔细阅读已有程序,然后在标出的位置编写适当的程序,实现上述的功能。 要求:不得修改原
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是:分别统计7*7数组四周元素之和及四周元素中能够被7整除的元素的个数,并将统计结果在相应的标签中显示。请仔细阅读已有程序,然后在标出的位置编写适当的程序,实现上述的功能。 要求:不得修改原
admin
2018-12-20
34
问题
在考生文件夹中有一个工程文件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全国计算机二级
相关试题推荐
为了使标签控件在显示其内容时不覆盖其背景内容,需进行设置的属性为( )。
以下不属于单选按钮的属性是( )。
在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Label1,然后编写如下事件过程:PrivateSubCommand1_Click() Counter=0 Fori=1To4 Forj=6To1S
以下叙述中错误的是( )。
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是( )。
窗体上有1个Timer1计时器,1个Shape1形状控件,还有下面程序代码:DimflagAsBooleanPrivateSubForm_Load()flag=TrueTimer1.En
一个栈的初始状态为空。现将元素1,2,3,A,B,C依次入栈,然后再依次出栈,则元素出栈的顺序是
为使文本框具有初始值"VB",在设计阶段正确的操作是
数据库应用系统中的核心问题是( )。
有表示公司和职员及工作的三张表,职员可在多家公司兼职。其中公司C(公司号,公司名,地址,注册资本,法人代表,员工数),职员S(职员号,姓名,性别,年龄,学历),工作W(公司号,职员号,工资),则表W的键(码)为
随机试题
阅读《白雪歌送武判官归京》中的一段,然后回答小题。中军置酒饮归客,胡琴琵琶与羌笛。纷纷暮雪下辕门,风掣红旗冻不翻。轮台东门送君去,去时雪满天山路。山回路转不见君,雪上空留马行处。作者为什么要极力渲染大雪和严寒?
患儿,4岁,诊断肾病综合征。症见肢体反复浮肿,按之没指,面色萎黄,神疲乏力,脘闷腹胀,纳少便溏,小便短少,舌淡,苔白滑,脉细弱。其辨证属于
医生手指用力不轻不重,按至肌肉以体察脉象的方法称
偏头痛的预防治疗药物是
在施工图设计阶段,编制施工图预算时采用的是()。
根据账簿记录编辑会计报表不是会计核算软件的必备功能。()
按所跨区域划分的班轮航线包括()。
对使用木地板的新造集装箱,仅作为商品空箱出口时,按下列规定办理:( ).
Whichofthefollowingisanexampleofabbreviation?
A、Putsomemoneyinherwallet.B、Buyaband-concertticket.C、Makeadonation.D、Lendthemansomemoney.C男士对女士说他正在给爵士乐队募捐,问女士
最新回复
(
0
)