首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件vbsj4.vbp,运行情况如图3-41所示。程序的功能是计算如下:表达式的值:Z=(X+2)^2+(X+3)^3+(x+4)^4+…+(X+N)^N。其中,N和X值通过键盘分别输入到文本框txtN、txtX中。之后如果单击名称
在考生文件夹下有一个工程文件vbsj4.vbp,运行情况如图3-41所示。程序的功能是计算如下:表达式的值:Z=(X+2)^2+(X+3)^3+(x+4)^4+…+(X+N)^N。其中,N和X值通过键盘分别输入到文本框txtN、txtX中。之后如果单击名称
admin
2016-01-31
46
问题
在考生文件夹下有一个工程文件vbsj4.vbp,运行情况如图3-41所示。程序的功能是计算如下:表达式的值:Z=(X+2)^2+(X+3)^3+(x+4)^4+…+(X+N)^N。其中,N和X值通过键盘分别输入到文本框txtN、txtX中。之后如果单击名称为cmdCal、标题为“计算”的命令按钮,则计算表达式的值Z,并将计算结果显示在名称为lblResult的标签中。在给出的窗体文件中已经添加了全部控件和程序,但程序不完整。要求去掉程序中的注释符,把程序中的“?”改为正确的内容。
注意:考生不得修改窗体文件中已经存在的程序。程序中不得使用^运算符,而应使用函数xn进行幂运算。程序至少运行一次,按照下图输入数据,使N=5,X=10,单击“计算”按钮,计算Z的值,并将结果显示在标签lblResult中,否则没有成绩。最后,程序按原文件名存盘。
程序源码:
PriVate Function xn(a As Single, m As Integer)
Dim i As Integer
tmp=1
For i=1 To m
′ tnap=?
Next
′xn=?
End Function
Private Sub cmdCal_Click()
Dim n As Integer, i As Integer
Dim t As Single,s, X As Single
n=Val(txtN.Text)
x=Val(txtX.Text)
z=0
For i=2 To n
t=x+i
′ z=z+?
Next
′lblResult.Caption=?
Call SaveResult
End Sub
PriVate Sub SaveResult()
Open App.Path & "\out4.dat" For
Output As #1
Print #1, lblResult.Caption
Close #1
End Suh
选项
答案
审题分析 本题源程序中,自定义函数xn的功能是进行a^m幂运算,它通过For循环连续m次将a乘以累积变量tmp(初值为1)来实现。故自定义函数xn中第一个?处应改为:tmp*a,作为函数返回值第二个?处应改为:tmp。 在“计算”按钮的单击事件过程中,根据程序所要计算:表达式的特点,源程序利用一个For循环依次计算表达式中各项的值((x+i)^i),并将其累加入变量z。计算表达式中各项的值通过调用自定义函数xn(t,i)来实现的,其中t=x+i。故cmdCal_Click事件过程中第一个?处应改为:xn(t,i)。计算结果显示在标签中,故第二个?处应改为:z。 操作步骤 步骤1:打开考生文件夹中的本题工程文件vbsj4.vbp,在代码编辑窗口,去掉程序中的注释符“′”,将问号“?”改为正确的内容。 参考代码: tmp=tmp*a xn=tmp z=z+xn(t,i) lblResult.Caption=z 步骤2:按
键运行程序,在第1个文本框中输入5,第2个文本框中输入10,然后单击“计算”按钮。 步骤3:按要求将文件保存至考生文件夹中。 考点链接 Sub过程和函数过程、参数传递。
解析
转载请注明原文地址:https://kaotiyun.com/show/BuLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序运行时输出的结果是()。OptionBase1PrivateSubForm_Click()Dimx(10)AsInteger,y(5)AsIntegerForI=1to10
要建立一个学生成绩的随机文件,如下定义了学生的记录类型,由学号、姓名、三门课程成绩(百分制)组成,下列程序段正确的是()。
若想使时钟控件每隔0.25秒触发一次Timer()事件,则可将Interval属性值设为()。
若要使用户不能修改文本框TextBoxl中显示的内容,应设置()属性。
下列程序弹山对话框中按钮的个数为______。MsgBox"确认!",vbAbortRetryIgnore+vbMsgBoxHelpButton+vbQuestion,"提示"
阅读下列程序:PrivateSubCommand1_Click()DimiAsInteger,kAsIntegerk=2Fori=1To3PrintH(k);NextiEndSubFunctionH(jAsI
在文本框中输入字符时,通过()事件过程可以得到字符的ASCII码值。
执行下面程序,第一行输出结果是[],第二行输出结果是[]。OptionExplicitPrivateSubForm_Click()DimAAsIntegerA=2CallSub1(A)EndSubPriv
在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程:PrivateSubForm_Load()Text1.Text=""Text1.SetFocusFori=1To9Sum=Sum=iNextiText1.T
在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:PrivateSubCommand1_Click()ForI=1To2ForJ=1ToIPrintString(I,"Hello");NextJPrintN
随机试题
男孩,12岁,肉眼血尿6个月,无水肿、尿少,尿蛋白:微量,红细胞:满视野。肾脏B超:肾脏、膀胱、输尿管无异常。为明确诊断,应首先做什么检查以便确定诊断思路
甲公司指派员工唐某从事新型灯具的研制开发,唐某于2003年3月完成了一种新型灯具的开发。甲公司对该灯具的技术采取了保密措施,并于2004年5月19日申请发明专利。2005年12月1日,国家专利局公布该发明专利申请,并于2006年8月9日授予甲公司专利权。此
隔震与消能减震设计。主要是针对建筑设防烈度为()的建筑o
王某3月购精装房一处,付房款500万元(其中含装修费80万元);4月份将原在老城区的一处价值150万元的房产与甲企业在新城区的价值80万元的房产交换,向甲企业收取补价70万元;8月将原有价值1000万元的房产投入到自己名下的个人独资企业用于生产经营。已知当
某国有企业被依法宣告破产并于法定期限内成立清算组,对企业破产时管理的财产和债权人申报的债权情况如下:(1)企业破产时经营管理的财产评估变现价值如下:①生产厂房价值300万元,全部用于对A银行债务抵押;②借用B公司的办公楼价值160万
甲公司向乙公司订购设备一套。根据合同约定,2018年4月1日,甲公司签发一张以乙公司为收款人、金额为100万元的银行承兑汇票,承兑人为A银行,到期日为2018年7月1日。2018年4月4日,乙公司持有甲公司签发的银行承兑汇票不慎丢失,后被离职员工
与物理学相比,经济学在定量分析方面的发展难免让人失望。GPS大大地便利了人们的生活,登月使人们的生存视野更加开阔,而经济学的定量研究无法成功地预测危机,甚至一定程度上导致了危机的发生。古典经济学建立在非常严格的假设之上,然而就是这种假设成为了定量分析的基础
陶行知的“捧着一颗心来,不带半根草去”的教育信条体现了教师()。
用SELECT语句查询学生表中所有学生的姓名,使用的是______。
Haresgenerallyhavelongerearsandhindlegsthanrabbitsandmovebyjumping______running.
最新回复
(
0
)