柱子試驗(yàn)報(bào)告

內(nèi)蒙古工業(yè)大學(xué)信息工程學(xué)院實(shí)驗(yàn)報(bào)告課程名稱：高級(jí)語(yǔ)言程序設(shè)計(jì)（VB）I實(shí)驗(yàn)名稱:選擇、循環(huán)、數(shù)組和過(guò)程綜合程序設(shè)計(jì)實(shí)驗(yàn)類型：驗(yàn)證性口綜合性"設(shè)計(jì)性口實(shí)驗(yàn)室名稱：校計(jì)算中心 班級(jí)：^學(xué)號(hào):姓名：^組別：同組人：成績(jī)：實(shí)驗(yàn)日期： 實(shí)驗(yàn)報(bào)告撰寫(xiě)要求一、 實(shí)驗(yàn)前用預(yù)習(xí)報(bào)告紙撰寫(xiě)預(yù)習(xí)報(bào)告，預(yù)習(xí)報(bào)告包括以下內(nèi)容實(shí)驗(yàn)?zāi)康膶?shí)驗(yàn)用儀器設(shè)備、器材或軟件環(huán)境實(shí)驗(yàn)原理、方案設(shè)計(jì)、程序框圖、預(yù)編程序等實(shí)驗(yàn)過(guò)程中需要記錄的實(shí)驗(yàn)數(shù)據(jù)表格二、 實(shí)驗(yàn)過(guò)程中，要認(rèn)真觀察，仔細(xì)記錄三、 完成實(shí)驗(yàn)后用實(shí)驗(yàn)報(bào)告紙撰寫(xiě)實(shí)驗(yàn)報(bào)告，包括以下內(nèi)容儀器設(shè)備型號(hào)及編號(hào)實(shí)驗(yàn)器材或軟件環(huán)境實(shí)驗(yàn)步驟、程序調(diào)試方法實(shí)驗(yàn)數(shù)據(jù)處理及結(jié)果分析實(shí)驗(yàn)中存在的問(wèn)題體會(huì)及思考題四、 報(bào)告撰寫(xiě)時(shí)，要求格式規(guī)范、書(shū)寫(xiě)整齊預(yù)習(xí)報(bào)告（一） 實(shí)驗(yàn)?zāi)康膶W(xué)會(huì)綜合運(yùn)用選擇結(jié)構(gòu)。嘗試運(yùn)用循環(huán)結(jié)構(gòu)、數(shù)組和過(guò)程進(jìn)行程序設(shè)計(jì)的方法。學(xué)會(huì)簡(jiǎn)單的計(jì)數(shù)方法。學(xué)會(huì)rnd函數(shù)的使用。（二） 實(shí)驗(yàn)儀器及軟件環(huán)境：普通臺(tái)式電腦、VB6.0標(biāo)準(zhǔn)環(huán)境下（三） 實(shí)驗(yàn)原理：利用Rnd函數(shù)產(chǎn)生90個(gè)隨機(jī)整數(shù)，再利用For循環(huán)將產(chǎn)生的隨機(jī)整數(shù)存入到數(shù)組中，用If語(yǔ)句按每行15個(gè)數(shù)輸出到窗體上；用If語(yǔ)句和Mod函數(shù)判斷是否為奇偶數(shù)，并將奇偶數(shù)排序分別輸出到picturel，picture2中。調(diào)用Function函數(shù)判斷素?cái)?shù)，利用For循環(huán)和If函數(shù)按每行20個(gè)數(shù)輸出，用累計(jì)求和法將素?cái)?shù)的個(gè)數(shù)以及和求出放入文本框中。（四） 方案設(shè)計(jì)：界面設(shè)計(jì)如下：0Forml（五）程序框圖如下（六）預(yù)編代碼：實(shí)驗(yàn)報(bào)告一、 實(shí)驗(yàn)?zāi)康膶W(xué)會(huì)綜合運(yùn)用選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)、數(shù)組和過(guò)程進(jìn)行程序設(shè)計(jì)的方法。二、 實(shí)驗(yàn)內(nèi)容利用隨機(jī)函數(shù)產(chǎn)生90個(gè)10?99之間的隨機(jī)整數(shù)，將其中的偶數(shù)按由小到大的順序排列，將奇數(shù)按由大到小的順序排列；在產(chǎn)生的90個(gè)隨機(jī)整數(shù)中，找出其中的素?cái)?shù)，并將這些素?cái)?shù)求和。三、 實(shí)驗(yàn)要求將隨機(jī)產(chǎn)生的90個(gè)整數(shù)存入一維數(shù)組中，按每行15個(gè)數(shù)輸出到窗體上。將找出的偶數(shù)和奇數(shù)也分別存入2個(gè)一維數(shù)組中。用Sub子過(guò)程分別對(duì)偶數(shù)和奇數(shù)進(jìn)行排序，然后在主調(diào)過(guò)程內(nèi)，將排好序的偶數(shù)和奇數(shù)按每行15個(gè)數(shù)分別輸出到2個(gè)圖片框中。用Function函數(shù)過(guò)程判斷隨機(jī)整數(shù)是否為素?cái)?shù)。在主調(diào)過(guò)程內(nèi)，將找出的素?cái)?shù)按每行20個(gè)數(shù)在文本框中輸出，將素?cái)?shù)的個(gè)數(shù)及求和結(jié)果也輸出到同一個(gè)文本框中。界面可參照如圖所示的運(yùn)行結(jié)果進(jìn)行設(shè)計(jì)，要求各個(gè)控件在窗體上布局合理、大小適中。對(duì)象屬性的設(shè)置要求用表格填寫(xiě)，包括用到的對(duì)象名、屬性名和屬性值。運(yùn)行程序后，單擊“產(chǎn)生隨機(jī)整數(shù)”按鈕，則在窗體上輸出90個(gè)隨機(jī)整數(shù)；單擊“找奇偶數(shù)并排序”按鈕，則分別在2個(gè)圖片框中輸出已經(jīng)排好序的偶數(shù)和奇數(shù)；單擊“找素?cái)?shù)并求和”按鈕，則在文本框中輸出素?cái)?shù)、素?cái)?shù)的個(gè)數(shù)及素?cái)?shù)的和；單擊“結(jié)束”按鈕，結(jié)束程序的運(yùn)行。四、 界面設(shè)計(jì)和屬性設(shè)置控件名稱屬性名屬性值說(shuō)明Form1captionForm1標(biāo)題Label1caption標(biāo)題Label2Caption標(biāo)題Picture1AutosizeTruePicture2AutosizetrueText1text清空Command1caption產(chǎn)生隨機(jī)整數(shù)標(biāo)題Command2caption找奇偶數(shù)并排序標(biāo)題Command3caption找素?cái)?shù)并求和標(biāo)題Command4caption結(jié)束標(biāo)題五、源程序代碼OptionBase1Dima(90)AsInteger,b(90)AsInteger,d(90)AsIntegerPrivateSubCommand1_Click()Print"90個(gè)隨機(jī)數(shù)”RandomizeFori=1To90a(i)=Int(90*Rnd+10)Printa(i)&" ";IfiMod15=0ThenPrintNextiEndSubPrivateSubCommand2_Click()Fori=1To90Ifa(i)Mod2=0Thenn=n+1d(n)=a(i)Elsem=m+1b(m)=a(i)EndIfNextiLabel1.Caption=n&”個(gè)偶數(shù)”Fori=1Ton-1Forj=i+1TonCalljc(a(i),a(j))NextjNextiFori=1TonPicture1.Printd(i);IfiMod15=0ThenPicture1.PrintNextiLabel2.Caption=m&"個(gè)奇數(shù)”Fori=1Tom-1Forj=i+1TomCalljm(b(i),b(j))NextjNextiFori=1TomPicture2.Printb(i);IfiMod15=0ThenPicture2.PrintNextiEndSubSubjc(nAsInteger,mAsInteger)Ifn>mThent=n:n=m:m=tEndIfEndSubSubjm(aAsInteger,bAsInteger)Ifa<bThent=a:a=b:b=tEndSubFunctionmy(mAsInteger)AsBooleanDimfAsBoolean,oAsIntegerf=TrueForo=2Tom-1IfmModo=0Thenf=FalseEndIfNextomy=fEndFunctionPrivateSubCommand3_Click()Dimc()AsIntegerReDimc(90)DimmAsIntegerDimnAsIntegerFori=1To90Ifmy(a(i))=TrueThenn=n+1c(n)=a(i)EndIfNextiFori=1Tonm=m+a(i)Text1=Text1&c(i)&""IfiMod20=0ThenText1=Text1&Chr(13)&Chr(10)NextiText1=Text1&Chr(13)&Chr(10)&，素?cái)?shù)的個(gè)數(shù)為："&n&Chr(13)&Chr(10)&”所有素?cái)?shù)的和為："&mEndSubPrivateSubCommand4_Click()EndEndSub六、調(diào)試和運(yùn)行結(jié)果

