內(nèi)蒙古工業(yè)大學(xué)vb實驗報告(找出素數(shù)奇數(shù)偶數(shù)排序)副本

1、內(nèi)蒙古工業(yè)大學(xué)信息工程學(xué)院實 驗 報 告課程名稱： 高級語言程序設(shè)計（vb） 實驗名稱：選擇、循環(huán)、數(shù)組和過程綜合程序設(shè)計實驗類型： 驗證性 綜合性 設(shè)計性實驗室名稱： 校計算中心 班級：安全13 學(xué)號：201320518008姓名： 劉威 組別： 同組人： 成績： 實驗日期： 2014年5月 實驗報告撰寫要求一、 實驗前用預(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、型號及編號2 實驗器材或軟件環(huán)境3 實驗步驟、程序調(diào)試方法4 實驗數(shù)據(jù)處理及結(jié)果分析5 實驗中存在的問題6 體會及思考題四、 報告撰寫時，要求格式規(guī)范、書寫整齊 預(yù)習(xí)報告成績： 指導(dǎo)教師審核（簽名）： 年 月 日預(yù)習(xí)報告一、程序所需包含的對象（如下表）。二、窗體上的布局（預(yù)習(xí)圖）。（預(yù)習(xí)圖）三、屬性和屬性值（如下表）。四、預(yù)編程序代碼（手寫）。實驗報告成績： 指導(dǎo)教師審核（簽名）： 年 月 日實驗報告一、實驗?zāi)康膶W(xué)會綜合運(yùn)用三種基本控制結(jié)構(gòu)、數(shù)組和過程進(jìn)行程序設(shè)計的方法。二、實驗內(nèi)容利用隨機(jī)函數(shù)產(chǎn)生n（20n100）個兩位整數(shù)，找出其中的奇數(shù)、偶數(shù)和素數(shù)，并將奇數(shù)按升序排序，將偶數(shù)按降序排序，

3、將素數(shù)求和。三、實驗要求1將隨機(jī)產(chǎn)生的n個整數(shù)存入一維數(shù)組中，按每行10個數(shù)輸出到窗體上。2將找出的奇數(shù)和偶數(shù)分別存入2個一維動態(tài)數(shù)組中。用sub過程分別對奇數(shù)和偶數(shù)進(jìn)行排序，奇數(shù)用選擇法排序，偶數(shù)用冒泡法排序，然后在調(diào)用過程內(nèi)，將排好序的奇數(shù)和偶數(shù)按每行10個數(shù)分別輸出到圖片框和標(biāo)簽中。3用function過程判斷隨機(jī)整數(shù)是否為素數(shù)。在調(diào)用過程內(nèi)，將找出的素數(shù)（按每行10個數(shù)）及求和結(jié)果輸出到文本框中。4sub過程和function過程均建立在標(biāo)準(zhǔn)模塊中。5界面可參照如圖所示的運(yùn)行結(jié)果進(jìn)行設(shè)計，要求在窗體上添加的各個控件布局合理、大小適中。對象屬性的設(shè)置要求用表格填寫，包括對象名、屬性名、屬

4、性值和說明（可參照前面章節(jié)的實驗內(nèi)容）。6程序運(yùn)行后，若在輸入對話框中輸入隨機(jī)產(chǎn)生的整數(shù)個數(shù)n為50，單擊“產(chǎn)生隨機(jī)整數(shù)”命令按鈕，則在窗體上輸出50個隨機(jī)整數(shù)；單擊“找奇偶數(shù)并排序”命令按鈕，則分別在圖片框和標(biāo)簽中輸出排好序的奇數(shù)和偶數(shù)；單擊“找素數(shù)并求和”命令按鈕，則在文本框和順序文件中輸出素數(shù)和素數(shù)的和；單擊“結(jié)束”命令按鈕，結(jié)束程序的運(yùn)行。運(yùn)行結(jié)果如圖所示。7實驗報告主要包括實驗?zāi)康?、實驗?nèi)容、實驗要求、界面設(shè)計（包括各對象及其屬性設(shè)置）、源程序代碼、運(yùn)行結(jié)果（要求截圖）、實驗中存在的問題、體會和思考等內(nèi)容。四、我設(shè)計的界面如下圖（實驗圖2012-01）所示：（實驗圖2012-01）五

