柱子試驗報告

內(nèi)蒙古工業(yè)大學(xué)信息工程學(xué)院實驗報告課程名稱：高級語言程序設(shè)計（VB）I實驗名稱:選擇、循環(huán)、數(shù)組和過程綜合程序設(shè)計實驗類型：驗證性口綜合性M設(shè)計性口實驗室名稱：校計算中心班級：學(xué)號:姓名：組別：同組人：成績：實驗日期：實驗報告撰寫要求一、實驗前用預(yù)習(xí)報告紙撰寫預(yù)習(xí)報告，預(yù)習(xí)報告包括以下內(nèi)容1．實驗?zāi)康?．實驗用儀器設(shè)備、器材或軟件環(huán)境3．實驗原理、方案設(shè)計、程序框圖、預(yù)編程序等4．實驗過程中需要記錄的實驗數(shù)據(jù)表格二、實驗過程中，要認(rèn)真觀察，仔細(xì)記錄三、完成實驗后用實驗報告紙撰寫實驗報告，包括以下內(nèi)容1．儀器設(shè)備型號及編號2．實驗器材或軟件環(huán)境3．實驗步驟、程序調(diào)試方法4．實驗數(shù)據(jù)處理及結(jié)果分析5．實驗中存在的問題6．體會及思考題四、報告撰寫時，要求格式規(guī)范、書寫整齊預(yù)習(xí)報告成績：預(yù)習(xí)報告成績：指導(dǎo)教師審核（簽名）：年月日預(yù)習(xí)報告成績：預(yù)習(xí)報告成績：指導(dǎo)教師審核（簽名）：年月日預(yù)習(xí)報告（一）實驗?zāi)康膶W(xué)會綜合運用選擇結(jié)構(gòu)。嘗試運用循環(huán)結(jié)構(gòu)、數(shù)組和過程進(jìn)行程序設(shè)計的方法。學(xué)會簡單的計數(shù)方法。學(xué)會rnd函數(shù)的使用。（二）實驗儀器及軟件環(huán)境：普通臺式電腦、VB6.0標(biāo)準(zhǔn)環(huán)境下（三）實驗原理：利用Rnd函數(shù)產(chǎn)生90個隨機整數(shù)，再利用For循環(huán)將產(chǎn)生的隨機整數(shù)存入到數(shù)組中，用If語句按每行15個數(shù)輸出到窗體上；用If語句和Mod函數(shù)判斷是否為奇偶數(shù)，并將奇偶數(shù)排序分別輸出到picture1，picture2中。調(diào)用Function函數(shù)判斷素數(shù)，利用For循環(huán)和If函數(shù)按每行20個數(shù)輸出，用累計求和法將素數(shù)的個數(shù)以及和求出放入文本框中。（四）方案設(shè)計：界面設(shè)計如下：耳Forml耳Forml五）程序框圖如下實驗報告成績：實驗報告成績：指導(dǎo)教師審核（簽名）：年月日六）預(yù)編代碼：實驗報告一、實驗?zāi)康膶W(xué)會綜合運用選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)、數(shù)組和過程進(jìn)行程序設(shè)計的方法。二、實驗內(nèi)容利用隨機函數(shù)產(chǎn)生90個10?99之間的隨機整數(shù)，將其中的偶數(shù)按由小到大的順序排列，將奇數(shù)按由大到小的順序排列；在產(chǎn)生的90個隨機整數(shù)中，找出其中的素數(shù)，并將這些素數(shù)求和。三、實驗要求1．將隨機產(chǎn)生的90個整數(shù)存入一維數(shù)組中，按每行15個數(shù)輸出到窗體上。將找出的偶數(shù)和奇數(shù)也分別存入2個一維數(shù)組中。用Sub子過程分別對偶數(shù)和奇數(shù)進(jìn)行排序，然后在主調(diào)過程內(nèi)，將排好序的偶數(shù)和奇數(shù)按每行15個數(shù)分別輸出到2個圖片框中。用Function函數(shù)過程判斷隨機整數(shù)是否為素數(shù)。在主調(diào)過程內(nèi)，將找出的素數(shù)按每行20個數(shù)在文本框中輸出，將素數(shù)的個數(shù)及求和結(jié)果也輸出到同一個文本框中。界面可參照如圖所示的運行結(jié)果進(jìn)行設(shè)計，要求各個控件在窗體上布局合理、大小適中。對象屬性的設(shè)置要求用表格填寫，包括用到的對象名、屬性名和屬性值。運行程序后，單擊“產(chǎn)生隨機整數(shù)”按鈕，則在窗體上輸出90個隨機整數(shù)；單擊“找奇偶數(shù)并排序”按鈕，則分別在2個圖片框中輸出已經(jīng)排好序的偶數(shù)和奇數(shù)；單擊“找素數(shù)并求和”按鈕，則在文本框中輸出素數(shù)、素數(shù)的個數(shù)及素數(shù)的和；單擊“結(jié)束”按鈕，結(jié)束程序的運行。四、界面設(shè)計和屬性設(shè)置控件名稱屬性名屬性值說明Form1captionForm1標(biāo)題Label1caption標(biāo)題Label2Caption標(biāo)題PicturelAutosizeTruePicture2AutosizetrueText1text清空Command1caption產(chǎn)生隨機整數(shù)標(biāo)題Command2caption找奇偶數(shù)并排序標(biāo)題Command3caption找素數(shù)并求和標(biāo)題Command4caption結(jié)束標(biāo)題五、源程序代碼OptionBase1Dima(90)AsInteger,b(90)AsInteger,d(90)AsIntegerPrivateSubCommand1_Click()Print"90個隨機數(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&"個偶數(shù)"Fori=1Ton-1Forj=i+1TonCalljc(a(i),a(j))NextjNextiFori=1TonPicture1.Printd(i);IfiMod15=0ThenPicture1.PrintNextiLabel2.Caption=m&"個奇數(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)&"素數(shù)的個數(shù)為："&n&Chr(13)&Chr(10)&"所有素數(shù)的和為："&mEndSubPrivateSubCommand4_Click()EndEndSub六、調(diào)試和運行結(jié)果5Forml90個隨機埶T9945988185Forml90個隨機埶T99459881878991528698892461217628286775181374195727599557770168540419756443436661919139195353891792616594125299399209533647139288236193847827991234494956365904842924684622886886776七、實驗中遇到的問題圖有錯誤。圖一中分不出偶數(shù)。經(jīng)過檢查發(fā)現(xiàn)在分類時，輸出偶數(shù)時本應(yīng)該輸出的d(i)。但是卻誤以為是輸出a(i)。素數(shù)個數(shù)不夠。&Forml?**WI*?M*O**MI—旦晳個偶數(shù)晳個偶數(shù)90個隨機埶935669965925402638866952976449241521788446351218781735608380862344341764847753308260119127467345367051823717194710668267746857375436962563175975258886223293166289439274698173524122經(jīng)檢查發(fā)現(xiàn)是在分類時，多次使用a(i)數(shù)組，導(dǎo)致在分類時對a(i)重新賦值，從而不能使素數(shù)