vb新操作题含答案

/一、操作题，每题10分，6题共60分【第4题】打开文件“考生文件夹\175\工程1.vbp”，完善Command1_Click事件与s函数代码并保存。实现功能：用递归法求1+2+3+…+100的值，结果输出在窗体上。PublicFunctionS(nAsInteger)AsIntegerIfn=1ThenS=①ElseS=②+S(n-1)①1①1②n③100EndFunctionPrivateSubCommand1_Click()DimSumAsIntegerSum=S(③)Print"Sum="&CStr(Sum)EndSub【第5题】打开文件“考生文件夹\851\工程1.vbp”，完善程序实现如下功能并保存：花果山上有一洞，小猴每次采取跳1阶或者跳3阶的办法从山下跳跃上台阶进洞，编程在Text1中输入台阶数，在Label1中显示有多少种不同的跳法。正确的运行结果如下图所示，调试时输入的台阶数最大不要超过35！Functions(nAsInteger)AsLongIfn=1Orn=2Thens=①Else①1①1②text1.text③s(n)s=2Elses=s(n-1)+s(n-3)EndIfEndIfEndFunctionPrivateSubCommand1_Click()DimnAsIntegern=Val(②)Label1.Caption=Str(③)EndSub【第6题】打开文件“考生文件夹\861\年龄问题.vbp”，完善程序实现如下功能并保存：有5个人坐在一起，第5个人说他比第4个人小3岁；第4个人说他比第3个人小3岁；第3个人说他比第2个人小3岁；第2个人又说他比第1个人小3岁；第1个人说他是38岁。编写程序，计算出第5个人的年龄并显示。PrivateSubcmdDisplay_Click()Print"第5人的年龄:";age(①)EndSub①n①n②38③EndIfIfn=1Thenage=②Elseage=age(n-1)-3③EndFunction【第3题】打开文件“考生文件夹\89\工程1.vbp”，完善Command1_Click事件代码并保存。乘坐飞机的经济舱时，免费托运行李一般不得超过20公斤，超重每公斤按全票价的1.5%计算。实现功能：输入行李重量与经济舱全票价后，点击按钮，计算出行李托运费用，输出到对应文本框中。PrivateSubCommand1_Click()DimwAsInteger'行李重量DimpjAsInteger'机票价格DimfyAsSingle'托运费用w=Val(Text1.Text)pj=Val(Text2.Text)①fy=0①fy=0②EndIf③fy①Elsefy=(w-20)*pj*0.015②Text3.Text=③EndSub【第4题】打开文件“考生文件夹\122\工程1.vbp”，完善Command1_Click事件代码并保存。王晓珊家距离学校s1（千米），某天她和李明各自同时从家里步行出发上学，王晓珊步行速率v1（千米/小时），李明步行速率v2（千米/小时)，结果他们同时到达学校。实现功能：输入s1、v1、v2，在窗体上输出李明家与学校之间的距离s2。PrivateSubCommand1_Click()①s1/v1①s1/v1②v2③s2Dims2AsSingleDimv1AsSingleDimv2AsSingleDimtAsSingles1=Val(InputBox("请输入王晓珊家离学校的距离："))v1=Val(InputBox("请输入王晓珊步行速度："))v2=Val(InputBox("请输入李明步行速度："))t=①s2=②*tPrint③EndSub【第6题】打开“考生文件夹\772”中的文件“工程1.vbp”，完善Command1_Click事件代码并保存。实现功能：某商场正在搞促销活动，买300元送200元，例如：某顾客购买商品449元，返还顾客200元，不满300元的零头不送。在文本框中输入一个正整数，计算返还的金额并显示在标签上，如样张所示。①text①text②a\300③caption④sDimaAsIntegerDimsAsIntegera=Val(Text1.①)s=(②)*200Label1.③=Str(④)EndSub【第1题】打开文件“考生文件夹\373\操作2.vbp”，完善程序实现以下功能并保存。找出100以内的质数对（若两个质数的差为2则称为质数对），并成对显示结果。其中，函数IsP(m)判断参数m是否为质数。PublicFunctionIsP(m)AsBooleanDimiAsInteger__________(1)____________Fori=2ToInt(Sqr(m))If________(2)__________ThenIsP=FalseIsp=trueIsp=trueMmod2=0I-2EndFunctionPrivateSubCommand1_Click()DimiAsInteger,p1AsBoolean,p2AsBooleanp1=IsP(3)Fori=5To100Step2p2=IsP(i)Ifp1andp2ThenPrint_________(3)_________,ip1=p2NextiEndSub【第8题】打开文件“考生文件夹\859\玫瑰花数.vbp”，完善程序实现如下功能并保存：如果一个4位数等于它的各位数字的4次方和，则这个4位数称为“玫瑰花”数，例如1634就是一个玫瑰花数。试编程求出所有的玫瑰花数，结果如下图所示。PrivateSubcmdDemoRose_Click()=1\*GB3=1\*GB3①1=2\*GB3②m^4=3\*GB3③nextiDimsAsIntegerDimmAsIntegerFori=1000To9999s=0Forj=①To4m=Mid(i,j,1)s=s+②NextjIfi=sThenPrinti③EndSub【第8题】打开文件“考生文件夹\863\细胞分裂.vbp”，完善程序实现如下功能并保存：有一种细胞每3分钟分裂一次，每次分裂时每个细胞分裂成2个，30分钟后有2048个细胞。问开始时有多少个细胞？PrivateSubcmdDivision_Click()=1\*GB3①x>=0=1\*GB3①x>=0=2\*GB3②y+x=3\*GB3③y/z=1\*GB3①2048=2\*GB3②step-1=3\*GB3③f(0)DimiAsIntegerf(10)=①Fori=9To0Step②f(i)=f(i+1)/2NextiPrint③EndSub【第1题】打开文件“考生文件夹\375\操作4.vbp”，完善程序实现以下功能并保存。从键盘输入若干个数直到输入负数为止，统计所有非负数的平均值并输出。PrivateSubCommand1_Click()DimxAsSingle,yAsSingleDimzAsIntegerx=InputBox("输入一个数：")Dowhile_____(1)________y=_____(2)_________z=z+1x=InputBox("输入一个数：")LoopIfz=0Thenz=1EndIfy=______(3)___________Print"平均值为：";yEndSub【第1题】打开文件“考生文件夹\372\操作1.vbp”，完善程序实现以下功能并保存。PrivateSubCommand1_Click()DimsAsSingleDimaAsInteger,bAsInteger,cAsInteger,kAsInteger=1\*GB3=1\*GB3①1=2\*GB3②a=3\*GB3③ba=______(1)_________b=1Fork=1To20s=s+a/bc=______(2)_________a=______(3)_________b=c+aNextkPrintsEndSub【第7题】打开文件“Z:\114\工程1.vbp”，完善Form_Click事件代码并保存。完善程序，求1/1+1/2+2/3+…+21/34+…前20项的值。PrivateSubCommand1_Click()DimsAsIntegerDimaAsIntegerDimbAsIntegerDimkAsIntegers=0a=1b=1=1\*GB3=1\*GB3①a+b=2\*GB3②s+b/a=3\*GB3③a+bs=s+a/ba=①s=②b=③NextkPrintsEndSub【第3题】打开文件“考生文件夹\374\操作3.vbp”，完善程序实现以下功能并保存。输出数组的最大值。PrivateSubCommand1_Click()Dimarr1,MaxAsIntegerarr1=Array(12,435,76,24,78,54,866,43)=1\*GB3=1\*GB3①max=2\*GB3②0=3\*GB3③max=arr1(i)Fori=_____(2)______To7Ifarr1(i)>MaxThen_____(3)__________NextiPrint"最大值是:";MaxEndSub【第4题】打开文件“考生文件夹\376\操作5.vbp”，完善程序实现如下功能并保存：在所有的两位整数中，输出个位数字和十位数字不相同的整数与个数。PrivateSubCommand1_Click()DimnAsInteger,aAsInteger,bAsInteger,xAsIntegern=0Fora=______(1)____________Forb=0To9=1\*GB3=1\*GB3①1to9=2\*GB3②a*10+b=3\*GB3③nx=______(2)________Printx;n=n+1EndIfNextbPrintNextaPrint"总个数：";______(3)__________EndSub【第9题】打开文件“考生文件夹\850\工程1.vbp”，完善程序实现如下功能并保存：在文本框text1中输入一段含有数字的短文（如样张），编写程序查找统计非数字字符的个数，并在label1中显示。PrivateSubCommand1_Click()DimxAsString,yAsStringDimsAsInteger,iAsInteger=1\*GB3=1\*GB3①0=2\*GB3②y=3\*GB3③ss=①Fori=1ToLen(x)②=Mid(x,i,1)IfAsc(y)<48OrAsc(y)>57Thens=s+1EndIfNextiLabel1.Caption=Str(③)EndSub【第10题】打开文件“考生文件夹\857\恺撒密码.vbp”，完善程序实现如下功能并保存：公元前60年，古罗马统帅“朱利叶斯·恺撒”(Caesar)第一个用当时发明的“恺撒密码”书写军事文书，进行战时通信。恺撒加密法简而言之，就是字母替换加密，每一个字母用字母表中该字母后的第三个字母代替。即明文：ABCDEFGHIJKLMNOPQRSTUVWXYZ密文：DEFGHIJKLMNOPQRSTUVWXYZABC编写程序，将明文加密输出。例如：