visualbasic程序的设计教程第四版刘炳文编著清华大学

........................VisualBasic程序设计教程部分习题参考第四版炳文编著清华大学第五章、从键盘上输入4个数，编写程序，计算并输出这4个数的和及平均值。通过inputbox函数输入数据，在窗体上显示和及平均值。DimaassingleFori=1to4a=inputbosum=sum+an=n+1avg=sum/nnextiprint,sumprint、编写程序，要求用户输入下列信息据用适当的格式在窗体上显示出来。DimaasvariantFontsize=20a=inputbo）printaa=inputboprintaa=inputboprint；aa=inputboprint；aa=inputbo）print“a5.7．设a=5，b=2.5，c=7.8，编程序计算：y=（πab）/（a+bc）程序：Dimaassingle，bassingle，cassinglea=5b=2.5c=7.8pi=3.14y=（pi*a*b）/（a+b*c）print“结果是：”;y5.8Dimaaslong，dasinteger，hasinteger，sasintegera=inputbo）d=int（a/86400）h=in（a-d*8640）/360）s=a-d*86400-h*3600printh其中v0gtsginputbox函数输入v0和t量的值。Dimvassingle，tassingle，sassingleg=9.81v=inputbo）v=val（v）t=inputbo“请输入经历的时间t=val（t）s=g*t*t/2+v*tprint第七章7.1．编程计算并输出S的值:s=2+4+6+8+…+100dimi,sasintegers=0fori=2to100step2s=s+inextprints131%，编写程序，计算多少年后增加到20PrivateSubForm_click()DimpAsDoubleDimrAsSingleDimnAsIntegerp=130000000r=0.01n=0DoWhilep<=200000000p=p*(1+r)n=n+1LoopPrintn;"年后";"中国人口增加到";pEndSub3条边长，计算三角形的面积。编写程序：首先判断给出的3-1时结束程序。Dimaassingle；bassingle；casStart:a=inputbox-1a=val（a）ifa=-1endendifb=inputbo“请输入第二条边长b=val（b）c=inputbo“请输入第三条边长c=val（c）ifa+b<=cora+c<=borb+c<=athenmsgbo“您输入的三条边长不能构成三角形，请重新输入gotostartelsel=（a+b+c）/2s=sq（l（l-）l-b）（l-）endifprint“三角形的面积为；s7.5、编写程序，打印如下所示的“数字金字塔”12112 3 21……12345678987654321PrivateSubForm_Click()Dima(1To5)AsForj=1Toa(j)=jNextjFori=1To5PrintTab(30-i*3);Forj=1To2*i-Ifj>iThenPrinta(2*i-ElsePrinta(j);EndIfNextjNextiEndSub7.6．勾股定理中三个数的关系是a*a+b*b=c*c。编写程序，输出30以满足上述关系的整数组合。例如3，4，5就是一个满足要求的整数组合PrivateSubCommand1_Click()DimMaxAsInteger,IAsInteger,JAsInteger,KMax=30ForI=3ToMax-2ForJ=I+1ToMax-1K=Sqr(I^2+J^2)IfK=Int(K)AndK<=MaxThenPrintI,J,KNextNextEndSub7.8．如果一个数的因子之和等于这个数的本身，则称这样的数为“完全数”。例如，整数2828从键盘上输入整数MN，求出MNformload()'inti,j,m,n,summ=inputbox(=inputboxforj=mtonsum=0fori=1tojif(jmodi=0)and(i<>j) thensum=sumnextifj=sumthenprintsum&"是完全数"nextprint"查找完毕"beependsub成绩80～10060～7950～5940～490～39评语verygoodgoodfairpoorfailPrivateSubForm_Click()n=InputBox("请输入学号")s=InputBox("请输入分数")Ifs>=80ThenPrintn;s;"VeryElseIfs>=60Ands<=79ThenPrint"学号：";n;"，";"分数：";s;",";"学生评语：";ElseIfs>=50Ands<=59ThenPrint"学号：";n;"，";"分数：";s;",";"学生评语：";ElseIfs>=40Ands<=49ThenPrint"学号：";n;"，";"分数：";s;",";"学生评语：";"Poor"ElseIfs>=0Ands<=39ThenPrint"学号：";n;"，";"分数：";s;",";"学生评语：";"Fail"EndIfEndSub一个两位的正整数，如将它的个位数字与十位数字对调，则产生另一个正整数正整数，把具有这种特征的每一对两位正整数都找出来PrivateSubCommand1_Click()DimaAsStringDimiAsLonga=InputBox("输入一个两位的正整数:")IfVal(a)<=0OrVal(a)>=100MsgBoxExitSubEndIfThen

Fori=1To99IfVal(a)+i=Val(getDuiTiao(a))+getDuiTiao(CStr(i))Debug.PrintiEndIfNextEndSubPrivateFunctiongetDuiTiao(ByValvStrAsString)AsDimstrTmpAsStringstrTmp=Right(CStr(vStr),1)&Left(CStr(vStr),1)getDuiTiao=strTmpEndFunction第八章10551102910与第1个元素互换。分别输出数组原来各元素的值和对换后各元素的值。OptionBase1PrivateSubForm_Click()arr=Array(1,2,3,4,5,6,7,8,9,10)Print"原来数组："Fori=1To10Printarr(i);NextiPrintFori=1To5Forj=6Tot=arr(i)arr(i)=arr(j)=tNextjNextiPrint"对换后数组："Fori=1To10Printarr(i);NextiEndSub设有如下两组数据。（1）2，8，7，6，4，28，70，25（2）79，27，32，41，57，66，78，80加，即组的值。OptionBase1PrivateSubForm_Click()DimA,B,C(8)AsA=Array(2,8,7,6,4,28,70,25)B=Array(79,27,32,41,57,66,78,80)Fori=1To8C(i)=A(i)+B(i)NextiPrint"第一个数组为：";Fori=1To8PrintA(i);NextiPrintPrint"第二个数组为：";Fori=1To8PrintB(i);NextiPrintPrint"第三个数组为：";Fori=1To8PrintC(i);NextiPrintEndSub8.7编写程序，把下面的数据输入到一个二维数组中：25367813122688937518223256443658然后执行以下操作：输出矩阵两个对角线上的数；分别输出各行和各列的和。交换第一行和第三行的位置。交换第二行和第四行的位置。输出处理后的数组。Dima(4,4),b(4,4)AsIntegerFori=0To3Forj=0To3a(i,j)=Val(InputBox("请输入第"&i+1&"行第"&j+1&"列的数"))NextjNextiPrint"原始数据"Fori=0To3Printa(i,0)&""&a(i,1)&""&a(i,2)&""&a(i,3&""&Val(a(i,0)+a(i,1)+a(i,2)+a(i,3))NextiPrint"和和和和"Forj=0To3Print"";Val(a(0,j)+a(1,j)+a(2,j)+a(3,j));NextjPrint'对角线Fori=0To3PrintTab(i*2);a(i,i)NextiPrintFori=0To3PrintTab((3-i)*2);a(i,3-i)NextiPrint'调整Forj=0To3b(2,j)=a(0,j) b(0,j)=a(2,j)b(1,j)=a(3,j)b(3,j)=a(1,j)NextjPrint"调整后数据"Fori=0To3Printb(i,0)&""&b(i,1)&""&b(i,2)&""&b(i,3)Nexti设有如下人员名册：性别年龄文化程度 籍贯得功男24大学本科得胜男30高中毕业王丽女25研究生……试编写一个程序，对该名册进行检索。程序运行后，只要在键盘上输入一个人名，就可以在屏幕上显示出这个人的情况。例如，输入“得功，则显示： 得功 男 24 大学本要求：使用动态数组，输入的人数可以根据实际情况改变。当检索名册中不存在的人名时，输出相应的信息。每次检索结束后，询问是否继续检索，根据输入的信息确定是否结束程序。dimarr() 定义数组Adodc1.RecordSource="select*from数据表where1=1and="&text1.textAdodc1.Refreshi_count=Adodc1.Recordset.RecordCount'/////取出数据库中满足条件的数据记录，并且计算记录条数ifi_count=0thenmsgbox"查找人员不存在",64,"提示信息"elseredimarr(i_count)'//重新定义数组，使符合动态数目............'//这里对取得数据进行显示处理endifDimMsg,ResponseMsg="确认退出?"Response=MsgBox(Msg,vbQuestion+vbYesNo,"提示")SelectCaseResponseCasevbYes'//退出CasevbNo'//继续EndSelect10100207号14.5秒077号15.1秒156号14.2秒231号14.7秒453号15.2秒276号13.9秒096号15.7秒122号13.7秒339号14.9秒302号14.5秒编写程序，按成绩排出名次，并按如下格式输出：名次运动员成绩1..........2..........3......................10..........在Form1中加入一个Command控件，粘贴入以下代码：DimiAsInteger,jAsIntegerDimnAsInteger,mAsIntegerDimw(9,1)AsDoublePrivateSubCommand1_Click()Dima1AsDouble,a2Asa1=0a2=0Fori=1To10Forj=0To9-iIfw(j,1)>w(j+1,1)a1=w(j,0)a2=w(j,1)w(j,0)=w(j+1,0)w(j,1)=w(j+1,1)w(j+1,0)=a1w(j+1,1)=a2EndIfNextjNextiFori=0To9Printw(i,0)NextPrint名"&" 运动"&" 成绩Fori=0To9Print""&i+1&" "&Format(w(i,0),"000")&" "&w(i,1)NextEndPrivateSubForm_Load()Fori=0To9w(i,0)=InputBox("请输入第"&i+1&"运动员的编号")w(i,1)=InputBox("请输入第"&i+1&"运动员的成