郑州大学VB实验报告书参考答案

1、XX大学VB实验报告书参考答案以下内容均来自百度文库，所以仅供参考。不过经亲自测试习题及实验（一）的答案基本正确，除了实验题的3，4小题没有改字形字体颜色什么的。实验一一、选择题DDBAB,C(CD)DDC,ADDCA二、填空题Windows中断工具箱代码分类form2.show有语法错误错误事件结构化文件名和结构工程编写代码双击任意控件或右健快捷菜单选“代码窗口”vb的安装文件夹属性方法fontload对象三、编程1-1PrivateSubCommand1_Click()PrintSqr(8),8(1/3)EndSub1-2PrivateSubCommand2_Click()Fori=100

2、To110PrintSqr(i)NextiEndSub1-3（基本设置在属性窗口完成！）PrivateSubCommand3_Click()PrintXX大学在前进!EndSub1-4（基本设置在属性窗口完成！）PrivateSubCommand4_Click()Label1=蓝天、白云、绿水、青山EndSub实验二一BCBCC,CBBDA,CCCBA,CBDCC二form_click()interval,5000vbp,frmtop,left,height,width,像素pictureloadlockedfont,alignmentgotfocus,lostfocus属性窗口，代码三2-1

3、PrivateSubCommand1_Click()Label3=Text1*Text2EndSubPrivateSubCommand2_Click()Label3=Text1/Text2EndSub2-2PrivateSubCommand1_Click()Picture1.Visible=TruePicture1=LoadPicture(C:DocumentsandSettingsAll示例图片Waterlilies.jpg)EndSubPrivateSubCommand2_Click()Picture1.Visible=TruePicture1=LoadPicture(C:Document

4、sandSettingsAll示例图片Winter.jpg)EndSubPrivateSubCommand3_Click()Picture1.Visible=FalseEndSub2-3PrivateSubCommand1_Click()Label3=Text1*Text2EndSub2-4PrivateSubCommand1_Click()Text2=Text1EndSubPrivateSubCommand2_Click()Text1=Text2=EndSubPrivateSubText1_Change()Command1.Visible=TrueCommand2.Visible=TrueE

