首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件Sjt=5.vbp。该程序的功能是:分别统计7*7数组四周元素之和及四周元素中能够被7整除的元素的个数,并将统计结果在相应的标签中显示。请仔细阅读已有程序,然后在标出的位置编写适当的程序,实现上述的功能。 要求:不得修改原有
在考生文件夹中有一个工程文件Sjt=5.vbp。该程序的功能是:分别统计7*7数组四周元素之和及四周元素中能够被7整除的元素的个数,并将统计结果在相应的标签中显示。请仔细阅读已有程序,然后在标出的位置编写适当的程序,实现上述的功能。 要求:不得修改原有
admin
2013-11-29
53
问题
在考生文件夹中有一个工程文件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全国计算机二级
相关试题推荐
文本框Text1的KeyDown事件过程如下:PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)…EndSub其中参数KeyCode的值表示
在数据库设计中,将E-R图转换成关系数据模型的过程属于()。
在软件开发中,需求分析阶段产生的主要文档是()。
在窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。运行后的窗体外观如图所示。设有如下的类型和变量声明:PrivateTypePersonnameAsString*8mjotAsString+
在考生文件夹下有一个工程文件sj5.vbp,窗体上有两个文本框,名称分别为Textl和Text2,分别用来表示两个计数器;还有两个计时器Timerl和Timer2。Timerl用于变换Textl的计数;Timer2用于控制Text2的计数。运行时,单击“开
在考生文件夹中有工程文件sj5.vbp及其窗体文件sj5.frm,该程序是不完整的,请在有“?”的地方填入正确内容,然后删除“?”及所有注释符(即“’”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下:在名称为Forml的窗
(1)在考生文件夹中有工程文件sj3.vbp及其窗体文件sj3.frm,该程序是不完整的,在窗体上有两个名称分别为Textl和Text2的文本框,一个名称为Commandl,标题为“登录”的命令按钮。其中Textl文本框用来输入用户名,Text2文本框用来
软件开发离不开系统环境资源的支持,其中必要的测试数据属于
在代码中定义了一个子过程:SubP(a,B)...EndSub下面______调用该过程的格式是正确的。...EndSub下面______调用该过程的格式是正确的。
随机试题
所有权随()的存在而存续,不得预定所有权的存续期间。
根据《建设工程质量管理条例》的规定,建设工程的保修期自( )起计算。
在资产负债表负债方填列的项目是( )。
()主要负责基金管理公司和基金托管银行特别会员的自律管理。
北京市乐家房地产开发公司委托某税务师事务所对企业所得税和土地增值税的核算情况进行检查。2014年开发新楼盘,开发项目为宜居家园,企业经营资料如下:(1)2014年年初以出让方式取得市区一土地使用权用于开发,占地面积为4万平方米,地价款及相关费用5
实事求是,不为他人所左右,不因个人好恶影响分析,这是对注册会计师职业道德()的基本要求。
下列关于影视广告文案写作技巧的说法不正确的是()。
下列属于前期物业服务合同内容的是()。
(2010年真题)2007年12月31日,甲被人打伤,但直至2008年4月30日,甲才得知凶手是乙。2008年12月5日至2008年12月14日,甲因所在地发生地震,无法与外界联系。甲向人民法院起诉不丧失胜诉权的最后日期是
A、Hewantedtoremainpopularwiththeaudience.B、Hewishedtogivemoreperformances.C、Hedidn’ttrustothers.D、Hewasextre
最新回复
(
0
)