vb實(shí)驗(yàn)編程答案

1、實(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方法輸出。1. 輸入圓的半徑，輸出其周長(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è)）輸入一個(gè)，判斷其是否能同時(shí)被3和7整除|chPrivateSubCicrnmamd1.Click)Dim.xAsxInp

2、UtBcixf"inputfxMod3=0AndxMod7=0ThenPrint&“能【目日寸披3養(yǎng)口了.寇I象"LCl£iePrintx&浦日回時(shí)被3*口7童陳"EndIfEndSubIhl=11i2.輸入三個(gè)數(shù)，輸出其中的最大值編程及輸出分段函數(shù)的值。由鍵盤輸入t的值，計(jì)算y的值Y=t2t<1t2-11<t<2t2-2t+12<t<3t2+4t-17t>3，使用ifelseifPrivateSubCommandl_Click()DimyAsSingletA&SingletInputBoxf&

3、quot;inputt'MItt<1Theny=r*rEl&clft<2Theny=t*t-1ElselfI<3Thenyt+t-2+t+1El&ey-L"1.4"I.-17EndIfPrint"y='yEndSub輸入年齡，輸出所處人群：9歲以下為兒童，輸出A;1019為少年，輸出B;2029為青年，輸出B;3049為中年，輸出B;50以上為老年，輸出E;要求使用SelectCasein句實(shí)現(xiàn)。6. 輸入年份，輸出對(duì)應(yīng)的屬相。已知1984年為鼠年，要求使用SelectCaseiS句實(shí)現(xiàn)。1. 實(shí)驗(yàn)五循環(huán)結(jié)構(gòu)程序設(shè)

4、計(jì)編程題參考答案(第77頁(yè))編寫程序，求s=1x2X3+2x3X4+nx(n+1)x(n+2)的值，n由程序輸入有一個(gè)分?jǐn)?shù)序列2,土5,8，牛,?,.，求出這個(gè)序列前20項(xiàng)的和1235813求n!(即1!+2!+3!+10!)n1求一類三位數(shù)，該書中有某兩位為相同數(shù)字，且該數(shù)是一個(gè)完全平方數(shù)，輸出這些數(shù)并統(tǒng)計(jì)個(gè)數(shù)。5.輸出所有的“水仙花數(shù)”。“水仙花數(shù)”是指一個(gè)三位數(shù)，其各位數(shù)字立方和等于該數(shù)本身。例如，371是個(gè)水仙花數(shù)，因?yàn)?71=33+73+13OIEHL1CCZ*>idLc?>lldITl6.打印如圖所示的乘法表實(shí)驗(yàn)六定長(zhǎng)數(shù)組的使用編程題參考答案（第96頁(yè)）1.定義一個(gè)包含

5、10個(gè)數(shù)組元素的數(shù)組a,為其數(shù)組元素分別賦值為2、4、6、8、20,并輸出1. 輸入十個(gè)評(píng)委的分?jǐn)?shù)，去掉最高分和最低分后，計(jì)算最后的平均分并輸出輸入5個(gè)學(xué)生的姓名與一門課程的成績(jī)，按成績(jī)的升序輸出姓名和成績(jī)。分別使用比較互換法、選擇法和冒泡法實(shí)現(xiàn)。135刁ciirkZlu二m-Fwii«心)o1s|CaMiulLClidlPrivateSubCommandIClickf)Dimxm(lIo5)AsString,cj(lTo5)AsIntegeiDimj%,m$,t%Fori-1To5xm(i|=InputBoxinputxnT)cj(i)=InpiatBaxfinpuicj'

6、)Printcj(i)NextFori=1To4Forj-i+1To5fcj(i)>cj(pThenm=xm(i):xm(i)三xm(j):xm|j)t=cj(l)：cj(i)-cj(j):cj(j)=tEndhNextjNextiPrint,比較互換法升序掉序Fori=1To5Printxmii);cj(i)Next3ndSubPrivateSubCommand1_ClickO；Dimxm(1To5)AsSrring,cj(lTo5)AfiIntegerDim我.j%hm$,imin%Fori=1To5xm(i)-nputBosl'inputxmhjcj(i)-InputBax

7、f1inputcjH)Printxm(i|;cj(i)NextFori=1To4imin=iForj=i+1To5fcjfimin)>q(j)Thenimin=jEndIfNextjm=xtn(i)=mfiinin)：xmimixi)=mt=cj(i):cj|i)=cjliniiii):cjlimiii)=tNextiPrim諺擇法升序排序'Fori=1To5Printxm(i|;cjli)NextJEndSub輸出5X5的矩陣，除對(duì)角線上的元素為1夕卜，其他數(shù)組元素的值均為0Fcj-i=1mForjITVsSHi_Lt=TLj);ZJZU-Jtt1arlS»111j1