5、、我設(shè)計的界面中各控件屬性及屬性值如下五個表格所示：六、我設(shè)計的源程序代碼如下：dim a%(50), b%(), n%, i%, j%, t%private sub command1_click()print 50個隨機(jī)整數(shù) for i = 1 to 50 a(i) = int(rnd * 90 + 10) print a(i); if i mod 10 = 0 then print next i end subprivate sub command2_click() for i = 1 to 50 if a(i) mod 2 = 1 then n = n + 1 redim preserv

6、e b(n) b(n) = a(i) end if next i for i = 1 to n - 1 for j = i + 1 to n if b(i) b(j) then t = b(i) b(i) = b(j) b(j) = t end if next j next i print n; 個奇數(shù) for i = 1 to n picture1.print b(i); if i mod 10 = 0 then picture1.print next i for i = 1 to 50 if a(i) mod 2 = 0 then m = m + 1 redim preserve b(m)

7、 b(m) = a(i) end if next i for i = 1 to n - 1 for j = i + 1 to m if b(i) b(j) then t = b(i) b(i) = b(j) b(j) = t end if next j next i label3.caption = label3.caption & m & 個偶數(shù) for i = 1 to m - 1 for j = 1 to m - 1 if b(j) b(j + 1) then t = b(j) b(j) = b(j + 1) b(j + 1) = t end if next j next i for i

8、 = 1 to m label1.caption = label1.caption & & b(i) & if i mod 10 = 0 then label1.caption = label1.caption & vbcrlf next i end subfunction fnprime(m as integer) dim k as integer, f as boolean f = true for k = 2 to m - 1 if m mod k = 0 then f = false end if next k fnprime = f end functionprivate sub c

9、ommand3_click()dim b as integer, c as integer for i = 1 to n if fnprime(a(i) then c = c + 1 b = b + a(i) text1.text = text1.text + str(a(i) if c mod 20 = 0 then text1.text = text1.text & vbcrlf end if next i text1.text = text1.text & vbcrlf & 素數(shù)之和是： & blabel2.caption = 素數(shù)的個數(shù)是： & cend subprivate sub

10、command4_click()endend subprivate sub form_load()end sub七、我設(shè)計程序的調(diào)試和運(yùn)行結(jié)果展示如下：. 當(dāng)點擊“”時顯示結(jié)果如下圖（實驗圖2012-02）所示：（實驗圖2012-02）.當(dāng)點擊“”時顯示結(jié)果如下圖（實驗圖2012-03）所示：（實驗圖2012-03）.當(dāng)點擊“”時顯示結(jié)果如下圖（實驗圖2012-04）所示：（實驗圖2012-04）.當(dāng)點擊“”時：結(jié)束程序。八、實驗中存在的問題.實驗中出現(xiàn)如右圖（實驗圖2012-6）所示的錯誤提醒。經(jīng)“幫助”知這是在fornext語句中的“if”語句后沒有對應(yīng)的“end if”造成的。 （實驗圖

11、2012-06）.實驗中曾將“b()”數(shù)組定義在了通用中，造成在找素數(shù)時的錯誤。經(jīng)老師點撥將“b()”數(shù)組定義在相應(yīng)的private下，便解決了素數(shù)輸出的錯誤。.實驗中沒有對“text1”“text2”文本框的屬性“multiline”屬性值進(jìn)行改變致使隨在源代碼中定義了換行卻不能顯示出來（實驗圖2012-7）。在同學(xué)的提醒下將“multiline”屬性值設(shè)置為“true”，之后再運(yùn)行程序就實現(xiàn)了每行10個數(shù)字的顯九、 體會和思考在這次高級語言v b編程實驗中我出的不少錯誤，也有一定的成就感。其實v b語言并不是一個很難的學(xué)科，但它能考驗一個人的學(xué)習(xí)態(tài)度與對細(xì)節(jié)的把握程度。只有擁有良好的學(xué)習(xí)態(tài)度才能學(xué)會v b的編程技巧，只有平時認(rèn)真聽理論課，并在上機(jī)操作課時認(rèn)真練習(xí)才有可能學(xué)會v b，學(xué)好v b。v b語言的學(xué)習(xí)不僅僅與平時的學(xué)習(xí)態(tài)度有關(guān)，在一定程度也與一個人的思維模式有關(guān)，只有具備良好的思維模式，才能快速準(zhǔn)確的編寫v b程序。但我認(rèn)為這并不是決定性因素。還有一個最最重要的：那就是注重細(xì)節(jié)。俗話說：“細(xì)節(jié)決定成敗”。在v