VB程序設(shè)計(jì)課程設(shè)計(jì)報(bào)告

1、vb程序設(shè)計(jì)課程設(shè)計(jì)報(bào)告（2016 2017 學(xué)年第 1 學(xué)期）題 目： 排序演示 學(xué) 院： 經(jīng)濟(jì)與管理學(xué)院 班 級(jí)： 物流管理1502 學(xué) 號(hào)： 姓 名： 指導(dǎo)教師： 阮冰 時(shí) 間：起 2017年1月3日 止 1月6日 一、 課程設(shè)計(jì)基本信息課程代碼：05190124課程名稱：計(jì)算機(jī)基礎(chǔ)課程設(shè)計(jì)課程英文名稱: computer-based course design課程所屬單位（院（系）、教研室）：數(shù)學(xué)與計(jì)算機(jī)學(xué)院計(jì)算機(jī)基礎(chǔ)課程群課程面向?qū)I(yè)：生物科學(xué)類、制藥工程、制藥工程(生物制藥)、藥物制劑、物流管理課程類型：必修課先修課程：大學(xué)計(jì)算機(jī)基礎(chǔ)通識(shí)選修課程、visual basic程序設(shè)計(jì)課

2、程學(xué)分：1 總學(xué)時(shí)：16二、 課程設(shè)計(jì)目標(biāo)掌握所學(xué)語言程序設(shè)計(jì)的方法，熟悉所學(xué)語言的開發(fā)環(huán)境及調(diào)試過程，熟悉所學(xué)語言中的數(shù)據(jù)類型，數(shù)據(jù)結(jié)構(gòu)、語句結(jié)構(gòu)、運(yùn)算方法，鞏固和加深對理論課中知識(shí)的理解，提高學(xué)生對所學(xué)知識(shí)的綜合運(yùn)用能力。通過綜合設(shè)計(jì)要求達(dá)到下列基本技能：1培養(yǎng)查閱參考資料、手冊的自學(xué)能力，通過獨(dú)立思考深入鉆研問題，學(xué)會(huì)自己分析、解決問題。 2通過對所選題目方案分析比較，確立方案，編制與調(diào)試程序，初步掌握程序設(shè)計(jì)的方法，能熟練調(diào)試程序。 3系統(tǒng)設(shè)計(jì)編程簡練，可用，功能全面，并有一定的容錯(cuò)能力。用戶界面良好，有較好的輸出功能。在完成課題基本要求后，具有創(chuàng)新型設(shè)計(jì)，具有一定的實(shí)用價(jià)值。4根據(jù)個(gè)

3、人的設(shè)計(jì)調(diào)試過程，撰寫設(shè)計(jì)報(bào)告。三、 課程設(shè)計(jì)內(nèi)容利用已掌握的vb程序設(shè)計(jì)語言基礎(chǔ)，以及面向?qū)ο蟮某绦蛟O(shè)計(jì)方法、事件驅(qū)動(dòng)的編程方式，進(jìn)行應(yīng)用程序和系統(tǒng)的開發(fā)設(shè)計(jì)。在強(qiáng)化鞏固已有編程知識(shí)基礎(chǔ)之上，訓(xùn)練新的設(shè)計(jì)與編程思路，通過綜合應(yīng)用所學(xué)知識(shí)設(shè)計(jì)、編制、調(diào)試實(shí)用的visual basic程序。四、 課程設(shè)計(jì)要求1. 要求每個(gè)同學(xué)都要認(rèn)真對待，積極參與。2. 課程設(shè)計(jì)結(jié)束時(shí)，提交完成的所有源程序、相關(guān)文件和可執(zhí)行文件。同時(shí)填寫并完成課程設(shè)計(jì)報(bào)告冊。3. 不符合要求的程序、設(shè)計(jì)報(bào)告、抄襲的設(shè)計(jì)報(bào)告或源程序代碼、在設(shè)計(jì)中完全未參與的將作不及格處理。五、 考核方式指導(dǎo)老師負(fù)責(zé)驗(yàn)收程序的運(yùn)行結(jié)果，并結(jié)合學(xué)生

