首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹中有工程文件 sjt3.vbp,程序界面如图3-3所示。当在文本框中输入正整数N,单击“计算”命令按钮,进行计算。若N是奇数,计算l+3!+5!+……+N!,若N是偶数,计算1+3!+5!+……+(N+1)!。在给出的窗体文件中已经有了全
(1)在考生文件夹中有工程文件 sjt3.vbp,程序界面如图3-3所示。当在文本框中输入正整数N,单击“计算”命令按钮,进行计算。若N是奇数,计算l+3!+5!+……+N!,若N是偶数,计算1+3!+5!+……+(N+1)!。在给出的窗体文件中已经有了全
admin
2017-09-22
39
问题
(1)在考生文件夹中有工程文件 sjt3.vbp,程序界面如图3-3所示。当在文本框中输入正整数N,单击“计算”命令按钮,进行计算。若N是奇数,计算l+3!+5!+……+N!,若N是偶数,计算1+3!+5!+……+(N+1)!。在给出的窗体文件中已经有了全部控件,但程序不完整,要求去掉程序中的注释符,把程序中的?改为正确的内容。
注意:考生不得修改窗体文件中已经存在的程序。最后程序按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp,该程序的功能是显示月历。运行程序后,在Text1、Text2中分别输入年份和月份,并在左边的框架中选择该年的1月1日是星期几,然后单击“显示月历”按钮,即可在下面的图片框内显示该年该月的月历。如图3-4所示的是2008年2月份的月历。请将事件过程中的注释符去掉,把“?”改为正确的内容,以实现上述程序功能。
注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
选项
答案
(1)步骤1:打开考生文件夹中的本题工程文件sjt3.vbp,在代码编辑窗口中,去掉程序中的注释符“’’,将问号“?”改为正确的内容。参考代码: m=n+1 m=n For i=1 To m Step 2 sum=sum+f(i) For i=1 To x 步骤2:按要求将文件保存至考生文件夹中。 (2)步骤1:打开考生文件夹中的本题工程文件sjt4.vbp,在代码编辑窗口中,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: month_day8(2)=IIf(leap_year(year),2 9,28) For k=1 To month-1 n=0 Private Function leap_year(year As Integer) As Boolean 步骤2:按要求将文件保存至考生文件夹中。
解析
(1)题目要求计算一个数列的和,数列中的每一项是一个整数的阶乘,可通过循环来计算阶乘之和。代码设计了一个Sub过程和函数f,在Sub过程中,首先获取文本框输入值n,然后判断n是否是偶数,根据题目要求,如果输入的n是偶数则加1,否则不需要加1,接下来通过for循环来计算累加和SHIn。第一个If用来判断输入的n是否是偶数,并赋值给变量m,如果n是偶数则m=n+1,否则m=n:第三个“?”处是补充循环的步长Step值,题目要求计算奇数的阶乘2,每一项之间的差值为2,因此For循环的Step值为2;第四个“?”处是计算累加和,通过调用函数f来计算阶乘,因此第四个“?”处为sum=sum+f(i);最后一个“?”处是补充计算阶乘的For循环Step值,显然是1。
(2)题目要求计算月历,具体计算的方法是将1月到当前选中月之前一个月的总天数,再根据1月1日是星期几就可以得到当前月的星期情况。
数组month_days保存的是1-12月的每月的天数,其中2月比较特殊,需要区分是否是闰年。函数Leap_year用于判断是否是闰年,如果是闰年返回布尔True。第一个“?”处是判断当前年份是否是闰年,如果是闰年的话2月是29天,使用IIf来判断,如果Leap_year返回True,则month_days(2)值是29,否则month_days(2)的值是非闰年的2月天数,即28;第二个“?”处的循环是计算从1月到选择月的前一个月(month-1)的总天数;第三个“?”处的循环用于输出月历,循环打印k的值,每循环一次n加1,当n的值为7的时候输出换行,因此第三个“?”处是将n赋值为0,开始下次计数;最后一个“?”处是补充函数参数,根据函数体内部实现“leap year=(ygar Mod 4=0 And year Mod 100<>0 Or year Mod 400=0)”,可知输入参数是year。
转载请注明原文地址:https://kaotiyun.com/show/ojGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
当把框架的什么属性设置为False时,其标题会变灰,框架中所有的对象均被屏蔽
假定有下表所列的菜单结构:要求程序运行后,如果单击菜单项“大图标”,则在该菜单项前添加一个“√”。以下正确的事件过程是
CommonDialog控件可以显示______种对话框。
为了清除列表框中的所有内容,应使用的方法是______。
编写如下事件过程:PrivateSubForm_keyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)EndSubPrivateSubForm_Keypress(
下列语句的输出结果是【】。PrintFormat(Int(12345.6789*100+0.5)/100,"0000,0.00")
如果存在如下过程:PrivateFunctionFun(a()AsInteger)DimFirstAsInteger,LastAsInteger,iAsInteger First=LBound(a) La
有如下事件过程: SubABD(x%,y%,z%) z%=X%+y% EndSub PrivateSubCommand1_Click() a%=30:b%=40 CallABD(a%,b%,c%) Pr
设已经在菜单编辑器中设计了窗体的快捷菜单,某顶级菜单为al,且取消其"可见"属性。运行时,可以使快捷菜单的菜单项响应鼠标左键单击和右健单击的事件过程是
一个工程中含有窗体Form1、Form2和标准模块Model1,如果在Form1中有语句PublicXAsInteger,在Model1中有语句PublicYAsInteger,则以下叙述中正确的是()。
随机试题
资本积累的本质,就是资本家不断利用无偿占有的工人创造的剩余价值,来扩大自己的资本规模,进一步扩大和加强对工人的剥削和统治。那么,资本积累的历史趋势是()
药用五味分阴阳,属阳的是
A.耳前淋巴结B.颌下淋巴结C.颌上淋巴结D.颏下淋巴结E.耳后淋巴结头皮炎症主要引流至
适合人选收入型组合的证券有()。
下列人中,不符合参与证券从业人员考试资格条件的是()。
按照我国刑法的规定,紧急避险不负刑事责任。但其构成条件有明确的规定.关于紧急避险的构成条件,下列表述不正确的是()。
某儿童剧以团购方式销售门票,其票价如下:现有甲、乙两个小学组织学生观看,若两个学校以各自学生总数分别购票,则两个学校门票共计需花费6120元;若两个学校将各自的学生合在一起购票,则门票费为5040元。据此可知,两个小学相差多少人?
为适应软件运行环境的变化而修改软件的活动称为()。
Paulinefailedtocatchtheflightbecausesheforgothervisaathome.
A、Oneshouldmakemoneyinanhonestway.B、Tragedyisalwayshandinhandwithgoodluck.C、Goodfortunemayturnintomisfortu
最新回复
(
0
)