首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是:分别统计7*7数组四周元素之和及四周元素中能够被7整除的元素的个数,并将统计结果在相应的标签中显示。请仔细阅读已有程序,然后在标出的位置编写适当的程序,实现上述的功能。 要求:不得修改原有程
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是:分别统计7*7数组四周元素之和及四周元素中能够被7整除的元素的个数,并将统计结果在相应的标签中显示。请仔细阅读已有程序,然后在标出的位置编写适当的程序,实现上述的功能。 要求:不得修改原有程
admin
2016-08-24
39
问题
在考生文件夹中有一个工程文件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 Command1_Click() Dim Sum As Long ’====考生编写程序开始========== ’=====考生编写程序结束========== Save End Sub Public Sub Save() Open App.Path&"\out5.txt" For Output As#1 Print#l,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+1 ElseIf a(1,i)Mod 7=0 Then n=n+l ElseIf a(7,i)Mod 7=0 Then n=n+l 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,i)+a(i,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/OaLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画两个文本框和一个命令按钮,然后在代码窗口中编写如下事件过程:PrivateSubCommand1_Click()Text1.Text="VBProgramming"Text2.Text=Text1.TextT
将E-R图转换到关系模式时,实体与联系都可以表示成
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click() Fori=1To4 x=4 Forj=1To2 x=x+6 Ne
假定窗体有一个标签,名为Label1,为了使该标签透明并且没有边框,正确的属性设置为()。
能够将文本框控件隐藏起来的属性是______。
以下叙述中错误的是()。
以下关于窗体的叙述中,错误的是
设“A=“87654321””,则表达式Val(Lef1(A,4)+Mid(A,4,2))的值为()。
在一棵二叉树上,第5层的结点数最多是()。
数据库技术的根本目标是()。
随机试题
【背景资料】施工总承包单位与建设单位于2010年2月20日签订了某20层综合办公楼工程施工合同。合同中约定:(1)人工费综合单价为45元/工日;(2)1周内非承包方原因停水、停电造成的停工累计达8h可顺延工期1d;(3)施工总承包单位须配有应
攻击Web站点的方式有
设f(x)=则f’(x)=
女孩,2岁。住院诊断为暴发型流行性脑脊髓膜炎(休克型)。哪项不是主要的临床表现
资料1:报关单中华人民共和国海关进口货物报关单预录入编号:
基金管理人应在申购、赎回开放日前()个工作日在至少一种中国证监会指定的媒体上刊登公告。
小学儿童行为规范训练应适合其年龄特征,高年级应侧重社会公德、意志品格和爱国意识的教育。()
下列各选项,不属于客体概念的是
(2013上集管)一个公司的新员工被分配到一个正处在计划编制阶段的项目中工作,她必须决定是否接受分配到这个项目或者要求被分配到另一个不同的项目。但是项目经理没有上班并且也联系不上,项目团队成员可以查看______以帮助她确认分配的工作。
IsCactusCityWildWestParkold?
最新回复
(
0
)