5、ndSub2-5PrivateSubCommand1_Click()Timer1.Interval=500EndSubPrivateSubCommand2_Click()Timer1.Interval=0EndSubPrivateSubTimer1_Timer()Image1.Left=Int(Rnd*(Form1.ScaleWidth-Image1.Width)Image1.Top=Int(Rnd*(Form1.ScaleHeight-Image1.Height)EndSub实验三一A(BC)(BC)AA,A(BCD)DBB,B二3，4，5，6，8，10，11，12，14，15，16三abs

6、(x+y)(3+x*y)2(-b+sqr(b2-4*a*c)/(2*a)sin(30*3.14/180)+exp(2)四int(rnd*71+20)x*y=10andx=Aandx=Zleft(s,3)或者,mid(s,1,3)五3-2PrivateSubCommand1_Click()DimxAsSinglex=Val(Text1)PrintFormat(x2,#.000),Format(Sqr(x),#.000),Format(x3,#.000),Format(x(1/3),#.000)EndSub3-3PrivateSubCommand1_Click()DimxAsIntegerx=In

7、t(Rnd*900+100)Text1=Trim(Str(x)Text2=Right(Text1,1)+Mid(Text1,2,1)+Left(Text1,1)EndSub3-4PrivateSubCommand1_Click()Dimmax,minAsIntegermin=Val(Text1)max=Val(Text2)RandomizePrintInt(Rnd*(max-min+1)+min),Int(Rnd*(max-min+1)+min),Int(Rnd*(max-min+1)+min)EndSub3-5PrivateSubCommand1_Click()Text1=DateText2

8、=TimeText3=WeekdayName(Weekday(Date)EndSub实验四一CDCDA,DBBAC二(1)48.71E-01,-4.8712(2)关系，逻辑，数值(3)900，100，mid(a,2,1),c(4)m1,2,3printm&月是第二季度endselect三(1)x=4y=13(2)10四4-1PrivateSubCommand1_Click()Dimnum,a1,a2,a3AsSinglenum=Val(Text1)*180/3.14a1=Int(num)num=num-a1a2=Int(num*60)num=num*60-a2a3=Format(num*60,

9、#.000)Printa1,a2,a3EndSub4-2PrivateSubCommand1_Click()DimyAsIntegery=Val(Text1)If(yMod400=0OryMod4=0AndyMod1000)ThenMsgBoxy&是闰年ElseMsgBoxy&不是闰年EndIfEndSub4-3PrivateSubCommand1_Click()Dimx,y,z,tAsIntegerx=Val(InputBox(inputx:)y=Val(InputBox(inputy:)z=Val(InputBox(inputz:)IfxyThent=x:x=y:y=tIfyzThent=

10、y:y=z:z=tIfxyThent=x:x=y:y=tEndIfPrintx,y,zEndSub4-4PrivateSubCommand1_Click()DimnettimeAsInteger,moneyAsSinglenettime=Val(InputBox(每月上网时数：,上网费用)Ifnettime=-1Thenmoney=0ElseIfnettime10Thenmoney=25ElseIfnettime50Thenmoney=nettime*2ElseIfnettime100Thenmoney=nettime*1.5ElseIfnettime200Thenmoney=nettimeE

11、lsemoney=200EndIfIfmoney0ThenMsgBox该月上网费用为&money&元实验五一BCBAC二（1）forx=1to10s*(1-1/x)(2)0t1E-6(3)jt(4)5115三5-1PrivateSubCommand1_Click()Dimi,sumAsIntegersum=0Fori=1To100sum=sum+iNextiPrint1+2+.+100=;sumEndSub5-2PrivateSubCommand1_Click()Dimx,yAsIntegerForx=0To20Fory=0To33If5*x+3*y+(100-x-y)/3=100ThenPr

12、intx,y,100-x-yEndIfNextyNextxEndSub5-3PrivateSubCommand1_Click()DimiAsIntegeri=7DoIfiMod2=1AndiMod3=2AndiMod5=4AndiMod6=5AndiMod7=0ThenPrintiExitDoElsei=i+7EndIfLoopEndSub5-4PrivateSubCommand1_Click()Dimx,y,zAsIntegerForx=1To9Fory=1To9Forz=0To9If100*x+10*x+z+100*y+10*z+z=532ThenPrintx,y,zEndIfNextzN

13、extyNextxEndSub5-5PrivateSubCommand1_Click()DimsumAsSingle,nAsIntegersum=1DoWhilesum=0.0001ti=(-1)(i+1)/(2*i-1)pi=pi+tii=i+1LoopEndSub5-9PrivateSubCommand1_Click()Dimi,j,kAsIntegerPrint水仙花数有：Fori=1To9Forj=0To9Fork=0To9Ifi*100+j*10+k=i3+j3+k3ThenPrinti,j,kEndIfNextkNextjNextiEndSub5-10PrivateSubComma

14、nd1_Click()Dimi,j,kAsIntegerk=0Fori=999To100Step-1Forj=2ToInt(Sqr(i)IfiModj=0ThenExitForNextjIfj=Int(Sqr(i)+1Thenk=k+1:PrintiIfk=3ThenExitForNextiEndSub5-11PrivateSubCommand1_Click()Dimi,n,min,maxAsIntegerDimaverAsSinglemin=100max=50Fori=1To20n=Int(Rnd*(99-51)+51)Printn;IfiMod5=0ThenPrintIfnmaxThenm

15、ax=nIfnMaxThenMax=ia(i):iMax=iIfia(i)minThenmin=ia(i):imin=iNextiPrintmax=;Max,imax=;iMaxPrintmin=;min,imin=;iminPrintaver=;aver/10EndSub6-2PrivateSubCommand1_Click()Dimia(20),num(5)AsIntegerDimMax,min,averAsInteger,iMax,iminAsIntegerFori=1To20ia(i)=Int(Rnd*101)Printia(i);SelectCaseia(i)CaseIs60num(

16、1)=num(1)+1Case60To69num(2)=num(2)+1Case70To79num(3)=num(3)+1Case80To89num(4)=num(4)+1Case90To100num(5)=num(5)+1EndSelectNextiPrintPrint各分数段的人数分别是(059,6069,7079,8089,90100)：Fori=1To5Printnum(i);NextiEndSub6-3PrivateSubCommand1_Click()Dima(10)AsInteger,t%Fori=1To10a(i)=Int(Rnd*51)Printa(i);NextiPrint

17、Fori=1To9Forj=i+1To10Ifa(i)MaxThenMax=ia(i,j):iMax=i:jmax=jNextjPrintNextiPrintmax=;Max,imax=;iMax,jmax=;jmaxEndSub实验七一CCDABDDAAA二（1）n！（2）1到n累加和（3）n是否是素数（4）冒泡排序（5）递归调用实现斐波那契数列（6）求最大公约数和最小公倍数三7-1PrivateSubCommand1_Click()Dimn,sumAsIntegern=Val(InputBox(n=?)sum=jsh(n)Print1!+2!+.+;n;!=;sumEndSubPublic

18、Functionjsh(n)AsIntegerDimi,s,tAsIntegers=0t=1Fori=1Tont=t*is=s+tNextijsh=sEndFunction7-2PrivateSubCommand1_Click()Dimn,flagAsIntegern=Val(InputBox(n=?)flag=1sushun,flagPrintn=;flagEndSubPublicSubsushu(n,flag)DimiAsIntegerFori=2Ton-1IfnModi=0Thenflag=0:ExitForNextiEndSub7-3PrivateSubCommand1_Click()

19、DimflagAsInteger,strAsStringstr=InputBox(n=?)flag=huiwen(str)Ifflag=1ThenPrintstr;是回文数ElsePrintstr;不是回文数EndSubPublicFunctionhuiwen(str)AsIntegerDimlens,m,iAsIntegerlens=Len(str)Fori=1ToInt(lens/2)IfMid(str,i,1)Mid(str,lens-i+1,1)ThenExitForNextiIfi=Int(lens/2)+1Thenhuiwen=1Elsehuiwen=0EndFunction7-4

20、PrivateSubCommand1_Click()Dimn,m,c1,c21,c22,c23AsIntegern=Val(InputBox(n=?)m=Val(InputBox(m=?)c1=jc1(n)/(jc1(m)*jc1(n-m)Print函数计算c1=;c1jc2n,c21jc2m,c22jc2n-m,c23Print子过程计算c2=;c21/(c22*c23)EndSubPublicSubjc2(n,c)DimiAsIntegerc=1Fori=1Tonc=c*iNextiEndSubPublicFunctionjc1(n)DimiAsIntegers=1Fori=1Tons=s

21、*iNextijc1=sEndFunction7-5PrivateSubCommand1_Click()Dimstr1AsStringstr1=InputBox(请输入一个实数：)MsgBoxsum(str1)EndSubPublicFunctionsum(strAsString)Dimlens,i,nAsIntegerDimcAsString*1lens=Len(str)n=0Fori=1Tolensc=Mid(str,i,1)Ifc=0Thenn=n+Val(c)EndIfNextisum=nEndFunction7-6PrivateSubCommand1_Click()Dimstr1As

22、Stringstr1=InputBox(请输入一个字符串：)Printstr1;中有数字字符;num(str1);个。EndSubPublicFunctionnum(strAsString)Dimlens,i,nAsIntegerDimcAsString*1lens=Len(str)n=0Fori=1Tolensc=Mid(str,i,1)Ifc=0Thenn=n+1EndIfNextinum=nEndFunction7-7PrivateSubCommand1_Click()可参考本实验填空第六题或采用本方法，注意两法的形参是传地址还是传值的区别Dimm,n,y,bAsIntegerm=Val

23、(InputBox(pleaseinputainteger(m):)n=Val(InputBox(pleaseinputainteger(n):)Printm;和;n;gysgbsm,n,pPrint的最大公约数为;nPrint最小公倍数为;pEndSubPublicSubgysgbs(a,b,c)DimrAsIntegerc=a*br=aModbDoWhiler0a=bb=rr=aModbLoopc=c/bEndSubVisualBasic程序设计课程考试大纲（本学期19周，1-16周上课，周4学时，课程总学时64，其中：理论32+上机32）【基本要求】熟悉VisualBasic集成开发环境

24、；了解VisualBasic中对象的概念和事件驱动程序的基本特性；掌握VisualBasic的基本语句；了解简单的数据结构和算法；掌握VisualBasic常用控件及其控件的三个要素；掌握模块化程序设计的过程设计（包括函数过程、子过程）方法；能针对简单的实际问题构造算法，并能正确地实现算法与程序之间的转换，具有使用VisualBasic编制和上机调试简单程序的能力；培养利用计算机解决问题的意识、思路和能力，为今后进行计算机应用奠定基础。【考试X围】1.VisualBasic程序设计概述Q发展、特点、版本、安装、启动、退出QVisualBasic6.0集成开发环境（7个主要窗口）2.VisualBasic程序设计的相关概念Q对象和类的概念Q对象的建立和编辑Q对象的属性、事件和方法Q事件驱动的实质Q窗体和控件的基本属性Q窗体、标签、文本框、命令按钮、时钟（主要属性、事件、方法）Q常用方法（Print和Cls）Q工程的管理Q环境的设置（利用“工具”菜单下的“选项”命令提供的选项卡完成）Q帮助系统的使用Q程序调试3.VisualBasic语言