首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个丁程文件sjt3.vbp,运行情况如图所示。程序的功能是计算如下表达式的值: z=(x-2)!+(x-3)!+(x-4)!+…+(x-N)! 其中的N和x值通过键盘分别输入两个文本框Text1、Text2中。单击名
(1)在考生文件夹下有一个丁程文件sjt3.vbp,运行情况如图所示。程序的功能是计算如下表达式的值: z=(x-2)!+(x-3)!+(x-4)!+…+(x-N)! 其中的N和x值通过键盘分别输入两个文本框Text1、Text2中。单击名
admin
2015-10-23
31
问题
(1)在考生文件夹下有一个丁程文件sjt3.vbp,运行情况如图所示。程序的功能是计算如下表达式的值:
z=(x-2)!+(x-3)!+(x-4)!+…+(x-N)!
其中的N和x值通过键盘分别输入两个文本框Text1、Text2中。单击名称为Command1、标题为“计箅”的命令按钮,则计算表达式的值,并将计算结果在名称为Label1的标签中显示。
在窗体文件中已经给出了全部控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。
要求:程序调试通过后,必须按照如图所示输入N=5,x=12.然后计算z的值,并将计算结果显示在标签Label1中,否则没有成绩。
注意:不能修改程序的其他部分和控什属性。最后把修改后的文件按原文件名存盘。
(2)在考牛文件夹下有一个工程文件sjt4.vbp。窗体L有名称为Timer1的计时器控件和名称为Label1的标签。该程序的功能是在名称为Label1的标签中循环显示不同的内容。程序开始运行,在标签中显示“第一项”(如图所示),且每隔1秒钟依次显示“第二项”、“第三项”、“第四项”,如此循环。在给出的窗体文件中已经有了全部控件和程序,但程序不完整,要求去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。
选项
答案
步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符"’",将问号改为正确的内容。 Private Function xn(m As Integer)As Long Dim i As Integer Dim tmp As Long tmp=1’初始化tmp为1 For i=1 To m’循环得到m的阶乘 tmp=tmp*i Next xn=tmp’返回结果 End Function Private Sub Commandl Click() Dim n As Integer Dim i As Integer Dim t As Integer Dim Z As Long,x As Single n=Val(Text1.Text)’Val()函数将数字字符转化为数值以方便运算 x=Val(Text2.Text) z=0 For i=2 To n’循环计算表达式的值 t=x—i z=z+xn(t)保存t的阶来阶乘累加和 Next Label1.Caption=z Call SaveResult End Sub Private Sub SaveResult() Open App.Path&"\out3.dat"For OutputAs #1’打开文件 Print#1,Label1.Caption’将Label1中的内容写入文件 Close #1 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)步骤1:打开本题T程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 D1m arr Private Sub Form Load() arr=Array("第一项","第二项","第三项","第四项")’初始化数组 Labell.Caption=arr(0)’首先在Label1中显示第一项 Timer1.Interval=1000’设置Timer1时间间隔为1秒 Timer1.Enabled=True’设置Timer1在载入窗体时就运行 End Sub Private Sub Timer1 Timer() temp As Integer’设王静态属性,记录下标 Label1.Caption=arr(i) If i=3 Then i=0’当Label1循环显示一遍,剐使之重新循环 E1se i=i+1 End If End Sub 步骤3:调试并运行程序。关闭程序后按题目要求存盘。
解析
(1)通过循环语句实现xn()函数的乘幂运算;在命令按钮的单击事件过程中通过Val()函数实现字符类型向数值型的转换,通过循环语句及调用xn()函数,获得甬数返回值,实现表达式的结果运算;最后运用Call语句调用SaveResult()函数,并将结果保存在文件夹下的out4.dat文件中。
(2)数组arr含有“第一项”、“第二项”、“第三项”和“第四项”4个值,将Timer1的Interva1属性设置为1000,表示变化的时间间隔为Is,Timer1的Enabled属性设置为True。标签的Caption属性初值设置为arr(0),通过If语句和局部变量i的累加实现每隔1秒钟依次显示“第二项”、“第三项”、“第四项”,如此循环。
转载请注明原文地址:https://jikaoti.com/ti/TxJ0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在考生文件夹中有一个工程文件execise25.vbp,相应的窗体文件为execise25.timo在在名为Form1的窗体上有一个命令按钮,其名称为Cmd1,标题为“输入”;还有一个文本框,其名称为Text1,初始内容为空白。程序运行后,单击“输
在名为Form1的窗体上建立3个菜单(名称分别为vbRead、vbCalc和vbSave,标题分别为“读数”、“计算”和“保存”),然后绘制一个文本框(名称为Text1,MultiLine属性设置为True,ScrollBars属性设置为2),如下图所示。
设有数组定义语句:Dima(5)AsInteger,并设List1为列表框控件。下列给数组元素赋值的语句错误的是()。
源程序的文档化不包括()。
在面向对象方法中,属性与操作相似的一组对象称为【】。
下列叙述中错误的是
在深度为5的满二叉树中,叶子结点的个数为
以下关系表达式中,其值为假的是
当把框架的什么属性设置为False时,其标题会变灰,框架中所有的对象均被屏蔽
一个教师可讲授多门课程,一门课程可由多个教师讲授。则实体教师和课程间的联系是
随机试题
在我国,确认土地承包经营权的主要依据是()。
Guthrie细菌生长抑制试验
Thebirdfluvirusismutatingandbecomingmoredangeroustomammals,accordingtoresearchers.Thediscoveryreinforcesfears
A.压缩骨折B.横行骨折C.斜行骨折D.粉碎骨折E.嵌插骨折骤然跪倒髌骨着地发生的髌骨骨折是
放射生物作用引起DNA和蛋白质构造变化的阶段是
孙某早年与妻子吕某离婚,儿子小强随吕某生活。小强15岁时,其祖父去世,孙某让小强参加葬礼。小强与祖父没有感情,加上吕某阻挡,未参加葬礼。从此,孙某就不再支付小强的抚养费用。吕某和小强向当地法院提起诉讼,请求责令孙某承担抚养费。在法庭上,孙某提出不承担抚养费
下列( )种组合能较全面而准确地表达投标报价的基本原则。Ⅰ、要保护投标方的经济利益Ⅱ、充分利用已有现场资料,优选经济合理的方案Ⅲ、详细研究分析招标文件中双方经济责任,根据承包方式,做到“内细算外粗报”,进行综合归纳Ⅳ、报价
随着人们生活水平的不断提高,越来越多的人开始外出旅游。如果在户外无定位的专门仪器,可借助地物来判定方向。下列是判断方位的方法,其中描述不正确的是()。
周某为了庆祝自己的18岁生日,与吴某达成了购买吴某饲养的波斯猫的合同,周某支付了价款,合同还约定,在周某生日的当天,吴某应亲自将波斯猫交付给周某。在周某生日那天,吴某带着波斯猫去周某家的路上不慎将波斯猫丢失。当日,陈某发现波斯猫后甚为喜欢,便带至家中细心喂
交换机命令可使用缩写形式,在Switch#模式下,键人con,则表示——。
最新回复
(
0
)