柱子試驗報告

內(nèi)蒙古工業(yè)大學信息工程學院實驗報告課程名稱：高級語言程序設計（VB）I實驗名稱:選擇、循環(huán)、數(shù)組和過程綜合程序設計實驗類型：驗證性口綜合性"設計性口實驗室名稱：校計算中心 班級：^學號:姓名：^組別：同組人：成績：實驗日期： 實驗報告撰寫要求一、 實驗前用預習報告紙撰寫預習報告，預習報告包括以下內(nèi)容實驗目的實驗用儀器設備、器材或軟件環(huán)境實驗原理、方案設計、程序框圖、預編程序等實驗過程中需要記錄的實驗數(shù)據(jù)表格二、 實驗過程中，要認真觀察，仔細記錄三、 完成實驗后用實驗報告紙撰寫實驗報告，包括以下內(nèi)容儀器設備型號及編號實驗器材或軟件環(huán)境實驗步驟、程序調(diào)試方法實驗數(shù)據(jù)處理及結(jié)果分析實驗中存在的問題體會及思考題四、 報告撰寫時，要求格式規(guī)范、書寫整齊預習報告（一） 實驗目的學會綜合運用選擇結(jié)構(gòu)。嘗試運用循環(huán)結(jié)構(gòu)、數(shù)組和過程進行程序設計的方法。學會簡單的計數(shù)方法。學會rnd函數(shù)的使用。（二） 實驗儀器及軟件環(huán)境：普通臺式電腦、VB6.0標準環(huán)境下（三） 實驗原理：利用Rnd函數(shù)產(chǎn)生90個隨機整數(shù)，再利用For循環(huán)將產(chǎn)生的隨機整數(shù)存入到數(shù)組中，用If語句按每行15個數(shù)輸出到窗體上；用If語句和Mod函數(shù)判斷是否為奇偶數(shù)，并將奇偶數(shù)排序分別輸出到picturel，picture2中。調(diào)用Function函數(shù)判斷素數(shù)，利用For循環(huán)和If函數(shù)按每行20個數(shù)輸出，用累計求和法將素數(shù)的個數(shù)以及和求出放入文本框中。（四） 方案設計：界面設計如下：0Forml（五）程序框圖如下（六）預編代碼：實驗報告一、 實驗目的學會綜合運用選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)、數(shù)組和過程進行程序設計的方法。二、 實驗內(nèi)容利用隨機函數(shù)產(chǎn)生90個10?99之間的隨機整數(shù)，將其中的偶數(shù)按由小到大的順序排列，將奇數(shù)按由大到小的順序排列；在產(chǎn)生的90個隨機整數(shù)中，找出其中的素數(shù)，并將這些素數(shù)求和。三、 實驗要求將隨機產(chǎn)生的90個整數(shù)存入一維數(shù)組中，按每行15個數(shù)輸出到窗體上。將找出的偶數(shù)和奇數(shù)也分別存入2個一維數(shù)組中。用Sub子過程分別對偶數(shù)和奇數(shù)進行排序，然后在主調(diào)過程內(nèi)，將排好序的偶數(shù)和奇數(shù)按每行15個數(shù)分別輸出到2個圖片框中。用Function函數(shù)過程判斷隨機整數(shù)是否為素數(shù)。在主調(diào)過程內(nèi)，將找出的素數(shù)按每行20個數(shù)在文本框中輸出，將素數(shù)的個數(shù)及求和結(jié)果也輸出到同一個文本框中。界面可參照如圖所示的運行結(jié)果進行設計，要求各個控件在窗體上布局合理、大小適中。對象屬性的設置要求用表格填寫，包括用到的對象名、屬性名和屬性值。運行程序后，單擊“產(chǎn)生隨機整數(shù)”按鈕，則在窗體上輸出90個隨機整數(shù)；單擊“找奇偶數(shù)并排序”按鈕，則分別在2個圖片框中輸出已經(jīng)排好序的偶數(shù)和奇數(shù)；單擊“找素數(shù)并求和”按鈕，則在文本框中輸出素數(shù)、素數(shù)的個數(shù)及素數(shù)的和；單擊“結(jié)束”按鈕，結(jié)束程序的運行。四、 界面設計和屬性設置控件名稱屬性名屬性值說明Form1captionForm1標題Label1caption標題Label2Caption標題Picture1AutosizeTruePicture2AutosizetrueText1text清空Command1caption產(chǎn)生隨機整數(shù)標題Command2caption找奇偶數(shù)并排序標題Command3caption找素數(shù)并求和標題Command4caption結(jié)束標題五、源程序代碼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é)果

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

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