4、的工作態(tài)度、實(shí)際動(dòng)手能力、創(chuàng)新精神和設(shè)計(jì)報(bào)告等進(jìn)行綜合考評(píng)，百分制計(jì)算，具體考核標(biāo)準(zhǔn)主要包含以下幾個(gè)部分：1. 程序運(yùn)行情況20分2. 程序功能的完善程度10分3. 程序結(jié)構(gòu)的合理性10分4. 對問題的答辯情況20分5. 創(chuàng)新情況10分6. 學(xué)生的工作態(tài)度與獨(dú)立工作能力10分7. 設(shè)計(jì)報(bào)告內(nèi)容的規(guī)范性20分備注:1. 按規(guī)定時(shí)間填寫各階段文檔，學(xué)習(xí)態(tài)度加5分2. 設(shè)計(jì)報(bào)告內(nèi)容雷同扣40分，無調(diào)試過程問題分析扣10分，無參考文獻(xiàn)扣10分3. 源程序無注釋則在程序結(jié)構(gòu)合理性扣10分六、 課程設(shè)計(jì)主要參考資料visual basic程序設(shè)計(jì)教程 第4版龔沛曾 高等教育出版社visual basic程

5、序設(shè)計(jì)實(shí)驗(yàn)指導(dǎo)與測試 第4版龔沛曾 高等教育出版社visual basic從入門到精通 visual basic課程設(shè)計(jì) visual basic開發(fā)實(shí)戰(zhàn)1200例 ， 七、 課程設(shè)計(jì)計(jì)劃安排時(shí) 間任 務(wù)課程設(shè)計(jì)前一周選擇課程設(shè)計(jì)題目，分析課題的要求，確定設(shè)計(jì)方案，完成報(bào)告冊中“課程設(shè)計(jì)概述”課程設(shè)計(jì)第1天按功能模塊編寫詳細(xì)設(shè)計(jì)說明，完成報(bào)告冊中“總體設(shè)計(jì)”課程設(shè)計(jì)第2天編寫程序、調(diào)試程序課程設(shè)計(jì)第3天編寫程序、調(diào)試程序，完成報(bào)告冊中“詳細(xì)設(shè)計(jì)”課程設(shè)計(jì)第4天調(diào)試程序，完成報(bào)告冊中“調(diào)試分析過程”課程設(shè)計(jì)第5天完成報(bào)告冊中“總結(jié)”、“參考文獻(xiàn)”、“課程設(shè)計(jì)評(píng)審表”部分內(nèi)容，提交課程設(shè)計(jì)報(bào)告、源

6、程序、面試或答辯一、課程設(shè)計(jì)概述課程設(shè)計(jì)問題描述本題主要是針對在程序設(shè)計(jì)中對數(shù)值型數(shù)據(jù)進(jìn)行排序的問題，這雖然是最基本的數(shù)據(jù)處理操作，但本題不僅綜合了四種不同的排序算法：比較法、選擇法、直接插入法和冒泡法，也涉及到了一些窗體編輯器，快捷菜單的做法，定時(shí)器的編碼，使得本題更加的復(fù)雜，也增加了本題的理解難度。本程序以動(dòng)畫方式演示上述四種排序算法的排序過程，并可以比較四種算法所需交換數(shù)據(jù)的次數(shù)，從而對四種排序算法有一個(gè)比較直觀的認(rèn)識(shí)，也可以對四種排序算法的排序效率進(jìn)行對比。本程序還可以找出所產(chǎn)生的10個(gè)隨機(jī)數(shù)中的最大值、最小值和平均值。設(shè)計(jì)要求1. 對所選題目方案分析比較，確立方案。2. 用戶界面良好

