首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是:分别统计7*7数组四周元素之和及四周元素中能够被7整除的元素的个数,并将统计结果在相应的标签中显示。请仔细阅读已有程序,然后在标出的位置编写适当的程序,实现上述的功能。 要求:不得修改原
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是:分别统计7*7数组四周元素之和及四周元素中能够被7整除的元素的个数,并将统计结果在相应的标签中显示。请仔细阅读已有程序,然后在标出的位置编写适当的程序,实现上述的功能。 要求:不得修改原
admin
2018-12-20
14
问题
在考生文件夹中有一个工程文件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://kaotiyun.com/show/bfFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设a=4,b=5,c=6,执行语句Printa
以下程序的功能是随机产生10个两位的整数:OptionBase1PrivateSubCommand1_Click() Dima(10)AsInteger DimiAsInteger Randomize Fori=1
设x为一整型变量,且情况语句的开始为:SelectCasex,则不符合语法规则的Case子句是( )。
假定Picture1和Text1分别为图片框和文本框的名称,则下列错误的语句是( )。
以下关于窗体的叙述中错误的是( )。
下面控件中,没有Caption属性的是( )。
数据库应用系统中的核心问题是( )。
公司中有多个部门和多名职员,每个职员只能属于一个部门,一个部门可以有多名职员。则实体部门和职员间的联系是
已知num1=15,则表达式Len("abc"&num1)+InStr("Internet","net")的值为
设有关系表学生S(学号,姓名,性别,年龄,身份证号),每个学生学号唯一。除属性学号外,也可以作为键的是
随机试题
Anthropology(人类学)isthestudyofhowpeoplelive.Itincludestheirfamilylife,religion,art,lawsandlanguage.Theterm"an
男性,29岁,农民,因畏寒、发热、头痛、耳鸣5天,伴腰痛、皮疹,恶心、呕吐2天入院。体检:体温39.6℃,颜面潮红,球结膜充血,胸背部可见散在性暗红色斑丘疹,肝肋下未及,脾肋下1cm。血像:WBC8.0×109/L,中性粒细胞0.84,尿蛋白(+)、红细
天台乌药散与暖肝煎两方组成中均含有的药物是()
临床出现自汗多尿,是气的哪一种功能减退的表现()
当瓦屋面坡度近于50%时,其檐口构造不应设置:[2012—067]
有限责任公司成立后,发现作为出资的工业产权实际价额显著低于公司章程所定价额时,应当由交付出资的股东补交其差额,其他股东对其承担连带责任。()
数据库在计算机系统中不是以文件的方式存储的。()
2005年5月份全国基本型乘用车的产量是:2006年5月份全国乘用车销量最大的车型是:
WritetheappropriatelettersA-CagainstQuestions17-20.WhatarethelocationsofthefollowingplacesinRadford?(A)par
Mostofpeopledevelopbadreadinghabitsduringtheirchildhood,andneverget_____them.
最新回复
(
0
)