8、L3»|阿Ck：*1U11X1O*0111xiii7*.IF*or41To6rorj1To5If1jOrj*5-1Til«(i,j>=1KiserhCL.j>OLCiiclL11Noct3Zccti輸入5X5的矩陣，求出每列元素之和，并把和值最大的那一列上的各元素和第一列各元素進(jìn)行對(duì)調(diào)FlX工程1二Fml也ndHI-'X|(1PrivateSubCowtnAndl_C1iek()Dima(1To&1To5)As(nregertiH,j%Dim8um(lTo5,t%Fori-ITo5FurjIIo5a(itj)-InputUoxCinputa(+l

9、&i&&j&”)')頃Lj|-nl(Knd*20)訓(xùn)試程序時(shí)使用輸入十個(gè)學(xué)生的三門課程的成績(jī)，并進(jìn)行如Print翩心門課程的平均分。_Ui=rzJ1ClickForj=ITo5sum(j)=0Fori-ITo5suni(i)=siinifj)+a|i,”NrxtiPnnt=nim(jj;NratjPrintjmax=1Forj=1To5Ifsuni(j)>sumIjinaxlThenjmaxjNextFori-1To5佐t-a(i,1):響1)-a®,jmaxha(i,jiuax)-tPrint"交換后”Fori=1To5For

10、j=1To5Printa(i,j);NextjPrintNestiEndSub-I-4(2) 輸出每門課程中的最高分與最低分。(3) 計(jì)算每個(gè)學(xué)生的平均分。(4) 按學(xué)生的平均分進(jìn)行降序排序。實(shí)驗(yàn)七動(dòng)態(tài)數(shù)組、控件數(shù)組與白定義類型的數(shù)組編程題參考答案(第10頁(yè))白定義學(xué)生類型，包括學(xué)生姓名、學(xué)號(hào)和成績(jī)，輸入學(xué)生人數(shù)n,并輸入學(xué)生的信息，按成績(jī)進(jìn)行降序排序后輸出。程序界面設(shè)計(jì)如下圖。實(shí)驗(yàn)七過程編程題參考答案(第123頁(yè))2.編寫子過程SubArraySa(a()AsInteger,sumAsSingle,averAsSingle)該過程的功能是求一維數(shù)組a的元素和與平均值，并通過參數(shù)sum和ave

11、r返回結(jié)果。編程子過程Submovearray(a()AsInteger,IrAsBoolean,nAsInteger*)該過程的功能是使一維數(shù)組元素左移或者右移若干位。其中參數(shù)a()是數(shù)組、lr參數(shù)指示位移的方向(True向左移，F(xiàn)alse向右移)、n參數(shù)確定移動(dòng)的位數(shù)。程序界面如下圖s羊11ISub過程Fri'AteSubluoveAirAAOAsInteger.LrAsDoolcan,uAsIntegerDimi%TkI%,j%Tt%kl=LBoiind(a)k3=UBoimdiH)Fori=1Tonlr=TrueThent-n(kl)Farj=klTok2-1ftii)=日。+

12、i)NextjMk2l-tElset=a(k瀏Kt)rj=kgTok1+1Step-Ir(9=a。-1)NEja(kU-tEndIfNexti實(shí)驗(yàn)八函數(shù)過程編程題參考答案（第137頁(yè)）1.編寫程序，利用Function函數(shù)計(jì)算下式的值(123.m)(123.n)1_2_3_7pl:I'主謝過程PrivateSubCommandlClickODimfi.0Asmteger.lrAsBoolean,nAsInteger,sQAsStringlr=InputBoxCtA移位方向左移.。右移")InputBmtT輸入椅位位都)s=Split(TextLText,jk-UBoLind(

13、s)ReDima(k)Forl=01jkA|i|=Val|s(i)NextCallmovtaiTFiylalr.口)Text2.Ts»t=”“Fori-0TijUBound(eJText2.Text-Te；xt2.Text&只忸&""NextEndSubT61=IarahlV,癡】T程1-F«-al(tode)實(shí)驗(yàn)一VB的常用控件編程題參考答案（第123頁(yè)）1.利用命令按鈕控制改變文字的顯示區(qū)域。程序界面如圖所示，單擊按鈕“更該區(qū)域”按鈕，將使“標(biāo)簽練習(xí)”幾個(gè)字依次在上下兩個(gè)顯示區(qū)域（兩個(gè)標(biāo)簽中）顯示。泰_LfTl-Fde&I心w

14、二,林Dim1AsBoolean2.利用命令按鈕控制改變文字的顯示顏色。rrinifx)PrivateSubCommandlGlickOf=NotIIf(ThenLabe.CaptinnLabH2.CaptionElseLabel2.Caption=Labell.Caption=EndIfEnclSub標(biāo)笠煉習(xí)”PrivateSubF'onn_Load()L-FalsefcCiidSubnJ在上題基礎(chǔ)上，添加一個(gè)按鈕并將其Cption設(shè)為“更改顏色”，單擊按鈕，使標(biāo)簽的字體顏色依次按紅、綠、藍(lán)變化。提示：設(shè)置標(biāo)簽的字體顏色可以用RGB函數(shù)。例PrivateSubCommand2_ClickOSliiiiciAsliilrgni-i+1SelecLCastiCaee1LabdL.ForeColor=RGB(255,0,0)Laljd2.ForcCulQr-0,0)Case2LabelEForeCalor=RG