首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是:分别统计7*7数组四周元素之和及四周元素中能够被7整除的元素的个数,并将统计结果在相应的标签中显示。请仔细阅读已有程序,然后在标出的位置编写适当的程序,实现上述的功能。 要求:不得修改原有程
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是:分别统计7*7数组四周元素之和及四周元素中能够被7整除的元素的个数,并将统计结果在相应的标签中显示。请仔细阅读已有程序,然后在标出的位置编写适当的程序,实现上述的功能。 要求:不得修改原有程
admin
2016-08-24
40
问题
在考生文件夹中有一个工程文件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 Command1_Click() Dim Sum As Long ’====考生编写程序开始========== ’=====考生编写程序结束========== Save End Sub Public Sub Save() Open App.Path&"\out5.txt" For Output As#1 Print#l,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+l ElseIf a(7,i)Mod 7=0 Then n=n+l 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,i)+a(i,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/OaLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序段的执行结果为()。Dimm(10),n(10)I=3ForI=1to5M(t)=tN(I)=2*I+tNexttPrintn(I);m(I)
下列叙述不正确的是()。
在窗体上面有一个列表,然后编写如下两个事件过程:PrivateSubForm_Click() List1.RemoveItem1:List1.RemoveItem2 List1.RemoveItem3EndSub
窗体上有一个命令按钮和一个列表框(Sorted属性为True),执行下列过程后的输出结果是()。PrivateSubCommand1_Click()List1.AddItem"China"List1.AddItem"Gr
在VisualBasic中语句的续行符采用()。
A=7,B=3,C=4,则表达式AMOD3+B^3/C\5的值为______。
以下关于多窗体的叙述中,正确的是
在下列模式中,能够给出数据库物理存储结构与物理存取方法的是
下列有关数据库的描述,正确的是()。
随机试题
若正项级数收敛,则级数________.
A.猪链球菌B.大肠杆菌C.沙门氏菌D.多杀性巴氏杆菌E.副猪嗜血杆菌能够引起禽类肺炎、气囊炎、心包炎、腹膜炎、输卵管炎,麦康康培养基菌落为红色的病原是()。
已知甲、乙为两个寿命期相同的互斥项目,通过测算得出:甲、乙两项目的内部收益率分别为18%和14%,甲、乙两项目的净现值分别分为240万元和320万元。假如基准收益率为12%,则以下说法中正确的是()。
被评估A设备为2000年从德国引进的设备,进口合同中的FOB价是20万马克。2005年10月进行评估时德国厂家已不再生产A设备了,其替代产品B的FOB报价为35万马克。按照通常情况,设备的实际成交价应为报价的90%,境外运杂费约占FOB价格的5%,保险费约
某企业生产甲产品,实际产量为9600件,实际工时为17280小时,实际变动制造费用与固定制造费用分别为88128元和200000元。本月预算产量为8000件,单位工时标准为1.6小时/件,标准变动制造费用分配率为4元/小时,标准固定制造费用分配率为6.4元
以下各组植物中,属于木本植物的是()。
a>2,则双曲线的离心率的取值范围是()。
在等比数列{an}中,,则首项a1为()
三舍法
一个工作人员可使用多台计算机,而一台计算机被多个人使用,则实体工作人员与实体计算机之间的联系是
最新回复
(
0
)