1、VisualBasic.Net程序設(shè)計(jì),華中農(nóng)業(yè)大學(xué)理學(xué)院計(jì)算機(jī)系 別麗華,華中農(nóng)業(yè)大學(xué)理學(xué)院計(jì)算機(jī)系 別麗華,2008 年 4 月,第14講 數(shù)組排序,14.1選擇排序法,14.2冒泡排序法,14.3結(jié)構(gòu)類型,14.4綜合應(yīng)用,華中農(nóng)業(yè)大學(xué)理學(xué)院計(jì)算機(jī)系 別麗華,2008 年 4 月,引 例,例14-0 對添加的學(xué)生信息按年齡進(jìn)行排序顯示。,華中農(nóng)業(yè)大學(xué)理學(xué)院計(jì)算機(jī)系 別麗華,2008 年 4 月,常用的排序算法有 選擇法 冒泡法 插入法 合并排序,本章目錄,14.1 排序,華中農(nóng)業(yè)大學(xué)理學(xué)院計(jì)算機(jī)系 別麗華,2008 年 4 月,選擇法演示,本章目錄,14.1.1 選擇法排序,一、選擇法排

2、序 基本思想： 每次在若干個(gè)無序數(shù)中找最小(大)數(shù)，并放在相應(yīng)的位置。,華中農(nóng)業(yè)大學(xué)理學(xué)院計(jì)算機(jī)系 別麗華,2008 年 4 月,例14-1 對數(shù)組中的6個(gè)數(shù)，用選擇法按遞增順序排序。,14.1.1 選擇法排序,華中農(nóng)業(yè)大學(xué)理學(xué)院計(jì)算機(jī)系 別麗華,2008 年 4 月,二、冒泡法排序基本思想： 兩兩比較，交換,冒泡法演示,本章目錄,14.1.2 冒泡法排序,華中農(nóng)業(yè)大學(xué)理學(xué)院計(jì)算機(jī)系 別麗華,2008 年 4 月,例14-2 對數(shù)組中的6個(gè)數(shù)，用冒泡法按遞增順序排序。,14.1.2 冒泡法排序,華中農(nóng)業(yè)大學(xué)理學(xué)院計(jì)算機(jī)系 別麗華,2008 年 4 月,數(shù)組的常用方法,1. Sort 2. Fi

3、lter 3. CopyTo 4. GgtLength 5. Rank 6. Clear,14.2 數(shù)組的常用方法,華中農(nóng)業(yè)大學(xué)理學(xué)院計(jì)算機(jī)系 別麗華,2008 年 4 月,14.3 結(jié)構(gòu)類型,1.結(jié)構(gòu)類型的定義： Structure 類型名 成員聲明 End Structure,本章目錄,例如，定義一個(gè)有關(guān)學(xué)生信息(姓名、性別、年齡、電話)的結(jié)構(gòu)類型：,華中農(nóng)業(yè)大學(xué)理學(xué)院計(jì)算機(jī)系 別麗華,2008 年 4 月,2.結(jié)構(gòu)變量的聲明,Dim 變量名 As 結(jié)構(gòu)類型名,本章目錄,14.3 結(jié)構(gòu)類型,例如： Dim Student ，MyStud As StudType,華中農(nóng)業(yè)大學(xué)理學(xué)院計(jì)算機(jī)系

4、別麗華,2008 年 4 月,3. 結(jié)構(gòu)變量成員的引用,結(jié)構(gòu)類型變量名.成員名,本章目錄,14.3 結(jié)構(gòu)類型,例如: Student.Name With student .Name = 張華 .Sex = 男 .School=同濟(jì)大學(xué)“ End With,華中農(nóng)業(yè)大學(xué)理學(xué)院計(jì)算機(jī)系 別麗華,2008 年 4 月,例14-3 利用結(jié)構(gòu)類型，聲明一個(gè)結(jié)構(gòu)數(shù)組，輸入不超過100個(gè)個(gè)學(xué)生的信息，顯示全部信息和查詢某學(xué)校的學(xué)生情況。,14.3 結(jié)構(gòu)類型,4. 結(jié)構(gòu)變量的應(yīng)用,華中農(nóng)業(yè)大學(xué)理學(xué)院計(jì)算機(jī)系 別麗華,2008 年 4 月,例14-4 輸入一串字符，統(tǒng)計(jì)各字母出現(xiàn)的次數(shù),14.3 結(jié)構(gòu)類型,華中農(nóng)業(yè)大學(xué)理學(xué)院計(jì)算機(jī)系 別麗華,2008 年 4 月,某公司基本資料 Dim Place() as string =臺北,臺中,臺南,高雄,花蓮 Dim Money() as integer=300000,250000,3200,000 Dim serve() as string=旅游，通訊，出版，廣告 Dim company(2) as object Company(0)=place Company(1)=Money Company(2)=serve,14.4 對象數(shù)組,華中農(nóng)