vb新操作题(含答案)教学教材.doc

《vb新操作题(含答案)教学教材.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、…………………………………………………………最新精品资料推荐……………………………………………………一、操作题，每题10分，6题共60分【第4题】打开文件“考生文件夹175工程1.vbp”，完善Command1_Click事件及s函数代码并保存。实现功能：用递归法求1+2+3+…+100的值，结果输出在窗体上。PublicFunctionS(nAsInteger)AsIntegerIfn=1ThenS=①ElseS=②+S(n-1)①1②n③100EndIfEndFunctionPrivateSubCommand1_Click()DimSumAsIntegerS

2、um=S(③)Print"Sum="&CStr(Sum)EndSub【第5题】打开文件“考生文件夹851工程1.vbp”，完善程序实现如下功能并保存：花果山上有一洞，小猴每次采取跳1阶或者跳3阶的办法从山下跳跃上台阶进洞，编程在Text1中输入台阶数，在Label1中显示有多少种不同的跳法。正确的运行结果如下图所示，调试时输入的台阶数最大不要超过35！Functions(nAsInteger)AsLongIfn=1Orn=2Thens=①Else①1②text1.text③s(n)Ifn=3Thens=2Elses=s(n-1)+s(n-3)EndIf……………

3、……………………………………………最新精品资料推荐……………………………………………………9…………………………………………………………最新精品资料推荐……………………………………………………EndIfEndFunctionPrivateSubCommand1_Click()DimnAsIntegern=Val(②)Label1.Caption=Str(③)EndSub【第6题】打开文件“考生文件夹861年龄问题.vbp”，完善程序实现如下功能并保存：有5个人坐在一起，第5个人说他比第4个人小3岁；第4个人说他比第3个人小3岁；第3个人说他比第2个人小3岁；第2

4、个人又说他比第1个人小3岁；第1个人说他是38岁。编写程序，计算出第5个人的年龄并显示。PrivateSubcmdDisplay_Click()Print"第5人的年龄:";age(①)EndSub①n②38③EndIfFunctionage(nAsInteger)AsIntegerIfn=1Thenage=②Elseage=age(n-1)-3③EndFunction【第3题】打开文件“考生文件夹89工程1.vbp”，完善Command1_Click事件代码并保存。乘坐飞机的经济舱时，免费托运行李一般不得超过20公斤，超重每公斤按全票价的1.5%计算。实现功能

5、：输入行李重量及经济舱全票价后，点击按钮，计算出行李托运费用，输出到对应文本框中。PrivateSubCommand1_Click()DimwAsInteger'行李重量DimpjAsInteger'机票价格DimfyAsSingle'托运费用w=Val(Text1.Text)pj=Val(Text2.Text)①fy=0②EndIf③fyIfw<=20Then①Elsefy=(w-20)*pj*0.015②Text3.Text=③EndSub【第4题】打开文件“考生文件夹122工程1.vbp”，完善Command1_Click事件代码并保存。王晓珊家距离学校s

6、1…………………………………………………………最新精品资料推荐……………………………………………………9…………………………………………………………最新精品资料推荐……………………………………………………（千米），某天她和李明各自同时从家里步行出发上学，王晓珊步行速率v1（千米/小时），李明步行速率v2（千米/小时)，结果他们同时到达学校。实现功能：输入s1、v1、v2，在窗体上输出李明家与学校之间的距离s2。PrivateSubCommand1_Click()①s1/v1②v2③s2Dims1AsSingleDims2AsSingleDimv1AsSingleDi

7、mv2AsSingleDimtAsSingles1=Val(InputBox("请输入王晓珊家离学校的距离："))v1=Val(InputBox("请输入王晓珊步行速度："))v2=Val(InputBox("请输入李明步行速度："))t=①s2=②*tPrint③EndSub【第6题】打开“考生文件夹772”中的文件“工程1.vbp”，完善Command1_Click事件代码并保存。实现功能：某商场正在搞促销活动，买300元送200元，例如：某顾客购买商品449元，返还顾客200元，不满300元的零头不送。在文本框中输入一个正整数，计算返还的金额并显示在标签