还剩14页未读,继续阅读
本资源只提供10页预览,全部文档请下载后查看!喜欢就下载吧,查找使用更方便
文本内容:
一、操作题,每题10分,6题共60分【第题】4打开文件“考生文件夹工程完善】事务与,\175\l.vbp”Command_Click函数代码并保存S实现功能用递归法求的值,结果输出在窗体上1+2+3+…+100
①Public FunctionSn As Integer As Integer Ifn=1Then S=Else
②S=+Sn-1End IfEnd FunctionPrivate Sub Commandl_Click DimSum As Integer
③n nSum=SPrint Sum=CStrSum End Sub【第题】5打开文件“考生文件夹工程,完善程序实现如下功能并保存\851\l.vbp”花果山上有一洞,小猴每次实行跳阶或者跳阶的方法从山下跳动上台阶13进洞,编程在中输入台阶数,在中显示有多少种不同的跳法Text1Labell正确的运行结果如下图所示,调试时输入的台阶数最大不要超过35!-!□!x|输入台阶数20共有跳法1278i\I-iFunction snAs IntegerAs LongIfn=1Or n=2ThenDim a As IntegerDim b As IntegerDim k As Integer s=0a=1b=1For k=1To10
①a+b
②s+b/aNext kPrints End Sub【第题】3打开文件“考生文件夹操作,完善程序实现以下功能并保\374\
3.vbp”存输出数组的最大值Private Sub Commandl_ClickDim arrl,Max As Integer1=-32768
①maxFor i=2To7
②arrl=Array12,435,76,24,78,54,866,43If arr1iMax ThenNext i”最大值是“;Print MaxEnd Sub【第题】4打开文件“考生文件夹操作完善程序实现如下功能并保存\376\
5.vbp”,在全部的两位整数中,输出个位数字和十位数字不相同的整数与个数Private SubCommandl_ClickDim nAs Integer,a As Integer,b As Integer,x As Integern=0For a=1For b=0To9If ab Then11to9⑵x=.2a*10+bPrint x;n=n+1End IfNextbPrintNext a总个数⑶Print”End Sub【第题】9打开文件“考生文件夹工程完善程序实现如下功能并保存,\850\l.vbp”在文本框中输入一段含有数字的短文如样张,编写程序查找统计非text1数字字符的个数,并在中显示labell国查找非数字13回区IPrivate SubCommand l_ClickDim xAs String,y As StringDim s As Integer,i As Integerx=Text
1.TextS=
①For i=1To Lenx
②=Midx,i,1If Ascy48Or Ascy57Thens=s+1End IfNexti
③Lab ell.Caption=Str EndSub【第题】1打开文件“考生文件夹恺撒密码,完善程序实现如下功能并保\857\.vbp”存公元前年,古罗马统帅“朱利叶斯•恺撒”第一个用当时独创的60Caesar“恺撒密码”书写军事文书,进行战时通信恺撒加密法简而言之,就是字母替换加密,每一个字母用字母表中该字母后的第三个字母代替即明文密文ABCDEFGHIJKLMNOPQRSTUVWXYZ编写程序,将明文加密输出例如DEFGHIJKLMNOPQRSTUVWXYZABC输入How areyou!输出Krz duhbrx!Private SubcmdCode_ClickDim ptAsString字母在字母表中的序号Dim nAs IntegerDimct As StringDim chAsStringDim i As Integerpt=txt Pt.Textnnct=
①chFor i=1To Lenpt
②ch=Midpt i,1
①Select CaseHHn=Ascch-Asc An=n+3Mod26ch=Chrn+65n f,n HCasea Toz
②n=ch=Chrn+97End Select
③ct=Next itxtCt.Text=ctEnd SubElseIfn=3Thens=2Elses=sn-1+sn-3End IfEnd IfEnd FunctionPrivate SubCommandl_ClickDim nAs Integer
②n=Vai
③Lab ell.Caption=Str EndSub【第题】6打开文件“考生文件夹年龄问题,完善程序实现如下功能并保\861\.vbp”存有个人坐在一起,第个人说他比第个人小岁;第个人说他比第55434个人小岁;第个人说他比第个人小岁;第个人又说他比第3332321个人小岁;第个人说他是岁编写程序,计算出第个人的年龄并31385显示Private SubcmdDisplay_Click”第人的年龄:;
①Print5“age EndSubFunction agenAs IntegerAs IntegerIfn=1Then
②age=Elseage=agen-1-3
③End Function【第题】3打开文件“考生文件夹工程完善事务代码并,\89\l.vbp Commandl_Click保存乘坐飞机的经济舱时,免费托运行李一般不得超过公斤,超重每公斤按全20票价的计算15%实端功能输入行,重量与经济舱全票价后,点击按钮,计算出行李托运费用,输出到对应文本框中Private SubCommandl_Click行李重量Dim wAsInteger机票价格Dim pjAsInteger托运费用Dim fy As Singlew=ValTextl.Textpj=ValText
2.TextIf w=20Then
①Elsefy=w-20*pj*
0.015
②③Text
3.Text=EndSub【第题】4打开文件“考生文件夹工程完善事务代,\122\l.vbp Command1_Click码并保存王晓珊家距离学校(千米),某天她和李明各自同时从家里步行动身上学,S1王晓珊步行速率(千米/小时),李明步行速率(千米/小时),结V1V2果他们同时到达学校实现功能输入、、在窗体上输出李明家与学校之间的距离si vlv2,s2()Private SubCommandl_ClickDim si As SingleDim s2As SingleDim vl As SingleDimv2As Single((请输入王晓珊家离学校的距离Dim tAs Singlesi=Val InputBox”用((请输入王晓珊步行速度))vl=Val InputBox”((请输入李明步行速度”))
②v2=Val InputBoxs2=*t
③PrintEnd Sub【第题】6打开“考生文件夹中的文件“工程完善事务\772”l.vbp,Commandl_Click代码并保存实现功能某商场正在搞促销活动,买元送元,例如某顾客购买300200商品元,返还顾客元,不满元的零头不送在文本框中输入449200300一个正整数,计算返还的金额并显示在标签上,如样张所示Private SubCommandl_Click
①textDim aAsIntegerDimsAsIntegera=Vai
②a\300
①②Text
1.s=*200
③④Labell.=Str【第题】EndSub1打开文件“考生文件夹操作,完善程序实现以下功能并保存\373\
2.vbp”找出以内的质数对若两个质数的差为则称为质数对,并成对显示1002结果其中,函数推断参数是否为质数IsPm mPublicFunction IsPmAs BooleanDimiAsInteger________________________1For i=2To IntSqrmIf2Then IsP=FalseNext i
①Isp=truEnd FunctionePrivate SubCommand l_ClickDim iAsInteger,pl AsBoolean,p2As Booleanpl=IsP3For i=5To100Step2p2=IsPiIf pland p2Then Print3,ipl=p2Next iEndSub【第题】8打开文件“考生文件夹玫瑰花数完善程序实现如下功能并保,\859\.vbp”存假如一个位数等于它的各位数字的次方和,则这个位数称为“玫瑰花”444数,例如就是一个玫瑰花数试编程求出全部的玫瑰花数,结果如下1634图所示Private SubcmdDemoRose_ClickDim iAs IntegerDimsAsIntegerDim mAs IntegerFor i=1000To9999s=0For j=®To4m=Midi,j,1
②s=s+Next jIfi=s ThenPrint i
③EndSub【第题】打开文件“考生文件夹细胞分裂,完善程序实现如8\863\.vbp”下功能并保存有一种细胞每分钟分裂一次,每次分裂时每个细胞分裂3成个,分钟后有个细胞问起先时有多少个细胞2302048Private SubcmdDivision_Click分钟共分裂Dim f10AsInteger’30
①2048DimiAsInteger
②step-1
①f10=
②Fori=9To0Stepfi=fi+1/2Nexti
③PrintEnd Sub1【第题】打开文件“考生文件夹操作,完善程序实现以下功能并保存\375\
4.vbp”从键盘输入若干个数直到输入负数为止,统计全部非负数的平均值并输出Private SubCommandl_ClickDim xAsSingle,yAs SingleDim zAsInteger输入一个数x=InputBoxDo while1y=2z=z+1输入一个数X=InputBoxLoopIf z=0Thenz=1EndIf__________________y=3平均值为:HPrint”;yEnd Sub1【第题】打开文件“考生文件夹操作完善程序实现以下功能并保存,\372\Lvbp”求-+—+—+—+—+—……前项的和2011+11+22+33+55+8PrivateSubCommandl_ClickDim sAsSingleDimaAsInteger,bAsInteger,c AsInteger,kAsIntegers=0a=1b=1For k=1To20s=s+a/bC=2a=3b=c+aNext kPrintsEnd Sub【第题】7打开文件工程完善事务代码并保存,“Z:\114\l.vbp”Form_Click完善程序,求••前项的值・・・・1/1+1/2+2/3++21/34+20PrivateSubCommand l_ClickDim sAsInteger。