vb新操作題含答案

/一、操作題，每題10分，6題共60分【第4題】打開文件“考生文件夾\175\工程1.vbp”，完善Command1_Click事件與s函數(shù)代碼并保存。實(shí)現(xiàn)功能：用遞歸法求1+2+3+…+100的值，結(jié)果輸出在窗體上。PublicFunctionS(nAsInteger)AsIntegerIfn=1ThenS=①ElseS=②+S(n-1)①1①1②n③100EndFunctionPrivateSubCommand1_Click()DimSumAsIntegerSum=S(③)Print"Sum="&CStr(Sum)EndSub【第5題】打開文件“考生文件夾\851\工程1.vbp”，完善程序?qū)崿F(xiàn)如下功能并保存：花果山上有一洞，小猴每次采取跳1階或者跳3階的辦法從山下跳躍上臺(tái)階進(jìn)洞，編程在Text1中輸入臺(tái)階數(shù)，在Label1中顯示有多少種不同的跳法。正確的運(yùn)行結(jié)果如下圖所示，調(diào)試時(shí)輸入的臺(tái)階數(shù)最大不要超過(guò)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\年齡問(wèn)題.vbp”，完善程序?qū)崿F(xiàn)如下功能并保存：有5個(gè)人坐在一起，第5個(gè)人說(shuō)他比第4個(gè)人小3歲；第4個(gè)人說(shuō)他比第3個(gè)人小3歲；第3個(gè)人說(shuō)他比第2個(gè)人小3歲；第2個(gè)人又說(shuō)他比第1個(gè)人小3歲；第1個(gè)人說(shuō)他是38歲。編寫程序，計(jì)算出第5個(gè)人的年齡并顯示。PrivateSubcmdDisplay_Click()Print"第5人的年齡:";age(①)EndSub①n①n②38③EndIfIfn=1Thenage=②Elseage=age(n-1)-3③EndFunction【第3題】打開文件“考生文件夾\89\工程1.vbp”，完善Command1_Click事件代碼并保存。乘坐飛機(jī)的經(jīng)濟(jì)艙時(shí)，免費(fèi)托運(yùn)行李一般不得超過(guò)20公斤，超重每公斤按全票價(jià)的1.5%計(jì)算。實(shí)現(xiàn)功能：輸入行李重量與經(jīng)濟(jì)艙全票價(jià)后，點(diǎn)擊按鈕，計(jì)算出行李托運(yùn)費(fèi)用，輸出到對(duì)應(yīng)文本框中。PrivateSubCommand1_Click()DimwAsInteger'行李重量DimpjAsInteger'機(jī)票價(jià)格DimfyAsSingle'托運(yùn)費(fèi)用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事件代碼并保存。王曉珊家距離學(xué)校s1（千米），某天她和李明各自同時(shí)從家里步行出發(fā)上學(xué)，王曉珊步行速率v1（千米/小時(shí)），李明步行速率v2（千米/小時(shí))，結(jié)果他們同時(shí)到達(dá)學(xué)校。實(shí)現(xiàn)功能：輸入s1、v1、v2，在窗體上輸出李明家與學(xué)校之間的距離s2。PrivateSubCommand1_Click()①s1/v1①s1/v1②v2③s2Dims2AsSingleDimv1AsSingleDimv2AsSingleDimtAsSingles1=Val(InputBox("請(qǐng)輸入王曉珊家離學(xué)校的距離："))v1=Val(InputBox("請(qǐng)輸入王曉珊步行速度："))v2=Val(InputBox("請(qǐng)輸入李明步行速度："))t=①s2=②*tPrint③EndSub【第6題】打開“考生文件夾\772”中的文件“工程1.vbp”，完善Command1_Click事件代碼并保存。實(shí)現(xiàn)功能：某商場(chǎng)正在搞促銷活動(dòng)，買300元送200元，例如：某顧客購(gòu)買商品449元，返還顧客200元，不滿300元的零頭不送。在文本框中輸入一個(gè)正整數(shù)，計(jì)算返還的金額并顯示在標(biāo)簽上，如樣張所示。①text①text②a\300③caption④sDimaAsIntegerDimsAsIntegera=Val(Text1.①)s=(②)*200Label1.③=Str(④)EndSub【第1題】打開文件“考生文件夾\373\操作2.vbp”，完善程序?qū)崿F(xiàn)以下功能并保存。找出100以內(nèi)的質(zhì)數(shù)對(duì)（若兩個(gè)質(zhì)數(shù)的差為2則稱為質(zhì)數(shù)對(duì)），并成對(duì)顯示結(jié)果。其中，函數(shù)IsP(m)判斷參數(shù)m是否為質(zhì)數(shù)。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\玫瑰花數(shù).vbp”，完善程序?qū)崿F(xiàn)如下功能并保存：如果一個(gè)4位數(shù)等于它的各位數(shù)字的4次方和，則這個(gè)4位數(shù)稱為“玫瑰花”數(shù)，例如1634就是一個(gè)玫瑰花數(shù)。試編程求出所有的玫瑰花數(shù)，結(jié)果如下圖所示。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\細(xì)胞分裂.vbp”，完善程序?qū)崿F(xiàn)如下功能并保存：有一種細(xì)胞每3分鐘分裂一次，每次分裂時(shí)每個(gè)細(xì)胞分裂成2個(gè)，30分鐘后有2048個(gè)細(xì)胞。問(wèn)開始時(shí)有多少個(gè)細(xì)胞？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”，完善程序?qū)崿F(xiàn)以下功能并保存。從鍵盤輸入若干個(gè)數(shù)直到輸入負(fù)數(shù)為止，統(tǒng)計(jì)所有非負(fù)數(shù)的平均值并輸出。PrivateSubCommand1_Click()DimxAsSingle,yAsSingleDimzAsIntegerx=InputBox("輸入一個(gè)數(shù)：")Dowhile_____(1)________y=_____(2)_________z=z+1x=InputBox("輸入一個(gè)數(shù)：")LoopIfz=0Thenz=1EndIfy=______(3)___________Print"平均值為：";yEndSub【第1題】打開文件“考生文件夾\372\操作1.vbp”，完善程序?qū)崿F(xiàn)以下功能并保存。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項(xiàng)的值。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”，完善程序?qū)崿F(xiàn)以下功能并保存。輸出數(shù)組的最大值。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”，完善程序?qū)崿F(xiàn)如下功能并保存：在所有的兩位整數(shù)中，輸出個(gè)位數(shù)字和十位數(shù)字不相同的整數(shù)與個(gè)數(shù)。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"總個(gè)數(shù)：";______(3)__________EndSub【第9題】打開文件“考生文件夾\850\工程1.vbp”，完善程序?qū)崿F(xiàn)如下功能并保存：在文本框text1中輸入一段含有數(shù)字的短文（如樣張），編寫程序查找統(tǒng)計(jì)非數(shù)字字符的個(gè)數(shù)，并在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”，完善程序?qū)崿F(xiàn)如下功能并保存：公元前60年，古羅馬統(tǒng)帥“朱利葉斯·愷撒”(Caesar)第一個(gè)用當(dāng)時(shí)發(fā)明的“愷撒密碼”書寫軍事文書，進(jìn)行戰(zhàn)時(shí)通信。愷撒加密法簡(jiǎn)而言之，就是字母替換加密，每一個(gè)字母用字母表中該字母后的第三個(gè)字母代替。即明文：ABCDEFGHIJKLMNOPQRSTUVWXYZ密文：DEFGHIJKLMNOPQRSTUVWXYZABC編寫程序，將明文加密輸出。例如：