首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是:分别统计7*7数组四周元素之和及四周元素中能够被7整除的元素的个数,并将统计结果在相应的标签中显示。请仔细阅读已有程序,然后在标出的位置编写适当的程序,实现上述的功能。 要求:不得修改原
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是:分别统计7*7数组四周元素之和及四周元素中能够被7整除的元素的个数,并将统计结果在相应的标签中显示。请仔细阅读已有程序,然后在标出的位置编写适当的程序,实现上述的功能。 要求:不得修改原
admin
2016-06-30
20
问题
在考生文件夹中有一个工程文件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.txtt’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 Commandl_Click() Dim Sum As Long ’====考生编写程序开始=========: ’=====考生编写程序结束========= Save End Sub Public Sub Save() Open App.Path&”\out5.txC”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+1 ElseIf a(1,i)Mod 7=0 Then n=n+1 ElseIf 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 8rim=sum+a(1,i)+a(i,1)+a(7,i)+a(i,7) Next sum=sum—a(1,1)一a(1,7)一a(7,1)一a(7,7) lblSecond=sum 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
根据题意将考生文件夹内数据文件读入到一个二维数组,在Commandl Click事件过程中,Mod函数用于判断数组中四周元素的值是否能被7整除,运用If判断语句,实现变量n对于被7整除的数的统计。通过For循环语句,统计四周元素之和,需要注意,对于四个角的值累加了两次,所以要减去。
转载请注明原文地址:https://kaotiyun.com/show/6qLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在VisualBasic中,组合框是文本框和下列哪一项的特性的组合
为了使图像框适应图片的大小,下列哪个属性设置正确
退出VisualBasic6.0的快捷键是
双击窗体中的对象后,VisualBasic将显示的窗口是
如果将布尔常量值True赋值给一个整型变量,则整型变量的值为()。
设A="123456",则表达式Val(Left(A,4)+Mid(A,4,2))的值为
A=7,B=3,C=4,则表达式AMOD3+B^3/C\5的值为______。
在软件开发中,需求分析阶段产生的主要文档是()。
(1)在名称为Forml的窗体上画两个标签(名称分别为Labell和Label2,标题分别显示为“姓名”和“年龄”)、两个文本框(名称分别为Textl和Text2,初使内容均为空)和一个命令按钮(名称为Commandl,标题为“显示”)。然后编写命令按钮的
随机试题
心肌梗死的发热很少超过()
下列行为人以他人的名义而进行的“代理”活动,是无权代理的有( )。
在以下的合同中,( )属于效力待定的合同。
某石油化工企业在进行总平面设计时,明火加热炉宜集中布置在装置的边缘,且位于可燃气体、液化烃、甲B类液体设备的()。
下列关于民事诉讼管辖的说法中,正确的是()。
下列不属于广告监理管理的行政许可的是()。
某人购得一条电热毯,在使用时因该电热毯漏电而受伤害,如果他向法院起诉,法律保护其请求权的诉讼时效期间为()。
Thecentralgovernmenthopestocurtailmilitaryspendinginthenextyear.
Facialtattooingisastandard______amongcertainpeoples.
Work-lifeBalance:FlexAppealGeorginaBlizzardandNickyImriedecidedtheyneededtofindamoreflexibleworkingpattern
最新回复
(
0
)