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

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

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

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

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

5、、我設(shè)計(jì)的界面中各控件屬性及屬性值如下五個(gè)表格所示：六、我設(shè)計(jì)的源程序代碼如下：dim a%(50), b%(), n%, i%, j%, t%private sub command1_click()print "50個(gè)隨機(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 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; "個(gè)奇數(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 & "個(gè)偶數(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 & "素?cái)?shù)之和是：" & blabel2.caption = "素?cái)?shù)的個(gè)數(shù)是：" & cend subprivate sub command4_click()endend subprivate sub form_load()end sub七、我設(shè)計(jì)程序的調(diào)試和運(yùn)行結(jié)果展示如下：. 當(dāng)點(diǎn)擊“”時(shí)顯示結(jié)果如下圖（實(shí)驗(yàn)圖2012-02）所示：（實(shí)驗(yàn)圖2012-02）.當(dāng)點(diǎn)擊“”時(shí)顯示結(jié)果如下圖（實(shí)驗(yàn)圖2012-03）所示：（實(shí)驗(yàn)圖20

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

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