首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件Sjt=5.vbp。该程序的功能是:分别统计7*7数组四周元素之和及四周元素中能够被7整除的元素的个数,并将统计结果在相应的标签中显示。请仔细阅读已有程序,然后在标出的位置编写适当的程序,实现上述的功能。 要求:不得修改原有
在考生文件夹中有一个工程文件Sjt=5.vbp。该程序的功能是:分别统计7*7数组四周元素之和及四周元素中能够被7整除的元素的个数,并将统计结果在相应的标签中显示。请仔细阅读已有程序,然后在标出的位置编写适当的程序,实现上述的功能。 要求:不得修改原有
admin
2013-11-29
63
问题
在考生文件夹中有一个工程文件Sjt=5.vbp。该程序的功能是:分别统计7*7数组四周元素之和及四周元素中能够被7整除的元素的个数,并将统计结果在相应的标签中显示。请仔细阅读已有程序,然后在标出的位置编写适当的程序,实现上述的功能。
要求:不得修改原有程序和控件的属性。在结束程序运行之前,必须至少正确运行一次程序,将统计的结果显示在标签中,否则将没有成绩,最后将修改后的文件按原文件名进行存盘。
选项
答案
根据题意将考生文件夹内数据文件读入到一个二维数组,在Commandl Click事件过程中,Mod函数用于判断数组中四周元素的值是否能被7整除,运用If判断语句,实现变量n对于被7整除的数的统计。通过For循环语句,统计四周元素之和,需要注意,对于四个角的值累加了两次,所以要减去。 步骤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#l Do While Not EOF(1) For i=1 To 7 For j=l To 7 Input#1,a(i,j) Next j Next i Loop Close#1 End Sub Private Sub Commandl_Click() Din,Sum As Long ’====考生编写程序代码开始========= ’=====考生编写程序结束========== Save End Sub Public Sub Save() Open App.Path&”\out5.txt”For Output As#1 Print#1.LblFirst.Caption.lblSecond.Caption Close#l 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 Elself a(1,i)Mod 7=0 Then n=n+1 Elself a(7,i)Mod 7=0 Then n=n+l Elself a(i,7)Mod 7=0 Then n=n+l 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,7)-a(1,7)-a(7,1)-a(7,7) lblSecond=SUM 步骤3:调试并运行程序,关闭程序后按题日要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/aHQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Textl、Labell和Command1,然后编写如下两个事件过程:PrivateSubCommandl_Click()S$=InputBox(”请输入一个字符串”)Textl.Text
在名称为Form1的窗体上有两个命令按钮(名称分别为COmmand1和command2、标题分别为“读取”和“保存”)和一个文本框(名称为Textl、MultiLine属性为True、ScrollBars属性为2)。要求程序运行后,如果单击“读取”按钮,则
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个文本框,其名称为Textl,然后通过“属性”窗口设置窗体和文本框的属性,实现如下功能:在文本框中可以显示多行文本,显示水平和
将E-R图转换为关系模式时,实体和联系都可以表示为______。
软件测试方法中,黑盒测试法和白盒测试法是常用的方法,其中黑盒测试法主要是用于测试【】。
下列说法错误的是______。
目录列表框的Path属性的作用是______。
下列关于栈的叙述正确的是
算法的复杂度主要包括______复杂度和空间复杂度。
随机试题
两性霉素B的应用注意点不包括
大柴胡汤和四逆散两方中含有的相同药味是半夏泻心汤与小柴胡汤两方中含有的相同药味是
"孤腑"是指
钢板桩同堰施打顺序按施工组织设计规定进行,一般()。
生产预算是规定预算期内有关产品生产数量、产值和品种结构的一种预算。()
贝壳堤由死亡的贝类生物在海岸带堆积而成。在沿海地区经常分布着多条贝壳堤,标志着海岸线位置的变化。下图示意渤海湾沿岸某地区贝壳堤的分布。据此完成下列问题。沿岸流动的海水搬运河流入海口处的泥沙,并在贝壳堤外堆积,由此()。
教师课堂总结形式一般有()。
根据以下资料。回答以下题。2010年,全国国有建设用地土地供应总量42.8万公顷,比上年增长18.4%。其中,工矿仓储用地15.3万公顷,增长7.9%;商服用地3.9万公顷,增长40.4%;住宅用地11.4万公顷,增长40.3%;基础设施等其他用地12
从所给的四个选项中,选择最合适的一个填入问号处,使之呈现一定的规律性:
A、dailyB、weeklyC、monthlyAA、B、C三个选项的意思分别为每日一次、每周一次和每月一次。从文章第二段第二句话:Inbigcitiestherearemanytypeswithseveraldifferente
最新回复
(
0
)