vb試驗(yàn)編程答案

實(shí)驗(yàn)教程實(shí)驗(yàn)三順序結(jié)構(gòu)程序設(shè)計(jì)編程題參考答案（第47頁(yè)）.輸入學(xué)生的語(yǔ)文、數(shù)學(xué)、英語(yǔ)、物理四門課程的成績(jī)，計(jì)算該學(xué)生的總成績(jī)和平均成績(jī)并輸出。要求使用InputBox分別進(jìn)行輸入，使用Print方法輸出。.輸入圓的半徑，輸出其周長(zhǎng)、面積。要求使用TextBox控件進(jìn)行輸入，使用Label控件輸出。.輸入一元二次方程ax2+bx+c=0的系數(shù)a、b、c，輸出兩個(gè)實(shí)根。要求使用TextBox控件分別進(jìn)行輸入，使用Label控件輸出。實(shí)驗(yàn)四選擇結(jié)構(gòu)程序設(shè)計(jì)編程題參考答案（第58頁(yè)）1.輸入一個(gè)，判斷其是否能同時(shí)被3和7整除。2.輸入三個(gè)數(shù)，輸出其中的最大值。

.編程及輸出分段函數(shù)的值。由鍵盤輸入t的值，計(jì)算y的值廠t2 t<1Y=t2-1t2-2t+1t2+4t-171Y=t2-1t2-2t+1t2+4t-171Wt<22Wt<3tN3_Inix|程1-[fna.Jriich三]'使用if巳卜巳if語(yǔ)句PrivateSubCommandl_Click()DimyAsSingle^tAsSinglet-InputBox("inputt")Ift<1Theny=l1lEl&rlft<2Thrny=t*t-1ElselfI<3Theny—t+t-2+t?1ElseV-l「I.-4I.-17EndIfPrint"y=";yEndSub.輸入年齡，輸出所處人群：9歲以下為兒童，輸出A；10?19為少年，輸出B；20?29為青年，輸出B；30?49為中年，輸出B；50以上為老年，輸出E；要求使用SelectCase語(yǔ)句實(shí)現(xiàn)。.輸入年份，輸出對(duì)應(yīng)的屬相。已知1984年為鼠年，要求使用SelectCase語(yǔ)句實(shí)現(xiàn)。實(shí)驗(yàn)五循環(huán)結(jié)構(gòu)程序設(shè)計(jì)編程題參考答案(第77頁(yè)).編寫程序，求s=1X2X3+2X3X4+…+nX(n+1)X(n+2)的值，n由程序輸入。E工WI二 《口口口0》 |[mPrive七eSi-xbCotTitxiA.ticLl_diclc() 上Oitu叁AhLotiyttlCn iAnItlu=InpLitBoxCiiiiJiitii)s=OFori_1Tos-Z旺 1Print，Ps=";eEndeub.有一個(gè)分?jǐn)?shù)序列千『3,5,『當(dāng)一求出這個(gè)序列前20項(xiàng)的和。j0nj0n.求,（即1！+2！+3！+???+10?。﹏=1.求一類三位數(shù)，該書中有某兩位為相同數(shù)字，且該數(shù)是一個(gè)完全平方數(shù)，輸出這些數(shù)并統(tǒng)計(jì)個(gè)數(shù)。些數(shù)并統(tǒng)計(jì)個(gè)數(shù)。.輸出所有的“水仙花數(shù)”?！八苫〝?shù)”是指一個(gè)三位數(shù)，其各位數(shù)字立方和等于該數(shù)本身。例如，371是一個(gè)水仙花數(shù)，因?yàn)?71=33+73+13工松rq<l,e*，6.打印如圖所示的乘法表口=2=3電用=6=7=B胃:■:仁"：?）＜■力力3二二二叮匚9"4*1-16：＜-；：二KX；：＜：：：?■用二；..赤汴?F＞：?r＜X口；：＜-＞J-＜：?^-T：睡-匕I1I1ori=1I'oa.(i)=2*iPrinta.(i);JNextEnclSviLt實(shí)驗(yàn)六定長(zhǎng)數(shù)組的使用編程題參考答案（第96頁(yè)）1.定義一個(gè)包含10個(gè)數(shù)組元素的數(shù)組a，為其數(shù)組元素分別賦值為2、4、6、8、…20，并輸出。-InlxlV工掙1--Inlxl||Co,?-tukd.1三［Click||Co,?-tukd.1PrivateSubCommandl_Cliclc()TJima.(1To1O)AsIntegerriAsIntegerIO2.輸入十個(gè)評(píng)委的分?jǐn)?shù)，去掉最高分和最低分后，計(jì)算最后的平均分并輸出。

