(vb課程設計)模擬查找過程

1、模擬查找過程課程設計報告（VB編號：16 模擬查找過程設計報告 學院材料學院班級 材料074 學號 072017姓名 韓世超成績 、設計思路 1. 要達到的目的 （1）基本目的： 能夠完成一批數(shù)據(jù)的輸入并顯示，使用Label控件數(shù)組顯示。 對線性查找和折半查找兩種算法過程進行模擬。 使用Label控件設置查找過程的指針，線性查找只需1個指針，而折半查找需要 3個，在模擬查找 的過程中，要求指針動態(tài)改變位置，需要用到Timer控件，時間間隔為1秒。 除了使用Option控件進行查找方法的選擇，還可以使用菜單項進行選擇。 查找結(jié)果的查詢要求使用菜單命令調(diào)用另一窗體來實現(xiàn)。 查找結(jié)果的顯示可以將找到

2、的數(shù)據(jù)用特殊的顏色標識出來。 （2）創(chuàng)新目的： 如果輸入的目標數(shù)據(jù)不是數(shù)字，可以檢測并使輸入框獲得焦點。 如果沒有找到數(shù)據(jù)，在查找結(jié)果的窗體中作相應的提示。 檢測輸入的數(shù)據(jù)，如果不正確那么提示再次輸入。 折半查找中批數(shù)據(jù)必須是有序的，可以對輸入的數(shù)據(jù)進行驗證，如果順序不對，要重新輸入。 折半查找中如果批數(shù)據(jù)中有重復數(shù)據(jù)，可以找到并標出重復數(shù)據(jù)及位置。如 1 23 45556 78 9 2關(guān)鍵問題的解決 1、在Formoad事件中，讓數(shù)字指針不可見。 2、 在批數(shù)據(jù)的輸入中，用INPUTBOX函數(shù)進行輸入，并顯示到標簽控件數(shù)組上。 3、 將批數(shù)據(jù)的背景顏色設置為最開始的顏色。如果選擇的是線性查找

3、，則使1個Label控件指針可見， 否則應使3個Label控件指針可見，并根據(jù) 查找方法指向相應的初始位置。然后啟動Timer1控件。 (1) 折半查找時指針初始位置如下，由于高度是固定不變的，這里不用考慮。 lb_pter0.Left = Label1(nMin).Left + Label1(nMin).Width / 2 - lb_pter0.Width / 2 Ib_pter1 .Left = Label1( nH alf).Left + Label1( nH alf).Width / 2 - lb_pter0.Width / 2 lb_pter2.Left = Label1( nM a

4、x).Left + Label1( nM ax).Width / 2 - lb_pter0.Width / 2 (2) 線性查找時的指針位置設置如下： lb_pter0.Left = Label1( nln dex).Left + Label1( nln dex).Width / 2 - lb_pter0.Width / 2 、模塊之間的調(diào)用關(guān)系，或程序流程圖 三、部分程序關(guān)鍵源代碼及注釋 Private Sub tmer_half_Timer() 折半查找過程 lb_pter0.Left = Label1(nMin).Left + Label1(nMin).Width / 2 - lb_pt

5、erO.Width / 2 lb_pter1. Left = Label1( nH alf).Left + Label1( nH alf).Width / 2 - lb_pterO.Width / 2 lb_pter2.Left = Label1( nM ax).Left + Label1( nM ax).Width / 2 - lb_pterO.Width / 2 If n lsOrdered( nNum, n Total_Num) = ORDER_UP Then If nNum(nMin) = n Target The n 按升序排列時的查找 檢驗最小值是否為目標值 Form2.txt_r

6、esult.Text = Form2.txt_result.Text + & 位置& vbCrLf 查找到目標數(shù)字” & nTarget & ”位于第 & n Min + 1 Label1(nMin).BackColor = RGB(0, 255, 0) bHasF ound = True End If If nNum(nM ax) = n Target Then 檢驗最大值是否是目標值 Form2.txt_result.Text = Form2.txt_result.Text + & 位置& vbCrLf 查找到目標數(shù)字& nTarget & 位于第 & nMax + 1 Label1( n

7、M ax).BackColor = RGB(0, 255, 0) bHasF ound = True End If If nNum(nH alf) = n Target The n 檢驗中間值是否是目標值 Form2.txt_result.Text = Form2.txt_result.Text + 查找到目標數(shù)字 ” & nTarget & ” 位于第 ” & nHalf + 1 & 位置& vbCrLf Label1(nHalf).BackColor = RGB(O, 255, 0) nMax = nMax -1可以實現(xiàn)重復數(shù)據(jù)的查找 nH alf = (nMin + nM ax) / 2

8、 bHasF ound = True ElseIf nNum(n Half) n Target The n nM ax = nHalf nH alf = (nMin + nM ax) / 2 End If If nM ax - nMin = 1 The n cmd_search.E nabled = True tmer_half.E nabled = False If bHasF ound = False Then Form2.txt_result.Text = Form2.txt_result.Text + 沒有查找到目標數(shù)字 ” End If End If End If End Sub 線

9、性查找 Private Sub tmer_li ne_Timer() lb_pter0.Left = Label1( nln dex).Left + Label1( nln dex).Width / 2 - lb_pterO.Width / 2 查找到目標數(shù)字 If nNum(nln dex) = n Target Then bHasF ound = True Label1( nln dex).BackColor = RGB(0, 255, 0) Form2.txt_result.Text = Form2.txt_result.Text + 查找到目標數(shù)字 ” & nTarget & ” 位于

10、第 ” & nlndex + 1 & ” 位置 ” & vbCrLf End If nln dex = nln dex + 1 未查到目標數(shù)字的處理 If nlndex nTotal Num Then nln dex = 0 tmer_li ne.E nabled = False If bHasF ound = False Then Form2.txt_result.Text =沒有找到目標數(shù)字” End If cmd_search.E nabled = True End If End Sub 四、設計方案的完善及目前存在的問題 1. 設計方案要完善的地方 折半查找時，如果輸入了無序數(shù)據(jù)則要求重新輸入，輸入量較大。如果編輯程序使其實現(xiàn)自動排序?qū)?使程序更加合理。 2. 目前存在的問題 折半查找時，由于時鐘控件的作用，查找結(jié)果可能會在窗體中重復顯示。 五、本次設計的收獲及心得體會 通過本次VB課程設計，我不但在程序閱讀和編輯方面得到很大的提高，而且他還增加了我對于計算機 軟件的興趣，為我打開了通往精彩的“程序”世界的大門。程序的成功運行需要無數(shù)次的調(diào)試，這個過程需 要的是耐心與細心的品質(zhì)，VB課程設計再次告訴我，要有耐心與細心才能攻克我們面前的難關(guān)，不論是課 程中的還是生活中的。 六、對該題目和VB設計的意見和建