1、3.3 在數(shù)組中查找數(shù)據(jù) 順序查找,睢寧縣李集中學(xué) 姚麗娟, 復(fù)習(xí)數(shù)組用法,練習(xí)1：在VB中編寫(xiě)程序，即定義一個(gè)數(shù)組(數(shù)組下界為1)，數(shù)組的元素通過(guò)文本框控件數(shù)組中輸入共10個(gè)元素給它賦值，單擊命令按鈕Command1后在窗體上顯示出數(shù)組的各個(gè)元素。（界面可參考圖1） （1）自主復(fù)習(xí)數(shù)組。分析需要哪些控件,參考對(duì)象屬性設(shè)置表格。 （2）上機(jī)實(shí)踐。,舊知回顧,對(duì)象的屬性設(shè)置, 順序查找,輸入查找的元素值key=32,此時(shí)a(i)=key,數(shù)組中的第3個(gè)位置,如果輸入查找的元素值key=22,此時(shí)i等于5,超過(guò)數(shù)組中元素個(gè)數(shù),找不到,從數(shù)組a的第1個(gè)元素a(1)開(kāi)始，依次判斷各元素的值是否與查找鍵

2、key的值相等。,自主先學(xué),順序查找的基本思想 是從第一個(gè)數(shù)據(jù)開(kāi)始，按數(shù)據(jù)的順序逐個(gè)將數(shù)據(jù)與給定的關(guān)鍵值進(jìn)行比較。若某個(gè)數(shù)據(jù)和給定的關(guān)鍵值相匹配（即相等），則查找成功，找到所查數(shù)據(jù)的位置；如果所有數(shù)據(jù)與關(guān)鍵值都不匹配，則表示被查數(shù)據(jù)中不存在該關(guān)鍵值，查找失敗。, 順序查找,自主先學(xué),順序查找的流程圖,自主先學(xué), 在數(shù)組中查找出一個(gè)元素,小組討論、合作交流,例1：查找數(shù)組元素中為50的元素，并在標(biāo)簽Label1上輸出找到的元素值和Label2上顯示元素位置（即找到則輸出a(i)和i；找不到則在Label1上顯示“找不到”）。（界面可參考圖2 ） （1）本題中查找的關(guān)鍵值是 50 （2）畫(huà)出流程圖

3、 （3）小組合作根據(jù)流程圖寫(xiě)出偽代碼，分析需要補(bǔ)充或修改哪些控件，填寫(xiě)對(duì)象屬性設(shè)置表格。 （4）小組根據(jù)偽代碼及控件、變量的設(shè)計(jì)，編寫(xiě)程序（在練習(xí)1代碼基礎(chǔ)上進(jìn)行修改）,添加代碼,For i = 1 To 10 If a(i) = 50 Then Label1.Caption = a(i) Label2.Caption =“在數(shù)組的 ” + Str(i) + “ 位置中” Exit For End If Next If i = 11 Then Label1.Caption = “在數(shù)組中沒(méi)有找到” + Str(Key) End If,小組討論、交流展示, 在數(shù)組中查找出多個(gè)元素,例2：查找數(shù)組

4、元素中所有大于50的元素，并在標(biāo)簽控件Label1上輸出元素值和Label2上顯示元素位置（即找到則輸出a(i)和i）（界面可參考圖2 ） （1）本題中關(guān)鍵值是 a(i)50 （2）與上一個(gè)任務(wù)相比，查找元素的方法是一樣的，不同的是必須從頭順查到結(jié)束位置，并輸出每一次查找的結(jié)果。怎樣解決？,小組討論、合作交流,代碼,For i = 1 To 10 If a(i) 50 Then Label1.Caption = Label1.Caption+Str(a(i) Label2.Caption =Label2.Caption+ Str(i) End If Next If i = 11 Then Label1.Caption = “在數(shù)組中沒(méi)有找到” + Str(Key) End If,小組討論、交流展示,用順序查找算法解決實(shí)際問(wèn)題,十一期間，學(xué)校組織國(guó)慶詩(shī)歌朗誦比賽，遇到一個(gè)麻煩的計(jì)分問(wèn)題：輸入選手號(hào)和十名評(píng)委的評(píng)分，去掉一個(gè)最高分和一個(gè)最低分，求出選手的最后平均得分，輸出結(jié)果。請(qǐng)大家利用今天所學(xué)的順序查找算法知識(shí)編一個(gè)小程序，幫老師迅速算出選手最終得分。界面可參考圖3,拓展延伸,