Clickimin%Dimi%.Fori=Zux:1:TiliXX：Koi-iDimOimDiiaiailtmDimi%fj%,m$ToClickimin%Dimi%.Fori=Zux:1:TiliXX：Koi-iDimOimDiiaiailtmDimi%fj%,m$To5=InputBoxI'inputxiInputBox["input*J[fcj(iwin)>ej{j}Thenimin=jEndIfNextj—STLZLLl=sumcj(j)Thenm(i):xm(i)Km(i]-InputBoxfinputxicj(i)-InputBoxfinputcj)Printxm(i);cj{i)ClickzO,iAsIntegerAsSingleAsSiii-SLe仁工爸1-Fornil(C&dh)ConHuudlPrivateSubCommandl_Click()Dimxm(1To5)AsString,cj(lTo5)AsIntegerPrivateSubCommandl_CUckQDimxm(lTo5)AsString,cj(lTo5)AsIntegeim=xni(l]:xm{i}= xin[iniin)t=cj(i):cj(i)=cj(imiii);cj(iniiii)=tNext1Print'選擇法升序排序”Fori=1To5Printxm(i);cj(i)3.輸入5個(gè)學(xué)生的姓名與一門課程的成績(jī)，按成績(jī)的升序輸出姓名和成績(jī)。分別使用比較互換法、選擇法和冒泡法實(shí)現(xiàn)a(1To1O)AsiSin宮laAs millsvtiiiAsSingle=avei-EndIfNextjNextiPrint'比較互換法升序排序Fori=1To5Print?[i);cj(i)NextEndSubi.irumi]k二怩1-iCfldeJ工卷1Ferem.1 4仁口dna).輸出5X5的矩陣，除對(duì)角線上的元素為1外，其他數(shù)組元素的值均為0。足工行]-FolkI足工行]-FolkI(Godfl) I.□.輸入5X5的矩陣，求出每列元素之和，并把和值最大的那一列上的各元素和第一列各元素進(jìn)行對(duì)調(diào)。-|f t|riirt tPrivateSubComtna】id1_CHck() 衛(wèi)Dima(lTo5,1Ta5)AsInteger,ijDimsuni(lTo5),l>aFori-IToFori=1Vo3afi,j)=inputBo^C'iiiputa["&i&","&j&”T)a(i,i)=Int(Rnd*20)調(diào)試程序則使用7.輸入十個(gè)學(xué)生的三門課程的成績(jī)，并進(jìn)行Print(用計(jì)算并輸出每門課程的平均分。Fenj=1To5snm(j)=0Fori-1To5fliunfj)=snm(j)?a{i.j)NejctiPrint導(dǎo)iiinIjli;Nextj-1=讓I

(2)輸出每門課程中的最高分與最低分。(3)計(jì)算每個(gè)學(xué)生的平均分。(4)按學(xué)生的平均分進(jìn)行降序排序。~|mirkPrivateSubCnmrrnrdI_C1I21:()Dim~|mirkPrivateSubCnmrrnrdI_C1I21:()Dim蕓cl1To1L1.LTo-3：As[ntegerDim汽umAsInteger. L?口用；x寸p(1T口1門)Dim\jtiA1To3AsIntegei..ullil：1To31AsIntegerDim?.丁，匚：Fori-1To10Fori-ITa飛l<l.；：-lupuLBu^：'LtLp.L：')sc(bj)-Rnd*LOO 調(diào)試程序時(shí)用PrimTabiIj-11A6-1：-￡；i,j)；Next；PrintNextlPrint，若門堤程的平均分'ForJ-1To3[二-CiForl=1To1u|sum-sum十sc(i?J|Cv%uidl tClick ▼■ Print"每門蝌的展商分“For.i=1To3PrintTab：j-1)G11：:的工：：];NextjPrintPriiU”每門課程的最低分"Forj=1To3PrintTab(j-1)*6+1)；NestjPrint「門口匚”每個(gè)學(xué)生的平均分"Forj=1To12*11F-(IFor.'=1To3=iii:ti-wir.iimi,NestIIzccjijj-sv.m；_'.iPrim.NrxtJForj-1To3inici(.i)-tc：1,；：;miiiljl一Lj)Fori-2Tq3-iIflci..j) ThenJnti_xlj)-七口上二[f:.jjvmin;Thenit.:二二-“.-{i,[INext.Nrst?PrintFrinL每門眼程的最高分'Forj--To3PrintTab;-1：-Q-1);i..axjl,NextjFruitNextj父之pjij- /3.2Printv^p；iii：NextlFori--To9I二變耳換火降序排序’For；-i+_Ta_CIf^spj(i)<3cspj(j|Thent-Kspjlikxspj(i)-Kspj(j):xspj(j)-二End]fNextjNextlPrintPrint/嗖注生修均分降不陰手‘Forj-1To12PrintX3p；iil：NestlEndSub用jlU實(shí)驗(yàn)七動(dòng)態(tài)數(shù)組、控件數(shù)組與自定義類型的數(shù)組編程題參考答案(第10頁(yè))6.自定義學(xué)生類型，包括學(xué)生姓名、學(xué)號(hào)和成績(jī)，輸入學(xué)生人數(shù)n，并輸入學(xué)生的信息，按成績(jī)進(jìn)行降序排序后輸出。程序界面設(shè)計(jì)如下圖。

