vb实验编程答案

1、实验教程实验三顺序结构程序设计编程题参考答案（第47页）输入学生的语文、数学、英语、物理四门课程的成绩，计算该学生的总成绩和平均成绩并输出。要求使用InputBox分别进行输入，使用Print方法输出。1. 输入圆的半径，输出其周长、面积。要求使用TextBox控件进行输入，使用Label控件输出。输入一元二次方程ax2+bx+c=0的系数a、b、c,输出两个实根。要求使用TextBox控件分别进行输入，使用Label控件输出。实验四选择结构程序设计编程题参考答案（第58页）输入一个，判断其是否能同时被3和7整除|chPrivateSubCicrnmamd1.Click)Dim.xAsxInp

2、UtBcixf"inputfxMod3=0AndxMod7=0ThenPrint&“能【目日寸披3养口了.寇I象"LCl£iePrintx&浦日回时被3*口7童陈"EndIfEndSubIhl=11i2.输入三个数，输出其中的最大值编程及输出分段函数的值。由键盘输入t的值，计算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句实现。6. 输入年份，输出对应的属相。已知1984年为鼠年，要求使用SelectCaseiS句实现。1. 实验五循环结构程序设

4、计编程题参考答案(第77页)编写程序，求s=1x2X3+2x3X4+nx(n+1)x(n+2)的值，n由程序输入有一个分数序列2,土5,8，牛,?,.，求出这个序列前20项的和1235813求n!(即1!+2!+3!+10!)n1求一类三位数，该书中有某两位为相同数字，且该数是一个完全平方数，输出这些数并统计个数。5.输出所有的“水仙花数”。“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。例如，371是个水仙花数，因为371=33+73+13OIEHL1CCZ*>idLc?>lldITl6.打印如图所示的乘法表实验六定长数组的使用编程题参考答案（第96页）1.定义一个包含

5、10个数组元素的数组a,为其数组元素分别赋值为2、4、6、8、20,并输出1. 输入十个评委的分数，去掉最高分和最低分后，计算最后的平均分并输出输入5个学生的姓名与一门课程的成绩，按成绩的升序输出姓名和成绩。分别使用比较互换法、选择法和冒泡法实现。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的矩阵，除对角线上的元素为1夕卜，其他数组元素的值均为0Fcj-i=1mForjITVsSHi_Lt=TLj);ZJZU-Jtt1arlS»111j1

8、L3»|阿Ck：*1U11X1O*0111xiii7*.IF*or41To6rorj1To5If1jOrj*5-1Til«(i,j>=1KiserhCL.j>OLCiiclL11Noct3Zccti输入5X5的矩阵，求出每列元素之和，并把和值最大的那一列上的各元素和第一列各元素进行对调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)训试程序时使用输入十个学生的三门课程的成绩，并进行如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) 计算每个学生的平均分。(4) 按学生的平均分进行降序排序。实验七动态数组、控件数组与白定义类型的数组编程题参考答案(第10页)白定义学生类型，包括学生姓名、学号和成绩，输入学生人数n,并输入学生的信息，按成绩进行降序排序后输出。程序界面设计如下图。实验七过程编程题参考答案(第123页)2.编写子过程SubArraySa(a()AsInteger,sumAsSingle,averAsSingle)该过程的功能是求一维数组a的元素和与平均值，并通过参数sum和ave

11、r返回结果。编程子过程Submovearray(a()AsInteger,IrAsBoolean,nAsInteger*)该过程的功能是使一维数组元素左移或者右移若干位。其中参数a()是数组、lr参数指示位移的方向(True向左移，False向右移)、n参数确定移动的位数。程序界面如下图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实验八函数过程编程题参考答案（第137页）1.编写程序，利用Function函数计算下式的值(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)实验一VB的常用控件编程题参考答案（第123页）1.利用命令按钮控制改变文字的显示区域。程序界面如图所示，单击按钮“更该区域”按钮，将使“标签练习”几个字依次在上下两个显示区域（两个标签中）显示。泰_LfTl-Fde&I心w

14、二,林Dim1AsBoolean2.利用命令按钮控制改变文字的显示颜色。rrinifx)PrivateSubCommandlGlickOf=NotIIf(ThenLabe.CaptinnLabH2.CaptionElseLabel2.Caption=Labell.Caption=EndIfEnclSub标笠炼习”PrivateSubF'onn_Load()L-FalsefcCiidSubnJ在上题基础上，添加一个按钮并将其Cption设为“更改颜色”，单击按钮，使标签的字体颜色依次按红、绿、蓝变化。提示：设置标签的字体颜色可以用RGB函数。例PrivateSubCommand2_ClickOSliiiiciAsliilrgni-i+1SelecLCastiCaee1LabdL.ForeColor=RGB(255,0,0)Laljd2.ForcCulQr-0,0)Case2LabelEForeCalor=RG