VB試驗(yàn)四試驗(yàn)報(bào)告-2018

實(shí)驗(yàn)報(bào)告課程VB程序設(shè)計(jì)實(shí)驗(yàn)項(xiàng)目VB過(guò)程與函數(shù)設(shè)計(jì)6學(xué)時(shí))成績(jī)專業(yè)班級(jí)石油工程2017姓名萬(wàn)佳寧學(xué)號(hào)201731011301實(shí)驗(yàn)日期6.6實(shí)驗(yàn)?zāi)康?1)掌握Function過(guò)程和Sub過(guò)程的定義與調(diào)用(2)理解參數(shù)按址傳遞和按值傳遞的本質(zhì)(3)理解變量和過(guò)程的作用域(4)能熟練運(yùn)用Function過(guò)程和Sub過(guò)程解決實(shí)際問(wèn)題、簡(jiǎn)化程序?qū)嶒?yàn)內(nèi)容【實(shí)驗(yàn)1】編寫(xiě)Function函數(shù)程序?qū)崿F(xiàn)計(jì)算n。程序界面如下圖所示(5分)掌握函數(shù)過(guò)程的定義及使用實(shí)驗(yàn)結(jié)果：【實(shí)驗(yàn)1代碼】PrivateSubCommand1_Click()n=ValCext1.1ext)Text2.Text=jiecheng(n)EndSubPrivateFunctionjiecheng(a)t=1Fori=1Toat=t*iNextijiecheng=tEndFunctionPrivateSubCommand2_Click()EndEndSub【實(shí)驗(yàn)1典型結(jié)果】【實(shí)驗(yàn)2】編寫(xiě)Sub子函數(shù)過(guò)程實(shí)現(xiàn)計(jì)算n。程序界面同上題(5分)掌握Sub子過(guò)程的定義及使用實(shí)驗(yàn)結(jié)果：【實(shí)驗(yàn)2代碼】PrivateSubCommand1_Click()2n=Val(Textl.lext)Calljiecheng(n,t)Text2.Text=tEndSubSubjiecheng(a,t)t=1Forj=1Toat=t*jNextjEndSubPrivateSubCommand2_Click()EndEndSub【實(shí)驗(yàn)2典型結(jié)果】

【實(shí)驗(yàn)3】編寫(xiě)計(jì)算n!的函數(shù)過(guò)程，調(diào)用該過(guò)程，計(jì)算!+2!+3!+..?…+10!之和(5分)掌握使用Function過(guò)程簡(jiǎn)化多重循環(huán)的方法，即把具有單一功能的內(nèi)循環(huán)放到函數(shù)內(nèi)部函數(shù)的作用是簡(jiǎn)化程序不要把雙重循環(huán)都放到函數(shù)內(nèi)，無(wú)法達(dá)到簡(jiǎn)化程序的目的實(shí)驗(yàn)結(jié)果：【實(shí)驗(yàn)3代碼】PrivateSubForm_Click()n=Val(InputBox(1))Forj=1Tonb=b+jiecheng(j)NextjPrintb4EndSubFunctionjiecheng(a)t=1Fori=1Toat=t*iNextijiecheng=tEndFunction【實(shí)驗(yàn)3典型結(jié)果】【實(shí)驗(yàn)4】編寫(xiě)計(jì)算n!的子過(guò)程，調(diào)用該過(guò)程，計(jì)算!+2!+3!+..?…+10!之和（5分）掌握使用Sub過(guò)程簡(jiǎn)化多重循環(huán)的方法，即把具有單一功能的內(nèi)循環(huán)放到函數(shù)內(nèi)部函數(shù)的作用是簡(jiǎn)化程序不要把雙“環(huán)都放到函數(shù)內(nèi)，無(wú)法達(dá)到簡(jiǎn)化程序的目的實(shí)驗(yàn)結(jié)果：【實(shí)驗(yàn)4代碼】PrivateSubForm_Click()n=Val(InputBox(1))Fori=1TonCalljiecheng(i,b)c=c+bNextiPrintcEndSubSubjiecheng(a,b)t=1Forj=1Toat=t*jNextjb=tEndSub【實(shí)驗(yàn)4典型結(jié)果】計(jì)算計(jì)算x的近似值（10分）……+xn/n!【實(shí)驗(yàn)5】編寫(xiě)計(jì)算xn/n!的函數(shù)過(guò)程，調(diào)用該過(guò)程ex=1+x/1!+冶/2!+妁/3!+要求：1）x的值用InputBox函數(shù)輸入2）要求精度：xn/n!<0.000001掌握使用函數(shù)過(guò)程簡(jiǎn)化多重循環(huán)的方法實(shí)驗(yàn)結(jié)果:【實(shí)驗(yàn)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【實(shí)驗(yàn)5典型結(jié)果】