目Forml的個(gè)隨機(jī)數(shù)799459881878991528698892461217B2828677518137419572759955777016854041975644343666191913919535389179261659412529939920953364713928823619384782799123449495636590484292468462288688677613212129291321212929303131333539394343465354575757&3&4&76868707070717172757576778893959899的個(gè)偶數(shù)9995959393919185797775757573717171676359595757575753534743434139393939353331312929252523212119171513七、實(shí)驗(yàn)中遇到的問(wèn)題圖有錯(cuò)誤。圖一中分不出偶數(shù)。目Forml的個(gè)隨機(jī)數(shù)717657723529577543703068886821755731995439779353316770332163297198956446433913702257243941717214536428919352321868726896231615367225887973963084597539604726191759889510748685259152胡個(gè)苛額經(jīng)過(guò)檢查發(fā)現(xiàn)在分類時(shí)，輸出偶數(shù)時(shí)本應(yīng)該輸出的d(i)。但是卻誤以為是輸出a(i)。

素?cái)?shù)個(gè)數(shù)不夠。&Formi * ? *???■, 口回|思-'的個(gè)隨機(jī)數(shù)935669965925402638866952976449241521788446351218781735608380862344341764847753308260119127467345367051823717194710668267746857375436962563175975258886223293166289439274698173524122經(jīng)檢查發(fā)現(xiàn)是在分類時(shí)，多次使用a(