-!□!xI-!□!xI一| |C1ick三］Friv^teType臼t□MmAsString：*呂內(nèi)上1AsString”10r：jAaInteger母上idTypeFriu日teSnbC:mmmand1_C11匚：1工。Dimat(JAsstii7nAsInteger；,tAs由七口DimiAeiIntmweiTnjAsIntegern=Input日‘輸入人敢”]ReDimstt1Tqn)Fixturel.ClsPicture2.C?l&Fori.=1T口n=InputB "新，入姓.名Fori.=1T口n=InputB "新，入姓.名"j=Inpu.tBcH￡「領(lǐng)入,一、」號(hào)”]=[nputHcH<"輸入成績(jī)”]Pictu.re1.Print 自tlU-xll二3t[i).cjNeastFor1=1T口n-1Forj=1Ton-iIf3ttj).cj匚sttj+l).cjTtient=3t(j)St(j)=3t[j+1)3t(j+1]=tEndIfbleMtjNeastiPrint”陣序排序后”Forl=1Tc?nPictiire2,NextEnidSubPrintst⑴-xm二eieitLi).C：j實(shí)驗(yàn)七過程編程題參考答案(第123頁(yè))2.編寫子過程SubArraySa(a()AsInteger,sumAsSingle,averAsSingle)該過程的功能是求一維數(shù)組a的元素和與平均值，并通過參數(shù)sum和aver返回結(jié)果。4.編程子過程Submovearray(a()AsInteger,IrAsBoolean,nAsInteger),該過程的功能是使一維數(shù)組元素左移或者右移若干位。其中參數(shù)a()是數(shù)組、lr參數(shù)指示位移的方向(口起向左移，F(xiàn)alse向右移)、n參數(shù)確定移動(dòng)的位數(shù)。程序界面如下圖

V|jciickCVBBU4I1.編寫程序，利用Function函數(shù)計(jì)算下式的值。s=(1+2V|jciickCVBBU4I1.編寫程序，利用Function函數(shù)計(jì)算下式的值。s=(1+2+3+…+m)-(1+2+3+1+2+3+...+p...+n)-DIx主調(diào)過程PrivateSubCoininancll_CLickQDim?iQAsInteger,lrAsBoolean,口A尋Integer,s()AsStrilr=I”put日sc(1輸入移位方向，1左移，門右移,)口-卜中川及聞“輸入移位位數(shù)"I3=Split(TeKtl.Te3ir,"：)k-UBoimd(s)ReDimri(k)Furi=0TeiJca(i)-NextCallmoveariavla^lr.n)Texta.Text='：F(ki-0ToUBfhmd(s]TextS.Text-Text2.Tcxl&且6)&""NextEndSub-Zxl實(shí)驗(yàn)八函數(shù)過程編程題參考答案（第137頁(yè)）,Sub過程PrivateSubmovearray(a()AsInteger,LrAsBoolean,Dimi%,kl%,k2%hj%ht%kl-LBnundfuik2=UBoiind(a)Fori-1Ton1(Il=TrueThen1-川kl)Farj=klTok2-1=a(j+1)Nextia(k2)=tElset=叩￡知Furj-k2Tokl-1Step-1a(i)=a(j-1)Nestjrl(l<1)=t￡11(1IfNextinAsInteger)E工程1-Ioral(Ccde)工曼1-0工HI-F310工HI-F31(Cuth) T|四京xsi-衛(wèi),h.icc.duiPrivoteFunction千(m AsLong_Oiini.AsLutege-r1=0Fori—1Ton|f—f?iNextEndFtinationPriVA.teSiibComiTiA.iiclL_C?licl^()Dim 0%,sAsSinglern-FnpiitRoxCinputrn")n=LnpiiTBojcf'itipiiTti")p—LnpnCBux('i