5Ferm： [■=1]回『.72.71828180114638X1I【實(shí)驗(yàn)6】編寫(xiě)程序輸出200?300之間的素?cái)?shù)（10分）要求：1）利用函數(shù)過(guò)程編學(xué)斯一個(gè)數(shù)是否是素?cái)?shù)的程序，如果是素?cái)?shù)則返回，否則返回02）將素?cái)?shù)輸出到列表框掌握使用函數(shù)過(guò)程簡(jiǎn)化多重循環(huán)的方法實(shí)驗(yàn)結(jié)果：【實(shí)驗(yàn)6代碼】PrivateSubCommand1_Click（）9Forj=200T300Ifsushu(j)=1ThenListl.AddItemjNextjEndSubFunctionsushu(n)Fori=2Ton-1IfnModi=0ThenExitForNextiIfi>n-1Thenflag=1Elseflag=0EndIfsushu=flagEndFunction【實(shí)驗(yàn)6典型結(jié)果】10【實(shí)驗(yàn)7】編寫(xiě)程序驗(yàn)證100以內(nèi)數(shù)的哥德巴赫猜想任意一個(gè)大于6的偶數(shù)可以表示成兩個(gè)素?cái)?shù)之和，要求素?cái)?shù)判斷用函數(shù)過(guò)程實(shí)現(xiàn)(10分)掌握使用函數(shù)過(guò)程簡(jiǎn)化多重循環(huán)的方法實(shí)驗(yàn)結(jié)果：【實(shí)驗(yàn)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【實(shí)驗(yàn)7典型結(jié)果】11

【實(shí)驗(yàn)8】編寫(xiě)一個(gè)通用的Function函數(shù)過(guò)程，求出數(shù)組中的最大值。已知數(shù)組中的數(shù)據(jù)為（101,52,38,96,182，100，25，78，66，89）,程序界面設(shè)計(jì)如下圖所示（10分）掌握Function過(guò)程中數(shù)組作為參數(shù)傳遞的方法實(shí)驗(yàn)結(jié)果：【實(shí)驗(yàn)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【實(shí)驗(yàn)8典型結(jié)果】【實(shí)驗(yàn)8問(wèn)題】請(qǐng)總結(jié)一下哪些情況使用unction過(guò)程更加合適、哪些情況使用ub過(guò)程更加合適。需要返回值用function不需要返回值時(shí)用sub更合適【實(shí)驗(yàn)9】分別編寫(xiě)按地址傳遞交換按值傳遞交換兩個(gè)數(shù)的過(guò)程子程序代碼wap1()和swap2()程序界面設(shè)計(jì)如下圖所示(10分)13掌握Sub過(guò)程參數(shù)傳遞方法實(shí)驗(yàn)結(jié)果：【實(shí)驗(yàn)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

【實(shí)驗(yàn)9典型結(jié)果】5Forml-JlnknuknTZIkn-JlnknuknTZIkn?:a=20b=10:a=10L=20投值傳遞;a=10b=ZO投值傳遞按址傳遞【實(shí)驗(yàn)10】編寫(xiě)程序，利用sub過(guò)程，輸出由字符組成的菱形，通過(guò)三次調(diào)用輸出三個(gè)不同字符組成的菱形（10分）靈活運(yùn)用函數(shù)過(guò)程和子過(guò)程解決實(shí)際問(wèn)題15

實(shí)驗(yàn)結(jié)果：【實(shí)驗(yàn)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【實(shí)驗(yàn)10典型結(jié)果】17

【實(shí)驗(yàn)11】編寫(xiě)程序，利用Sub過(guò)程實(shí)現(xiàn)將任意一個(gè)十進(jìn)制數(shù)分別轉(zhuǎn)換成2進(jìn)制、8進(jìn)制和16進(jìn)制數(shù)。要求：在文本框中得到要轉(zhuǎn)換的十進(jìn)制數(shù)，在事件過(guò)程中調(diào)用Sub過(guò)程得到轉(zhuǎn)換后的3個(gè)結(jié)果，在窗體上打印出結(jié)果（10分）綜合案例實(shí)驗(yàn)結(jié)果：【實(shí)驗(yàn)11代碼】【實(shí)驗(yàn)11典型結(jié)果】【實(shí)驗(yàn)12】編寫(xiě)程序，利用Function函數(shù)過(guò)程的遞歸調(diào)用方式計(jì)算n。程序界面如下18圖所示（10分）實(shí)驗(yàn)結(jié)果：【實(shí)驗(yàn)12代碼】PrivateSubCommand1_Click()n=Val(Text1)Text2=jiecheng(n)EndSubFunctionjiecheng(a)Ifa=1Thenjiecheng=1Elsejiecheng=jiecheng(a-1)*aEndIfEndFunctionPrivateSubCommand2_Click()EndEndSub【實(shí)驗(yàn)12典型結(jié)果】19

選做1】編寫(xiě)程序，利用Sub子程序遞歸調(diào)用方式計(jì)算兩個(gè)數(shù)乂、N的最大公約數(shù),其中M>N，且NW0。程序界面如下圖所示(+10分，總分最高100)掌握Sub過(guò)程的遞歸調(diào)用實(shí)驗(yàn)結(jié)果：【選做1代碼】PrivateSubCommand1_Click()m=Text120n=Text2Text3=yue(m,n)EndSubFunctionyue(a,b)r=aMod