7、，有較好的輸入輸出能力。3. 編制與調(diào)試程序，初步掌握程序設(shè)計(jì)的方法，能熟練調(diào)試程序。4. 程序運(yùn)行情況正常，程序功能完善，程序結(jié)構(gòu)合理。5. 系統(tǒng)設(shè)計(jì)編程可用，簡練，并有一定的容錯(cuò)能力。6. 在完成基本要求后，最好能有一定的創(chuàng)新。設(shè)計(jì)目的1. 以計(jì)算機(jī)語言程序設(shè)計(jì)（vb）課程為基礎(chǔ)，目的是進(jìn)一步培養(yǎng)學(xué)生綜合應(yīng)用vb的各種編程知識(shí)和技巧進(jìn)行程序設(shè)計(jì)的能力對本學(xué)期vb課程學(xué)習(xí)的一個(gè)總結(jié)，對所學(xué)知識(shí)的鞏固與加深。2. 開發(fā)和挖掘我們的創(chuàng)新和實(shí)踐能力，使我們達(dá)到具備設(shè)計(jì)功能較為復(fù)雜的windows應(yīng)用程序的能力。3. 通過課程設(shè)計(jì)，培養(yǎng)我們自主學(xué)習(xí)和獨(dú)立創(chuàng)新的精神，也是人才培養(yǎng)體系中極為重要的一環(huán)。

8、4. 掌握所學(xué)語言程序設(shè)計(jì)的方法，熟悉所學(xué)語言的開發(fā)環(huán)境及調(diào)試過程，熟悉所學(xué)語言中的數(shù)據(jù)類型，數(shù)據(jù)結(jié)構(gòu)、語句結(jié)構(gòu)、運(yùn)算方法，鞏固和加深對理論課中知識(shí)的理解，提高學(xué)生對所學(xué)知識(shí)的綜合運(yùn)用能力。開發(fā)環(huán)境.操作系統(tǒng)：windows10 sever/xp/professional .處理器：486dx/66 mhz或更高的處理器 .顯示器：vga或更高分辨率的顯示器 .應(yīng)用軟件：visual basic 6.0二、總體設(shè)計(jì)(1)系統(tǒng)功能需求分析1. 程序啟動(dòng)后，顯示圖6.1所示的主界面。首先單擊“產(chǎn)生10個(gè)隨機(jī)數(shù)”按鈕來產(chǎn)生10個(gè)隨機(jī)數(shù)，并顯示在10個(gè)文本框中；然后選擇一種“演示模式”和“排序方式”，

9、其中演示模式可以直接給出排序結(jié)果，也可以通過動(dòng)畫動(dòng)態(tài)演示整個(gè)排序過程，排序方式可以按從小到大順序，也可以按從大到小順序排序。圖6.1 啟動(dòng)后的主界面2. 在主窗口的空白區(qū)單擊鼠標(biāo)右鍵，彈出如圖6.2所示的快捷菜單。從中選擇“排序算法”命令，打開圖6.3所示的對話框，從中選擇一種排序方式，單擊不同排序方式時(shí)，“算法描述”中簡要介紹了這種算法。單擊“確定”按鈕返回到主窗口，主窗口中最上方框架控件的標(biāo)題文字顯示當(dāng)前所選的排序算法。圖6.2 快捷菜單圖6.3 “排序算法選擇”對話框 快捷菜單中有一“從文件讀取數(shù)據(jù)”命令，使用此命令可以從當(dāng)前目錄的data.txt文件中讀入10個(gè)數(shù)。要使用這個(gè)命令，必須

10、事先建立這個(gè)文本文件。3. 設(shè)置完畢，單擊“開始排序”按鈕(此按鈕在生成數(shù)據(jù)之前是不可用的)啟動(dòng)排序過程。若選擇了動(dòng)畫方式(見圖6.4)，紅色背景的文本框表示當(dāng)前正在比較的元素，黃色的代表己排序的元素，兩個(gè)運(yùn)動(dòng)的文本框表示交換過程。在排序過程中可以調(diào)節(jié)水平滾動(dòng)條來控制演示的速度。排序結(jié)束后程序以消息框的形式報(bào)告數(shù)據(jù)交換的次數(shù)(如圖6.5)?？梢允褂每旖莶藛沃械摹皩?shù)據(jù)寫入文件”命令將排序后的數(shù)據(jù)保存到“data.txt”中覆蓋原有內(nèi)容。圖6.4 程序主界面 4. 選擇窗口主菜單中的“顏色設(shè)置”命令，主窗口擴(kuò)大，底部顯示“顏色設(shè)置”框架(如圖6.6所示)，可以對“文本背景色”、“文本前景色”、“

