VB试验四试验报告-2018

实验报告课程VB程序设计实验项目VB过程与函数设计6学时)成绩专业班级石油工程2017姓名万佳宁学号201731011301实验日期6.6实验目的(1)掌握Function过程和Sub过程的定义与调用(2)理解参数按址传递和按值传递的本质(3)理解变量和过程的作用域(4)能熟练运用Function过程和Sub过程解决实际问题、简化程序实验内容【实验1】编写Function函数程序实现计算n。程序界面如下图所示(5分)掌握函数过程的定义及使用实验结果：【实验1代码】PrivateSubCommand1_Click()n=ValCext1.1ext)Text2.Text=jiecheng(n)EndSubPrivateFunctionjiecheng(a)t=1Fori=1Toat=t*iNextijiecheng=tEndFunctionPrivateSubCommand2_Click()EndEndSub【实验1典型结果】【实验2】编写Sub子函数过程实现计算n。程序界面同上题(5分)掌握Sub子过程的定义及使用实验结果：【实验2代码】PrivateSubCommand1_Click()2n=Val(Textl.lext)Calljiecheng(n,t)Text2.Text=tEndSubSubjiecheng(a,t)t=1Forj=1Toat=t*jNextjEndSubPrivateSubCommand2_Click()EndEndSub【实验2典型结果】

【实验3】编写计算n!的函数过程，调用该过程，计算!+2!+3!+..•…+10!之和(5分)掌握使用Function过程简化多重循环的方法，即把具有单一功能的内循环放到函数内部函数的作用是简化程序不要把双重循环都放到函数内，无法达到简化程序的目的实验结果：【实验3代码】PrivateSubForm_Click()n=Val(InputBox(1))Forj=1Tonb=b+jiecheng(j)NextjPrintb4EndSubFunctionjiecheng(a)t=1Fori=1Toat=t*iNextijiecheng=tEndFunction【实验3典型结果】【实验4】编写计算n!的子过程，调用该过程，计算!+2!+3!+..•…+10!之和（5分）掌握使用Sub过程简化多重循环的方法，即把具有单一功能的内循环放到函数内部函数的作用是简化程序不要把双“环都放到函数内，无法达到简化程序的目的实验结果：【实验4代码】PrivateSubForm_Click()n=Val(InputBox(1))Fori=1TonCalljiecheng(i,b)c=c+bNextiPrintcEndSubSubjiecheng(a,b)t=1Forj=1Toat=t*jNextjb=tEndSub【实验4典型结果】计算计算x的近似值（10分）……+xn/n!【实验5】编写计算xn/n!的函数过程，调用该过程ex=1+x/1!+冶/2!+妁/3!+要求：1）x的值用InputBox函数输入2）要求精度：xn/n!<0.000001掌握使用函数过程简化多重循环的方法实验结果:【实验5代码】Functionjiecheng(a)t=1Fori=1Toat=t*iNextijiecheng=tEndFunctionPrivateSubCommand1_Click()DimbAsLongx=Val(Text1.Text)d=1Doi=i+1b=jiecheng(i)c=x人id=d+c/bLoopUntilc/b<0.000001PrintdEndSub【实验5典型结果】

5Ferm： [■=1]回『.72.71828180114638X1I【实验6】编写程序输出200〜300之间的素数（10分）要求：1）利用函数过程编学斯一个数是否是素数的程序，如果是素数则返回，否则返回02）将素数输出到列表框掌握使用函数过程简化多重循环的方法实验结果：【实验6代码】PrivateSubCommand1_Click（）9Forj=200T300Ifsushu(j)=1ThenListl.AddItemjNextjEndSubFunctionsushu(n)Fori=2Ton-1IfnModi=0ThenExitForNextiIfi>n-1Thenflag=1Elseflag=0EndIfsushu=flagEndFunction【实验6典型结果】10【实验7】编写程序验证100以内数的哥德巴赫猜想任意一个大于6的偶数可以表示成两个素数之和，要求素数判断用函数过程实现(10分)掌握使用函数过程简化多重循环的方法实验结果：【实验7代码】PrivateSubCommand1_Click()List2.ClearList1.Clearn=Val(Text1)Fori=2Ton-2Ifsushu(i)=1Andsushu(n-i)=1ThenList1.AddItemiList2.AddItemn-iEndIfNextiEndSubFunctionsushu(a)Forj=2Toa-1IfaModj=0ThenExitForNextjIfj>a-1Thensushu=1Elsesushu=0EndIfEndFunction【实验7典型结果】11

