vb实验编程答案

1. 实验教程实验三顺序结构程序设计编程题参考答案（第47页）输入学生的语文、数学、英语、物理四门课程的成绩，计算该学生的总成绩和平均成绩并输出。要求使用InputBox分别进行输入，使用Print方法输出。输入圆的半径，输出其周长、面积。要求使用TextBox控件进行输入，使用Label控件输出。2. 输入一元二次方程aW+bx+c=0的系数a、b、c,输出两个实根。要求使用TextBox控件分别进行输入，使用Label控件输出。实验四选择结构程序设计编程题参考答案（第58页）输入一个，判断其是否能同时被3和7整除PrivateSubCicrnmamd1.Click)Dim.xAsliTLtpe-rxInpUtBcixfinputfxMod3=0AndxMod7=0ThenPrintifc“能冋日寸槪3玳了雜I徐LCliePrint曲处不能冋吋械3和了摆陳EndIfEndSubI-1=1II2.输入三个数，输出其中的最大值t2t1t2-11t2t2-2t+12t3使用Melseif厝司PrivateSubCommandl_Click()DimyAsSingletA&SingletInputBaxfinputtMItt1Theny=r*rEl&clft2Theny=t*t-1ElselfIai-iimduh二IIPfiSitCon13ai：x1:1d1_Uliulc。rJitiTkF%.軒ha%i=1OOicj999牡巳iMcjcrlIOjs-tli=(1rvicciLCJ()1l丹_11_LOQ1C311宮?A3+Stlxle3Er-ititi;E：I11If+LitU几3丄IliZvjtt.iEnclS1.1H1/=2J|打印如图所示的乘法表iiiIiJ1+MMMM=aK-4林：】4+4-1B跨K)5*M58*2=126*6=307*2=U；咋：*沖一心5=!-ms:g昭忡ia如5护宇54時卫列9P1卞一.54TJzjJPrivateSubCoiiniifttidl_Cliel旧曰；打印束法九扎农richircl.PrintTnb(35hFori-1To9Farj=1Tnis=i&lhX1&jBt=*&1*jJicttire1.PrintT?kb(0-1?*IO+L)；日：NextiPicturel.PiintNextiEndSvht.=d_1iEFzojec：-t1Fozb.1(Cod.E?)批实验六定长数组的使用编程题参考答案（第96页）1定义一个包含10个数组元素的数组a,为其数组元素分别赋值为2、4、6、820,并输出1. 输入十个评委的分数，去掉最高分和最低分后，计算最后的平均分并输出3输入5个学生的姓名与一门课程的成绩，按成绩的升序输出姓名和成绩。分别使用比较互换法、选择法和冒泡法实现。PrivateSubCommandl_Click()Dimxm(lIo5)AsString,cj(lTo5)AslntegeiDim%j地m$,t%Fori-1To5xm(i|=InputBoxinputxm1)cj(i)=InputBWinpincj)Printcj(i)NextPrivateSubCommand1_ClickdTDimxm(lTo5)AsString,cj(lTn5)AsIntegerDim%j%hm$,imin%|For1To5xm(i)=【nputBoxrinputxinr)cj(i)-InputBoxfinputcj)Printxm(i|;c(i)NexiFori=1To4Forj-i+1To5fcj(i)cj(pThenm=xm(i):xm(i)壬xm(j):xm|j)t=Cj(L)：Cj(0Cj(j)：Cj(j)=tEndhNextjNextfPrim比较互换法升序推序.Fori=1To5Printxmii);cj(i)Noct3ndSub土JJFori=1To4imin-iForj=i+1To5Ifcj(imin)cj(j)Thenimin=jEndIfNextjm=xm(i);xtn(i)=xmfimin):xmlimin)=mi-cj(i);cj|i)=cjliniiii);cjlimin)=tNextiPrint选择法升序排序.Fori=1To5Printxm(i|;cj(i)NextEndSubtPdlTIH-IfI匚工百1-FermiCfidei=1匚二也异旳1底対Commil*J|dirM|CqAbu11*fSIS7too17(1CLidr-jB上程1二Fowl虹nd曰-I0X|4.输出5X5的矩阵，除对角线上的元素为1夕卜，其他数组元素的值均为05.输入5X5的矩阵，求出每列元素之和，并把和值最大的那一列上的各元素和第一列各元素进行对调丄口操Printjmax=1Forj=1To5Ifsuni(j)siinlljmaxlThenjmaxjNextFori-1To5作。ah,1)：all,1-a(ihjmaxha(i,jmax)t作。iPrint交换后Fori=1To5Forj=1To5Printa(i,j);NextjPrintNestiEndSubkilLOiiixiii7*.I=1Klwe3.(1,jOLCutL11ZoctiZccti|ClirlrTcj-i=1吕RchjIHqSj);ZtjZu-7Ctlid円*i旦旦glWextiPilntHFfeL冰口刃匸胖Koii1To5Pjiiitxin(i);cj(i)NextTCndSxiIjGIHeri=1Tr叫ForjJTo5-iifej(j)aoj(j十I)Th亡n111=XTH(j：3C111(i)=Xni(j+1J；XT七c(j)：mih+i)LC11C.1IfMcrxtjPrivtAte-SijIjm4.14l11C21i;linipciilI1HAsStc?j(I*【PG)AmLutcrKfJOiin印,亍蚣*iulfS,tiFori=1Tu5jcm(i)InpntKe(LiLi.il.xm)c?J(i)-IiiiJLitI3ox(,FiiiiJiitcrj)Pitlitkin(i);cj()M*xtPrivateSubCowtnAndl_C1iek()Dima(1To5.1To5)As(nregertiH,j%Dim8um(lTo5,t%Fori-ITo5FurjIIo5Eij)InputUoxCinputa(+l&i&j&电j)-lnl(Knd*20)训试悭序讨惶用输入十个学生的三门课程的成绩，并进行如Print)计算并输出每门课程的平均分。Forj=ITo5sum(j)=0Fori-ITo5=&um(j)+a(itj)NrattiPnntNratj(2) 输出每门课程中的最高分与最低分。(3) 计算每个学生的平均分。按学生的平均分进行降序排序。PrivciSubCommandl_CUckODimset1?olUj1o3)AsnLtfgeiDimsumAsTnteerkcpj!(1Ta3)K&pJ!(1To10)DimEitxl1To31AsInLeyer,mlrk(1Tu31AaluLeerDim】,J%Fur11To10PrintForJ=LTo3PrintT科j“I)*&十：；口nx(D;NcstfPrin.JJT3n=InpuLBoxflnpiir)sei,P-Rnd*103腔咸鼻幻片时”用PtlntTabHJ-L)16*II;ae(l,J);W?xtjPrintNeixLi耐tu电门柴胆前平均炉ParJ1Tq3aum-CiFotI-1To10(sum-sums4h;|NextIkepj(j)-sum/IDPrintkcpJ(J);NrXtJForJ1To3mu(j=sc(r:j：min(jl-sc(15j)Fort-2TfiiriIfbc|Lj)aThenidbxU)=scfbffse|ij)min|j|Thenmin|J-sr(i，j)NextLNext|PrintPrint帮门脸箭帰离盘ForJ-To3PrintTabIf-1CL);max川；NextJPrint卩rirr極门區性妁盘低分ForJ-1Tu3PrintTabij-IPGi1)：minlj);NestIPiIntPrine1碰个学生的平均分ForJ=1ToLOsum-0PorJ=1To3sum-snm+j：We?txspfi)=Round(sunif321PrintNest!Fori-To9比载互搀黄障严押MTFor：-i+1Ta10IFxxpjl(L)xspj(jThentsspjj:xspjfil-冉opj(j):xnrjfjl-LEndIfNestNexLlPrin二Prine按学生平均分阵悸耕序Forj-:ToLOPrintxapjtil;Ne?iL1SndSubIClielrTCVHB-aJElJl(第10页)实验七动态数组、控件数组与自定义类型的数组编程题参考答案6.自定义学生类型，包括学生姓名、学号和成绩，输入学生人数n,并输入学生的信息，按成绩进行降序排序后输出。程序界面设计如下图。实验七过程编程题参考答案(第123页)2.编写子过程SubArraySa(a()AsInteger,sumAsSingle,averAsSingle)该过程的功能是求一维数组a的元素和与平均值，并通过参数sum和aver返回结果。4.编程子过程Submovearray(a()AsInteger,IrAsBoolean,nAsInteger)该过程的功能是使一维数组元素左移或者右移若干位。其中参数a()是数组、lr参数指示位移的方向(True向左移，False向右移)、n参数确定移动的位数。程序界面如下图T61二Xarahl孔I：I八主调过程PrivateSubCommandlClickODimfi.0AsiDteger!lrAsBoolean,nAsInteger,sQAsStringlr=InputBoxCt人移世方向,1左移.0右移)n-InputBoxfrtA堂僮嗽)s=Split(TextLText,/)k-UBoLind(s)ReDima(k)ForL=0TokA|i|=Val|s(i)NextCallmovtaiTFiylalr”口)Text2.Tst=”“Fori-0ToUBound(eJText2.Text-Te；xt2.Text&all)&NextEndSub实验八函数过程编程题参考答案(第137页)1.编写程序，利用Function函数计算下式的值(123.m)(123.n)实验一VB的常用控件编程题参考答案（第123页）1.利用命令按钮控制改变文字的显示区域。程序界面如图所示，单击按钮“更该区域”按钮，将使“标签练习”几个字依次在上下两个显示区域（两个标签中）显示。E_L柑1-FdikI(Coder)匚-冋冈fiUAAOrdl|dirktDimfAsBoolean=PrivateSubCommand1_GlickOf=NotfIfThenLabe1.Caption*Label2.Caption-”标整维习“ElseLabel2.Caption=Label1.Caption=标答练习EndIfEndSubJPrivateSubI7onil_Load()f-FalseEuciSubktLIJ2.利用命令按钮控制改变文字的显示颜色。在上题基础上，添加一个按钮并将其Cption设为“更改颜色”，单击按钮，使标签的字体颜色依次按红、绿、蓝变化。E工fll-(Cudr)Tlf竟|cHVu4.|Oi4=bxl-JPrivateSubCoinntaild2_Click0MSltuliciAslulryni-i+1SelecLCaseiCaee1Labcll.ForeCclor-RGB255.0+0)Labd2ToreCclQr-RGD(255,0,0)Case2LabelEForeCclor=RGB(0.255,0)Labc-12.ForeColor=RGB(Ut255,0)Case3LabelkForeColor-KGB(0,0,25S)Labfl2LFoicColGi=RGBU,0b2351i=0E】i已StdectEndSub2kj提示：设置标签的字体颜色可以用RGB函数。例如：Label1.ForeColor=RGB(255,0,0)Label1.ForeColor=RGB(0,255,0)设置红色设置绿色设置蓝色Label1.ForeColor=RGB(0,0,255)