11、已排序元素色”和“交換結(jié)點(diǎn)色”進(jìn)行設(shè)置。再選擇此命令，窗口恢復(fù)到原來大小。 圖6.5 顯示交換次數(shù) 圖6.6系統(tǒng)主菜單 圖6.7確認(rèn)退出對話顏色設(shè)置5. 選擇“退出”命令可退出本程序，程序顯示圖6.7所示的對話框予以確認(rèn)。二、總體設(shè)計(jì)(2)系統(tǒng)總體設(shè)計(jì)框架1. 基本窗體控件設(shè)計(jì)2. 菜單編輯器-快捷菜單的彈出3. 定時(shí)器的編碼4. 窗體編輯器-多重窗體1. 四種排序方法（比較法、選擇法，直接插入法和冒泡法）2. 最大值，最小值，平均值的計(jì)算3. 動(dòng)畫演示4. 對話框彈出編寫代碼窗體設(shè)計(jì)排 序 演 示三、詳細(xì)設(shè)計(jì)主要功能模塊源程序1. 窗體設(shè)計(jì)1四個(gè)frame 控件-第一個(gè)frame 控件包含此

12、問題的基本運(yùn)算的也是時(shí)刻會(huì)發(fā)生變化的控件。 第二個(gè)和第三個(gè) frame 控件主要是對此程序運(yùn)行方式的選擇。 第四個(gè)frame 控件實(shí)質(zhì)是菜單項(xiàng)中 “顏色設(shè)置”單機(jī)事件的結(jié)果，是對第一個(gè)frame中控件運(yùn)行時(shí)的顏色設(shè)置。2 .1個(gè)文本框數(shù)組-包括10個(gè)隨機(jī)數(shù)文本框和兩個(gè)交換時(shí)運(yùn)動(dòng)著的文本框3. 菜單設(shè)計(jì)-下拉式菜單分為兩部分，每部分功能不同。 彈出式菜單分為三部分，第一部分的單機(jī)事件會(huì)出現(xiàn)一個(gè)新的form窗體。三、詳細(xì)設(shè)計(jì)主要功能模塊源程序4 .一個(gè)水平滾動(dòng)條-對frame中控件運(yùn)動(dòng)時(shí)的速度調(diào)控。5 五個(gè)command按鈕-“產(chǎn)生十個(gè)隨機(jī)數(shù)” 命令按鈕1（0）單擊事件會(huì)在前十個(gè)文本框中產(chǎn)生十個(gè)隨

13、機(jī)數(shù) “開始排序”命令按鈕1（2）在第二個(gè)和第三個(gè) frame 中控件都被選擇后才會(huì)有效，然后對十個(gè)隨機(jī)數(shù)進(jìn)行不同方式的排序。 “ 默認(rèn)值”命令按鈕2是對文本框數(shù)組顏色設(shè)置的默認(rèn)按鈕。 “停止”命令按鈕1（2）在 情況下才有效。 “退出”命令按鈕3是用來結(jié)束該程序的運(yùn)行。6 一個(gè)timer控件-對此程序運(yùn)行時(shí)的時(shí)間間隔控制。7 一個(gè)combo數(shù)組-包括四個(gè)combo控件 color1(0)文本背景色 color1(1)文本前景色 color1(2)已排序元素色 color1(3)交換元素色2. 代碼設(shè)計(jì)1. 變量聲明option explicitoption base 1 dim a(10)

14、as integer 隨機(jī)數(shù)數(shù)組dim first as integerdim second as integerprivate mblnmoving as booleandim speed as integerdim incolor1 as long 文本背景色dim incolor2 as long 文本前景色dim incolor3 as long 已排序元素色dim incolor4 as long 交換元素色dim innum as long 交換次數(shù)public insortmethod as integer 排序算法0-比較法，1-選擇法 2-直接插入法，3-冒泡法private

