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

1、內(nèi)蒙古工業(yè)大學信息工程學院實 驗 報 告課程名稱： 高級語言程序設計（vb） 實驗名稱：選擇、循環(huán)、數(shù)組和過程綜合程序設計實驗類型： 驗證性 綜合性 設計性實驗室名稱： 校計算中心 班級：安全13 學號：201320518008姓名： 劉威 組別： 同組人： 成績： 實驗日期： 2014年5月 實驗報告撰寫要求一、 實驗前用預習報告紙撰寫預習報告，預習報告包括以下內(nèi)容1 實驗目的2 實驗用儀器設備、器材或軟件環(huán)境3 實驗原理、方案設計、程序框圖、預編程序等4 實驗過程中需要記錄的實驗數(shù)據(jù)表格二、 實驗過程中，要認真觀察，仔細記錄三、 完成實驗后用實驗報告紙撰寫實驗報告，包括以下內(nèi)容1 儀器設備

2、型號及編號2 實驗器材或軟件環(huán)境3 實驗步驟、程序調(diào)試方法4 實驗數(shù)據(jù)處理及結(jié)果分析5 實驗中存在的問題6 體會及思考題四、 報告撰寫時，要求格式規(guī)范、書寫整齊 預習報告成績： 指導教師審核（簽名）： 年 月 日預習報告一、程序所需包含的對象（如下表）。二、窗體上的布局（預習圖）。（預習圖）三、屬性和屬性值（如下表）。四、預編程序代碼（手寫）。實驗報告成績： 指導教師審核（簽名）： 年 月 日實驗報告一、實驗目的學會綜合運用三種基本控制結(jié)構(gòu)、數(shù)組和過程進行程序設計的方法。二、實驗內(nèi)容利用隨機函數(shù)產(chǎn)生n（20n100）個兩位整數(shù)，找出其中的奇數(shù)、偶數(shù)和素數(shù)，并將奇數(shù)按升序排序，將偶數(shù)按降序排序，

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

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

5、、我設計的界面中各控件屬性及屬性值如下五個表格所示：六、我設計的源程序代碼如下：dim a%(50), b%(), n%, i%, j%, t%private sub command1_click()print "50個隨機整數(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 r

6、edim preserve 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

7、m = m + 1 redim preserve b(m) 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

8、(j) b(j) = b(j + 1) b(j + 1) = t end if next j next i for i = 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 = tr

9、ue for k = 2 to m - 1 if m mod k = 0 then f = false end if next k fnprime = f end functionprivate sub command3_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

10、 end if next i text1.text = text1.text & vbcrlf & "素數(shù)之和是：" & blabel2.caption = "素數(shù)的個數(shù)是：" & cend subprivate sub command4_click()endend subprivate sub form_load()end sub七、我設計程序的調(diào)試和運行結(jié)果展示如下：. 當點擊“”時顯示結(jié)果如下圖（實驗圖2012-02）所示：（實驗圖2012-02）.當點擊“”時顯示結(jié)果如下圖（實驗圖2012-03）所示：（實驗圖20

11、12-03）.當點擊“”時顯示結(jié)果如下圖（實驗圖2012-04）所示：（實驗圖2012-04）.當點擊“”時：結(jié)束程序。八、實驗中存在的問題.實驗中出現(xiàn)如右圖（實驗圖2012-6）所示的錯誤提醒。經(jīng)“幫助”知這是在fornext語句中的“if”語句后沒有對應的“end if”造成的。 （實驗圖2012-06）.實驗中曾將“b()”數(shù)組定義在了通用中，造成在找素數(shù)時的錯誤。經(jīng)老師點撥將“b()”數(shù)組定義在相應的private下，便解決了素數(shù)輸出的錯誤。.實驗中沒有對“text1”“text2”文本框的屬性“multiline”屬性值進行改變致使隨在源代碼中定義了換行卻不能顯示出來（實驗圖2012

12、-7）。在同學的提醒下將“multiline”屬性值設置為“true”，之后再運行程序就實現(xiàn)了每行10個數(shù)字的顯九、 體會和思考在這次高級語言v b編程實驗中我出的不少錯誤，也有一定的成就感。其實v b語言并不是一個很難的學科，但它能考驗一個人的學習態(tài)度與對細節(jié)的把握程度。只有擁有良好的學習態(tài)度才能學會v b的編程技巧，只有平時認真聽理論課，并在上機操作課時認真練習才有可能學會v b，學好v b。v b語言的學習不僅僅與平時的學習態(tài)度有關(guān)，在一定程度也與一個人的思維模式有關(guān)，只有具備良好的思維模式，才能快速準確的編寫v b程序。但我認為這并不是決定性因素。還有一個最最重要的：那就是注重細節(jié)。俗話說：“細節(jié)決