首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是:分别统计7*7数组四周元素之和及四周元素中能够被7整除的元素的个数,并将统计结果在相应的标签中显示。请仔细阅读已有程序,然后在标出的位置编写适当的程序,实现上述的功能。 要求:不得修改原
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是:分别统计7*7数组四周元素之和及四周元素中能够被7整除的元素的个数,并将统计结果在相应的标签中显示。请仔细阅读已有程序,然后在标出的位置编写适当的程序,实现上述的功能。 要求:不得修改原
admin
2018-12-20
15
问题
在考生文件夹中有一个工程文件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全国计算机二级
相关试题推荐
设窗体上有一个列表框控件List1,含有若干列表项。以下能表示当前被选中的列表项内容的是( )。
有以下通用过程:Functionfun(NAsInteger) s=0 Fork=1ToN s=s+k*(k+1) Nextk fun=sEndFunction该过程的功能是( )。
下面不属于软件设计阶段任务的是
以下不属于单选按钮的属性是( )。
假定Picture1和Text1分别为图片框和文本框的名称,则下列错误的语句是( )。
在关系数据库中,用来表示实体间联系的是
下面不属于软件需求分析阶段主要工作的是
窗体上有1个Timer1计时器,1个Shape1形状控件,还有下面程序代码:DimflagAsBooleanPrivateSubForm_Load()flag=TrueTimer1.En
下面不能作为结构化方法软件需求分析工具的是
随机试题
2001年12月,美国克莱顿公司向我国某海事法院起诉,根据其对我国巴林顿公司货轮“明星号”享有的货款抵押权求偿。经法院调查,“明星号”是我国巴林顿公司从英国租用的一艘在利比亚登记并挂利比亚国旗的光船。我国该海事法院在处理该案时,应适用下列哪一法律?( )
某工程预计工期10个月,施工合同价款为600万元人民币。根据《建筑工程施工许可管理办法》的规定,建设单位在申请领取施工许可证时,应当到位的资金原则上不得少于()万元人民币。
根据《建设工程质量管理条例》,下列选项中,( )符合勘察、设计单位质量责任和义务的规定。
下列公式中错误的是()
甲公司为乙公司的母公司,2014年3月31日发生如下业务,甲公司以500万元的价格将其生产的产品销售给乙公司,其销售成本为350万元。乙公司购买该产品作为管理用固定资产使用。乙公司对该固定资产按3年的使用期限采用年限平均法计提折旧,预计净残值为0。乙公司在
方针目标管理通过PDCA循环,以()相结合的经济责任制为考核手段,确保方针目标管理全过程的实现。
甲、乙两地点之间有三条道路相连。某地理活动小组测绘了这三条道路的纵向剖面图(图3)。在对应的地形图上可以看出()。
悉尼歌剧院的设计者是()人。
简述民事法律关系。[中山大学2016年研]
并行数据库系统中,对关系进行划分并把它们分布到多个磁盘,所采用的主要技术有3种:轮转法、散列分布和【】。
最新回复
(
0
)