【实验8】编写一个通用的Function函数过程，求出数组中的最大值。已知数组中的数据为（101,52,38,96,182，100，25，78，66，89）,程序界面设计如下图所示（10分）掌握Function过程中数组作为参数传递的方法实验结果：【实验8代码】PrivateSubCommand1_Click()Dimnum()num=Array(101,52,38,96,182,100,25,78,66,89)12Textl=max(num())EndSubFunctionmax(num())t=num(0)Fori=0ToUBound(num)-1Ifnum(i)>tThent=num(i)Nextimax=tEndFunction【实验8典型结果】【实验8问题】请总结一下哪些情况使用unction过程更加合适、哪些情况使用ub过程更加合适。需要返回值用function不需要返回值时用sub更合适【实验9】分别编写按地址传递交换按值传递交换两个数的过程子程序代码wap1()和swap2()程序界面设计如下图所示(10分)13掌握Sub过程参数传递方法实验结果：【实验9代码】PrivateSubCommand1_Click()a=10:b=20huan1a,bPrint按址传递前："；"a=10";"b=20"Print按址传递后："；"a=";a;"b=";bEndSubSubhuan1(a,b)t=aa=bb=tEndSubPrivateSubCommand2_Click()a=10:b=20huan2a,bPrint按值传递前："；"a=10";"b=20"Print按值传递后："；"a=";a;"b="；bEndSubSubhuan2(ByVala,ByValb)t=aa=bb=tEndSub14

【实验9典型结果】5Forml-JlnknuknTZIkn-JlnknuknTZIkn?:a=20b=10:a=10L=20投值传递;a=10b=ZO投值传递按址传递【实验10】编写程序，利用sub过程，输出由字符组成的菱形，通过三次调用输出三个不同字符组成的菱形（10分）灵活运用函数过程和子过程解决实际问题15

实验结果：【实验10代码】Sublingxing(aAsString)Fori=1To5PrintTab(10-i);Forj=1Toi*2-1Printa;NextjPrintNextiFori=4To1Step-1PrintTab(10-i);Forj=1Toi*2-1Printa;NextjPrintNextiPrintEndSubPrivateSubCommand1_Click()16lingxingyuansulingxingyuansulingxingyuansuEndSubFunctionyuansu()AsStringyuansu=InputBoxC"^符")EndFunction【实验10典型结果】17

【实验11】编写程序，利用Sub过程实现将任意一个十进制数分别转换成2进制、8进制和16进制数。要求：在文本框中得到要转换的十进制数，在事件过程中调用Sub过程得到转换后的3个结果，在窗体上打印出结果（10分）综合案例实验结果：【实验11代码】【实验11典型结果】【实验12】编写程序，利用Function函数过程的递归调用方式计算n。程序界面如下18图所示（10分）实验结果：【实验12代码】PrivateSubCommand1_Click()n=Val(Text1)Text2=jiecheng(n)EndSubFunctionjiecheng(a)Ifa=1Thenjiecheng=1Elsejiecheng=jiecheng(a-1)*aEndIfEndFunctionPrivateSubCommand2_Click()EndEndSub【实验12典型结果】19

选做1】编写程序，利用Sub子程序递归调用方式计算两个数乂、N的最大公约数,其中M>N，且NW0。程序界面如下图所示(+10分，总分最高100)掌握Sub过程的递归调用实验结果：【选做1代码】PrivateSubCommand1_Click()m=Text120n=Text2Text3=yue(m,n)EndSubFunctionyue(a,b)r=aMod