首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件Sjt=5.vbp。该程序的功能是:分别统计7*7数组四周元素之和及四周元素中能够被7整除的元素的个数,并将统计结果在相应的标签中显示。请仔细阅读已有程序,然后在标出的位置编写适当的程序,实现上述的功能。 要求:不得修改原有
在考生文件夹中有一个工程文件Sjt=5.vbp。该程序的功能是:分别统计7*7数组四周元素之和及四周元素中能够被7整除的元素的个数,并将统计结果在相应的标签中显示。请仔细阅读已有程序,然后在标出的位置编写适当的程序,实现上述的功能。 要求:不得修改原有
admin
2013-11-29
64
问题
在考生文件夹中有一个工程文件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全国计算机二级
相关试题推荐
有3个关系R、S和T如下:由关系R和S通过运算得到关系T,则所使用的运算为()。
程序流程图中带有箭头的线段表示的是()。
下列叙述中正确的是
(1)在名称为Forml的窗体上画一个名称为Textl的文本框,其高、宽分别为600、1800。请在属性框中设置适当的属性满足以下要求:Text1的字体为“隶书”,字号为“三号”;窗体的标题为“字体大小”,不显示最大化按钮和最小化按钮,如图4
命令Picture1.Circle(500,800),800能够在图片框Picture中画出的图形是______。
在面向对象的程序设计中,类描述的是具有相似性质的一组【】。
若要设置定时器控件的定时时间,需设置的属性是______。
在代码中定义了一个子过程:SubP(a,B)...EndSub下面______调用该过程的格式是正确的。...EndSub下面______调用该过程的格式是正确的。
表达式Fix(-32.68)+Int(-23.02)的值为【】。
随机试题
试论述微观经济学与宏观经济学之间的关系。
转子回路串电阻启动仅适用于________电动机的启动。
患者男性,45岁,健康体检时发现心率44次/分,律齐。体表心电图示心动过缓,下一步该做哪项检查
沾染伤口是
北京犬,2岁,体表发热,咳声不爽,声音洪大,鼻流粘涕,呼出气热,口渴喜饮,舌苔薄黄,口色短津,脉象浮数。根据中兽医辨证论治,该病属于
在进行库存现金和存货清查时,出纳人员和实物保管人员不得在场。()
通常情况下,税务登记证件换证的周期是()。
试分析金融与经济发展的关系。
利用监管罪犯的职权私自将服刑关押的罪犯非法释放的行为是()。
Shewasunimpressedbytheactordescribinghimas"avainmanand______dull".
最新回复
(
0
)