VisualBasicNet程序设计教学课件Unit7

1、第五章,数组,教学目标,掌握数组的基本概念和运用，包括数组的定义、数,组的输入、数组数据的统计、排序等,掌握列表框、组合列表框的使用,数组,数组,相同类型变量的集合,数组,A1,A2,Ai A(1,A(2,A(i,数组声明,Dim,数组名,下标,As,数据类型,例,Dim A(10) As Integer,数组元素,数组元素的形式为：数组名,下标,1,例,A(0,A(1,一维数组,Dim,数组名,下标上界,As,类型,注,下标上界：可以是常数，或有了值的变量,下标下界,0,一维数组的大小：下标上界,1,As,类型：如果默认，是,Object,类型,例如,Dim A(10) As Integer

2、,或,Dim A(0 To 10) As Integer,注：在,VB.NET2005,中,一维数组,11,个元素，下标的范围,010,使用,A(0),A(1),A(2),(10,表示数组元素,多维数组,Dim,数组名,下标,1,上界,下标,2,上界,As,类型,注,下标个数：决定了数组的维数，最多允许有,32,维,数组大小：各维大小的乘积,Dim B(2,3) As Single,二维数组,12,个元素,2+1)*(3+1)=12,数组元素为,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,数组的

3、初始化,Dim,数组名,) As,类型,常数,1,常数,2,常数,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,编程时可以使用,UBound,函数确定其下标上界，其,形式为,UBound,数组名,第,n,维数,例如：显示上面声明的,B,数组的值,For i = 0 To UBound(B,Label1.Text &= B(i) & vbCrLf,Next,重定义数组大小,ReDim,数组名,下标上界,例,Dim St(10) As Single,Sub Form1_Loa

4、d() Handles MyBase.Load,ReDim St(20,End Sub,注,Dim,是说明语句，可出现在程序的任何地方,ReDim,是执行语句，只能出现在过程中,ReDim,只能改变数组大小，不能改变维数和数据类型,使用,ReDim,语句，原来数组中的值丢失,数组的基本操作,定义数组,Dim A(9) As Integer,随机产生,10,个,1099,的整数放入数组，并在文本框,TextBox1,中显示数组各元素的值,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,数组的基本操作,求总计值、平均值、最大值、最小值,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 &=,总计值, sum & vbCrLf,TextBox1.Text ,平均值, sum / 10 & vbCrLf,TextBox1.Text ,最大值, max &

6、vbCrLf,TextBox1.Text ,最小值, min,练习一,定义数组,A(9,整型,统计”按钮：随机产,生,10,个,1099,的整数放,入数组,A,中，在文本框,TextBox1,中显示数组各,元素的值；并求其总计,值、平均值、最大值,最小值，在文本框,TextBox1,内显示,数组的排序,选择法,基本思路：每一轮在若干个无序数中找最小数（按,递增排序），并放在无序数中第,1,个位子，有,n,个,数则进行,n-1,轮上述操作,排序方法,以一个元素为基准，比如以,A(0,为基准,接下来从,A(0,A(5,中找出最小的元素，将其与,A(0,交换,然后将基准位置右移一位，重复上面的动作，

7、比如,以,A(1,为基准，找出,A(1)A(5,中最小的，将其与,A(1,交换,依次类推,数组的排序,选择法,For i = 0 To 4,k = i k,是最小值的元素下标,For j = i + 1 To 5,If A,j) A(k) Then k = j,Next j,t = A(i,A(i) = A(k,数组,A(0)A(1)A(2)A(3)A(4)A(5,A(k) = t,原始数据,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,数组排序,冒泡法,对未排序的各元素从头到尾依次

8、比较相邻的两个元素是,否逆序（与欲排顺序相反,若逆序就交换这两元素，经过第一轮比较排序后便可把,最大（或最小）的元素排好,然后再用同样的方法把剩下的元素逐个进行比较，就得,到了所要的顺序,如果有,n,个元素，一共要进行,n-1,轮比较，第,i,轮要,进行,n-i,次比较,如：有,6,个元素，则要进行,6-1,轮比较。第,3,轮则要进行,6-3,次比较,数组排序,冒泡法,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,数组,A(0)A(1)A(2)A(3)A(4

9、)A(5,End If,原始数据,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,练习二,排序”按钮：对数组,A,进行按升序排列，并在标,签,Label1,内显示排序结果,列表框、组合列表框,列表框,ListBox,显示多个项目的列表，供用户选择,运行中不能直接修改其中内容,组合列表框,ComboBox,文本框与列表框的组合,组合列表框式样,DropDownStyle,简单组合框,Simple,固定大小,下拉式组合框,DropDown,下拉,下拉式列表框,DropDown

10、List,只能选择，不能输入,列表框、组合列表框的主要属性,Items,项目值的集合，可以在设计状态时设置,SelectedIndex,选项的序号，只能在程序中设置或引用，从,0,开始,Text,选项的文本，只能在程序中引用,列表框、组合列表框,列表框、组合列表框常用方法,对象,Items.Add,项目字符串,对象,Items.Remove,项目字符串,对象,Items.RemoveAt,索引值,对象,Items.Clear,主要事件,Click,SelectedIndexChanged,TextChanged,组合列表框,练习三,窗体加载时，将系统支持的屏幕字体添加到列表框,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,练习四,通过列表框设置文本框中字体的名称,TextBox1.Font = New Font(ListBox1.Text,TextBox1.Font.Size,通过组合列表框设置文本框中字体的大小,Dim s As Single,s = Val(ComboBox1.Text,If s 8 Then s = 8,TextBox1.Font = New Font(TextBox1.Font.Name, s,作业,打开,Unit7.sln,文件，在窗体标题处输入你的学号,定义数组,A(9,整型,统计”按钮：随机产生,10,个,1099,的整数放入数组,A,中,在文本框,TextBox1,中显示数组各元素