15、 insortorder as integer 排序方向 0-升序 1-降序private inshowmode as integer 演示模式，0-直接求解，1-動(dòng)態(tài)演示21 command1（0） -產(chǎn)生十個(gè)隨機(jī)數(shù) private sub command1（0）_click() randomize for i = 1 to 10 a(i) = int(rnd * 201) - 100 text1(i).text = a(i) text1(i).backcolor=incolor1 text1(i).forecolor = incolor2 next i command1.enabled =

16、 trueframe2 frame3中option的選擇直接關(guān)系到隨機(jī)數(shù)的排序方式2 command1（1）-開始排序 private sub option1_click(index as integer) intshowmode = indexend subprivate sub option2_click(index as integer) intsortorder = indexend sub當(dāng)排序結(jié)束后，會(huì)彈出如下一個(gè)對話框。response = msgbox(比較法排序完畢，交換次數(shù)為： + str(num), vbokonly, 系統(tǒng)提示)代碼為： 3 command1（2）- 停

17、止程序的運(yùn)行 private sub command3_click() if command3.caption = 停止 then timer1.enabled = false command3.caption = 繼續(xù) elseif command3.caption = 繼續(xù) then timer1.enabled = truecommand3.caption = 停止 end if end ifend sub 4 command2 -默認(rèn)顏色的按鈕private sub command2_click() color1(0).listindex = 0 incolor1 = vbgreen

18、文本背景色 color1(1).listindex = 1 incolor2 = vbblack 文本前景色 color1(2).listindex = 2 incolor3 = vbyellow 已排序元素色 color1(3).listindex = 3 incolor4 = vbred 交換元素色5 command3-退出按鈕bo數(shù)組 名稱分別為 color1(0)文本背景色 color1(1)文本前景色 color1(2)已排序元素色 color1(3)交換元素色 每個(gè)combo又有不同的list，都為黑色，綠色，藍(lán)色，青色，紅色，黃色紫色分布。 用index區(qū)分 private su

19、b color1_click(index as integer) dim i as integer select case index case 0 color1(0)文本背景色 select case color1(0).listindex combo1(0)的list屬性，用index區(qū)分背景顏色。 case 0 incolor1 = vbgreen case 1 incolor1 = vbblue case 2 incolor41= vbred case 3 incolor41= vbyellow end select for i = 1 to 10 text1(i).backcolor

20、 = incolor1 next i end select for i = 1 to 10 text1(i).backcolor = intcolor1 next i case 1 color1(1)文本前景色 select case color1(1).listindexcombo1(1)的list屬性，用index區(qū)分前景顏色。 case 0 incolor4 = vbgreen case 1 incolor4 = vbblue case 2 incolor4 = vbred case 3 incolor4 = vbyellow end select for i = 1 to 10 tex

21、t1(i).forecolor = incolor2 next i end select for i = 1 to 10 text1(i).forecolor = intcolor2 next icombo1(2)的list屬性，用index區(qū)分已排序元素色。 case 2 select case color1(2).listindex case 0 incolor4 = vbgreen case 1 incolor4 = vbblue case 2 incolor4 = vbred case 3 incolor4 = vbyellow end select for i = 1 to 10 t

22、ext1(i).forecolor = incolor2 next i end select case 3 處理正在交換的結(jié)點(diǎn)的背景色 select case color1(3).listindex case 0combo1(3)的list屬性，用index區(qū)分交換元素色。 incolor4 = vbgreen case 1 incolor4 = vbblue case 2 incolor4 = vbred case 3 incolor4 = vbyellow end select for i = 1 to 10 text1(i).forecolor = incolor2 next i end

23、 selectend sub4.開始排序 private sub command1（1）_click() dim min as integer, max as integer, s as single min = 1000: max = -1000: s = 0 for i = 1 to 10 if e(i) max then max = e(i) if e(i) min then min = e(i) s = s + e(i) next i text4.text = max 最大值 text5.text = min 最小值 text6.text = s / 10 平均值 command3.e

24、nabled = true select case intsortmethod case 0 比較法 comparation_sort e(), intsortorder case 1 選擇法 selection_sort e(), intsortorder case 2 直接插入法 insertion_sort e(), intsortorder case 3 冒泡法 bubble_sort e(), intsortorder end selectprivate sub command1（2）_click() exit_click end sub5彈出菜單 private sub form_

