1、第五章,數(shù)組,教學(xué)目標(biāo),掌握數(shù)組的基本概念和運(yùn)用，包括數(shù)組的定義、數(shù),組的輸入、數(shù)組數(shù)據(jù)的統(tǒng)計(jì)、排序等,掌握列表框、組合列表框的使用,數(shù)組,數(shù)組,相同類型變量的集合,數(shù)組,A1,A2,Ai A(1,A(2,A(i,數(shù)組聲明,Dim,數(shù)組名,下標(biāo),As,數(shù)據(jù)類型,例,Dim A(10) As Integer,數(shù)組元素,數(shù)組元素的形式為：數(shù)組名,下標(biāo),1,例,A(0,A(1,一維數(shù)組,Dim,數(shù)組名,下標(biāo)上界,As,類型,注,下標(biāo)上界：可以是常數(shù)，或有了值的變量,下標(biāo)下界,0,一維數(shù)組的大?。合聵?biāo)上界,1,As,類型：如果默認(rèn)，是,Object,類型,例如,Dim A(10) As Integer

2、,或,Dim A(0 To 10) As Integer,注：在,VB.NET2005,中,一維數(shù)組,11,個(gè)元素，下標(biāo)的范圍,010,使用,A(0),A(1),A(2),(10,表示數(shù)組元素,多維數(shù)組,Dim,數(shù)組名,下標(biāo),1,上界,下標(biāo),2,上界,As,類型,注,下標(biāo)個(gè)數(shù)：決定了數(shù)組的維數(shù)，最多允許有,32,維,數(shù)組大?。焊骶S大小的乘積,Dim B(2,3) As Single,二維數(shù)組,12,個(gè)元素,2+1)*(3+1)=12,數(shù)組元素為,B(0,0,B(0,1,B(0.2,B(0,3,B(1,0,B(1,1,B(1,2,B(1,3,B(2,0,B(2,1,B(2,2,B(2,3,數(shù)組的

3、初始化,Dim,數(shù)組名,) As,類型,常數(shù),1,常數(shù),2,常數(shù),n,例如,Dim B() As Integer = 12, 42, 31, 43, 65,B(0)=12,B(1)=42,B(2)=31,B(3)=43,B(4)=65,編程時(shí)可以使用,UBound,函數(shù)確定其下標(biāo)上界，其,形式為,UBound,數(shù)組名,第,n,維數(shù),例如：顯示上面聲明的,B,數(shù)組的值,For i = 0 To UBound(B,Label1.Text &= B(i) & vbCrLf,Next,重定義數(shù)組大小,ReDim,數(shù)組名,下標(biāo)上界,例,Dim St(10) As Single,Sub Form1_Loa

4、d() Handles MyBase.Load,ReDim St(20,End Sub,注,Dim,是說(shuō)明語(yǔ)句，可出現(xiàn)在程序的任何地方,ReDim,是執(zhí)行語(yǔ)句，只能出現(xiàn)在過(guò)程中,ReDim,只能改變數(shù)組大小，不能改變維數(shù)和數(shù)據(jù)類型,使用,ReDim,語(yǔ)句，原來(lái)數(shù)組中的值丟失,數(shù)組的基本操作,定義數(shù)組,Dim A(9) As Integer,隨機(jī)產(chǎn)生,10,個(gè),1099,的整數(shù)放入數(shù)組，并在文本框,TextBox1,中顯示數(shù)組各元素的值,Dim i As Integer,Randomize(,For i = 0 To 9,A(i) = Int(Rnd() * 90 + 10,TextBox1.T

5、ext &= A(i) & Space(2,Next,數(shù)組的基本操作,求總計(jì)值、平均值、最大值、最小值,Dim sum, max, min As Single,max = A(0) : min = A(0) : sum = A(0,For i = 1 To 9,If A(i) max Then max = A(i,If A(i) min Then min = A(i,sum += A(i,Next,TextBox1.Text &=,總計(jì)值, sum & vbCrLf,TextBox1.Text ,平均值, sum / 10 & vbCrLf,TextBox1.Text ,最大值, max &

6、vbCrLf,TextBox1.Text ,最小值, min,練習(xí)一,定義數(shù)組,A(9,整型,統(tǒng)計(jì)”按鈕：隨機(jī)產(chǎn),生,10,個(gè),1099,的整數(shù)放,入數(shù)組,A,中，在文本框,TextBox1,中顯示數(shù)組各,元素的值；并求其總計(jì),值、平均值、最大值,最小值，在文本框,TextBox1,內(nèi)顯示,數(shù)組的排序,選擇法,基本思路：每一輪在若干個(gè)無(wú)序數(shù)中找最小數(shù)（按,遞增排序），并放在無(wú)序數(shù)中第,1,個(gè)位子，有,n,個(gè),數(shù)則進(jìn)行,n-1,輪上述操作,排序方法,以一個(gè)元素為基準(zhǔn)，比如以,A(0,為基準(zhǔn),接下來(lái)從,A(0,A(5,中找出最小的元素，將其與,A(0,交換,然后將基準(zhǔn)位置右移一位，重復(fù)上面的動(dòng)作，

7、比如,以,A(1,為基準(zhǔn)，找出,A(1)A(5,中最小的，將其與,A(1,交換,依次類推,數(shù)組的排序,選擇法,For i = 0 To 4,k = i k,是最小值的元素下標(biāo),For j = i + 1 To 5,If A,j) A(k) Then k = j,Next j,t = A(i,A(i) = A(k,數(shù)組,A(0)A(1)A(2)A(3)A(4)A(5,A(k) = t,原始數(shù)據(jù),8 6 9 3 2 7,第,1,輪比較,2,6 9 3,8,7,Next i,第,2,輪比較,2,3,9,6,8 7,第,3,輪比較,2 3,6,9,8 7,數(shù)組排序,冒泡法,對(duì)未排序的各元素從頭到尾依次

8、比較相鄰的兩個(gè)元素是,否逆序（與欲排順序相反,若逆序就交換這兩元素，經(jīng)過(guò)第一輪比較排序后便可把,最大（或最?。┑脑嘏藕?然后再用同樣的方法把剩下的元素逐個(gè)進(jìn)行比較，就得,到了所要的順序,如果有,n,個(gè)元素，一共要進(jìn)行,n-1,輪比較，第,i,輪要,進(jìn)行,n-i,次比較,如：有,6,個(gè)元素，則要進(jìn)行,6-1,輪比較。第,3,輪則要進(jìn)行,6-3,次比較,數(shù)組排序,冒泡法,For i = 1 To 5,For j = 0 To 5 - i,If A,j) A,j + 1) Then,t = A,j,A,j) = A,j + 1,A,j + 1) = t,數(shù)組,A(0)A(1)A(2)A(3)A(4

9、)A(5,End If,原始數(shù)據(jù),8 6 9 3 2 7,Next j,第,1,輪比較,6 8 3 2 7 9,第,2,輪比較,6 3 2 7 8 9,Next i,第,3,輪比較,3 2 6 7 8 9,練習(xí)二,排序”按鈕：對(duì)數(shù)組,A,進(jìn)行按升序排列，并在標(biāo),簽,Label1,內(nèi)顯示排序結(jié)果,列表框、組合列表框,列表框,ListBox,顯示多個(gè)項(xiàng)目的列表，供用戶選擇,運(yùn)行中不能直接修改其中內(nèi)容,組合列表框,ComboBox,文本框與列表框的組合,組合列表框式樣,DropDownStyle,簡(jiǎn)單組合框,Simple,固定大小,下拉式組合框,DropDown,下拉,下拉式列表框,DropDown

10、List,只能選擇，不能輸入,列表框、組合列表框的主要屬性,Items,項(xiàng)目值的集合，可以在設(shè)計(jì)狀態(tài)時(shí)設(shè)置,SelectedIndex,選項(xiàng)的序號(hào)，只能在程序中設(shè)置或引用，從,0,開(kāi)始,Text,選項(xiàng)的文本，只能在程序中引用,列表框、組合列表框,列表框、組合列表框常用方法,對(duì)象,Items.Add,項(xiàng)目字符串,對(duì)象,Items.Remove,項(xiàng)目字符串,對(duì)象,Items.RemoveAt,索引值,對(duì)象,Items.Clear,主要事件,Click,SelectedIndexChanged,TextChanged,組合列表框,練習(xí)三,窗體加載時(shí)，將系統(tǒng)支持的屏幕字體添加到列表框,ListBox1

11、,中；將,8,12,16,20,48,添加到組合,列表框,ComboBox1,中,Dim i As Integer,For i = 0 To FontFamily.Families.Length - 1,ListBox1.Items.Add(FontFamily.Families(i).Name,Next,For i = 8 To 48 Step 4,ComboBox1.Items.Add(i,Next,ComboBox1.SelectedIndex = 0,練習(xí)四,通過(guò)列表框設(shè)置文本框中字體的名稱,TextBox1.Font = New Font(ListBox1.Text,TextBox1.Font.Size,通過(guò)組合列表框設(shè)置文本框中字體的大小,Dim s As Single,s = Val(ComboBox1.Text,If s 8 Then s = 8,TextBox1.Font = New Font(TextBox1.Font.Name, s,作業(yè),打開(kāi),Unit7.sln,文件，在窗體標(biāo)題處輸入你的學(xué)號(hào),定義數(shù)組,A(9,整型,統(tǒng)計(jì)”按鈕：隨機(jī)產(chǎn)生,10,個(gè),1099,的整數(shù)放入數(shù)組,A,中,在文本框,TextBox1,中顯示數(shù)組各元素