25、mouseup(button as integer, shift as integer, x as single, y as single) if button = 2 then popupmenu menu2 end ifend sub6.下拉式菜單 private sub color_click() form1.height = form1.height + 2000 frame3.visible = true color.checked = true end sub private sub exit_click() dim i as integer i = msgbox(您真的要退出嗎？

26、, vbyesno + vbquestion + vbdefaultbutton2, 請您確認(rèn)！) if i = vbyes then end end ifend sub8. 彈出菜單中排序算法 - 四種同時(shí)出現(xiàn)新窗體 2個(gè)frame控件-一個(gè)包含了一個(gè)option數(shù)組，是對排序方式的選擇 另一個(gè)包含了一個(gè)text控件，是對選中的option的解釋 1個(gè)command按鈕，是和form1的銜接，決定了form1中十個(gè)隨機(jī)數(shù)的排序方式四、調(diào)試分析過程(1)調(diào)試過程出現(xiàn)的問題及解決方法1.在程序一運(yùn)行時(shí)，沒有對speed進(jìn)行初定量，在程序運(yùn)行后，動(dòng)態(tài)演示時(shí)，負(fù)責(zé)顯示交換元素的兩個(gè)文本框不運(yùn)動(dòng)，也沒

27、有排序的作用。 解決：在form1的load事件中增加了 speed = 100 語句。2下拉式菜單與快捷菜單分離不開 導(dǎo)致快捷菜單不出現(xiàn) 下拉式菜單又出現(xiàn)太多選項(xiàng) 解決：增加第二個(gè)主菜單“彈出式菜單”，且不可見。3.快捷菜單無法彈出，且無法聯(lián)系到窗體。彈出菜單要用popupmenu方法 在單擊“排序算法”時(shí)，出現(xiàn) form2.show 語句，聯(lián)系到form14.對四種排序方法的編程混淆不清在網(wǎng)絡(luò)上查找資料，先了解四種排序方法的特點(diǎn)和區(qū)別。用簡單的語句解釋理解，然后隨機(jī)列舉幾個(gè)數(shù)字，用排序方法依次排大小，總結(jié)規(guī)律。寫出排序方法的代碼。5. 動(dòng)態(tài)演示如何演變用timer事件進(jìn)行編程。四、調(diào)試分析

28、過程(2)測試數(shù)據(jù)及測試結(jié)果程序運(yùn)行后，單擊下拉式菜單，對顏色進(jìn)行設(shè)置，單擊“產(chǎn)生十個(gè)隨機(jī)數(shù)”，可以看到隨機(jī)數(shù)所在文本框的背景色和前景色發(fā)生改變，然后對演示模式和排序方式進(jìn)行選擇1.當(dāng)選擇靜態(tài)演示時(shí)，會(huì)彈出如下對話框。單擊確定后，發(fā)現(xiàn)排序和最值，平均值的運(yùn)算已完成。 2.當(dāng)動(dòng)態(tài)演示時(shí)，正在排序元素和已排序元素文本背景色發(fā)生變化，且兩個(gè)變化文本框會(huì)運(yùn)動(dòng)，在排序結(jié)束后，也會(huì)出現(xiàn)系統(tǒng)提示的對話框。還可以通過對水平滾動(dòng)條設(shè)置來調(diào)整交換速度單擊右鍵會(huì)彈出快捷菜單 單擊“停止”按鈕時(shí)，排序運(yùn)動(dòng)會(huì)暫停，再次單擊時(shí)又會(huì)重新啟動(dòng)。 單擊“退出按鈕時(shí)”，會(huì)出現(xiàn)對話框2. 第二個(gè)窗體的選擇也關(guān)系到第一個(gè)窗體的運(yùn)行option的選擇不同，窗體一中的排序方法也不同。五、總結(jié)設(shè)計(jì)用到的知識(shí)點(diǎn) 1 多窗體的設(shè)計(jì)與銜接 2 四種排序