第3章 VB NET数组.ppt

1、第三章 数组,数组是使用统一的名称、不同的下标（或称为索引）表示的、具有相同类型的一组数据元素。 通过使用数组名和下标（从0开始）指定元素在数组中的位置，就可以访问数组中的单个元素。 “维数”用来表示每个数组元素的下标个数，带有一个下标的数组称为一维数组，带有两个或多个下标的数组称为二维数组或多维数组，即：数组中的下标个数就是数组的维数。 在声明时，不指明下标上限的数组称为动态数组。,知识点1 一维数组的声明,数组变量在使用前应先声明，声明数组就是指明数组名、维数、类型和数组元素的个数。 声明一维数组的语法格式是： Declare 数组名( 下标上限 ) As类型 说明： 语句中的Declar

2、e可以是Dim、Public、Protected、Friend、Private、Shared和Static。, 数组的下标总是从0开始。 例如，下面的语句声明了一个名为Arr的整型数组，它共有11个元素，Arr(0)、Arr(1)、Arr(2)、Arr(10)。 Dim Arr(10) As Integer 数组中的类型既可以是标准的数据类型，也可以是对象类型。例如： Dim lblDisp(10) As Label 该语句声明了一个标签类型的一维数组，包含11个元素。 在数组声明语句中的下标用于确定数组每一维的大小，是数组的说明符；而程序其他语句中出现的下标是用于确定某一个具体的数组元素，请

3、注意它们的区别。例如： Dim x(10) Integer 下标10用于说明数组x有11个元素 x(10) = 5 下标10用来指定数组x中的第11个元素,知识点2 一维数组的使用,使用数组就是对数组元素进行各种操作，如赋值、表达式运算、输入或输出等。 数组声明语句不仅定义数组，为数组分配存储空间，还能对数组元素赋初值。例如: Dim intNum() As Integer = 2, -5, 37, 48, -14, 29 Dim strWeekday() As String = Sunday, Monday, Tuesday, Wednesday 引用数组元素时，元素的下标值不能超过数组声明

4、时所指定的范围。,任务1 编写一个判断十二生肖的程序,编写一个能判断十二生肖的程序，界面如图3-1所示。用户在文本框中输入年份后，单击“确定”按钮，将显示相应的生肖。,任务1 解析,Dim id, nYear As Integer 定义一个存放十二生肖的字符串数组Ans Dim Ans() As String = 鼠, 牛, 虎, 兔, 龙, “蛇, 马, 羊, 猴, 鸡, 狗, 猪 nYear = Val(txtYear.Text) 1984年的生肖是鼠，年份与1984年的差值除以12的余 数可以作为数组的下标 id = (nYear - 1984) Mod 12 如果输入的是1984年以前

5、的年份，应将余数加上12作为数组的下标 If id 0 Then id = id + 12 txtDisp.Text = Ans(id),任务2 一维数组的排序,编写一个对一维数组进行排序的程序。单击“产生随机数”按钮，随机产生10个小于或等于100的整数，并存储在数组中；单击“升序”按钮，将数组中的10个数按从小到大的顺序重新排列，并显示在排序后的文本框中；单击“降序”按钮，将数组中的10个数按从大到小的顺序重新排列，并显示在排序后的文本框中。,任务2 解析,Dim i, A(9) As Integer Private Sub btnRnd_Click(ByVal sender As Sys

6、tem.Object, ByVal e As System.EventArgs) Handles btnRnd.Click Randomize() txtBefore.Text = 清空文本框 txtAfter.Text = For i = 0 To 9 A(i) = Int(Rnd() * 101) 产生小于或等于100的整数 txtBefore.Text = txtBefore.Text 点出现; a(i); 次 Next i,3.2 多维数组,知识点1 多维数组的声明和初始化 Visual Basic.NET最多允许使用32维的数组。声明多维数组的语法格式如下： Declare 数组名（

7、下标上限1，下标上限2 ，下标上限3 ）As 类型 说明： 语句中的Declare可以是Dim、Public、Protected、Friend、Private、Shared和Static。, 其中下标上限的个数决定了数组的维数，相邻的两个下标上限之间用逗号进行分隔。例如： Dim A(2, 4) As Single 该语句声明了一个3行5列的二维数组A，它共有15个元素，表3-3列出了二维数组A在内存中的存放顺序。, 多维数组的元素个数可以按照下面的式子来计算： 数组元素的个数 =（第一维的下标上限1）（第二维的下标上限1） 多维数组的初始化和一维数组是类似的，可以先声明再初始化，也可以在声明

8、的同时赋初始值。例如： 声明并创建一个由字符串组成的二维数组 它有2行4列 Dim arr(,) As String = 00, 01, 02, 03, 10, 11, 12, 13,任务3 编程输出奇次“数字魔方阵”,编写程序输出由1n2的自然数构成的奇次“魔方阵”。所谓魔方阵是指这样的方阵：其每一行、每一列和对角线之和均相等。例如，3阶魔方阵和5阶魔方阵如下图所示。,任务3 解析,思路分析： 魔方阵中的数遵循以下规律，可以根据其规律逐步推算出1n2的每个数应放置在数组中的具体位置。 1固定放在第1行的中间一列。 2n2各数的位置：所在行比该数前一个数的行数小1，列数比该数前一个数的列数大1

9、。如4处于2行0列，则5处于1行1列。 以下特殊情况另作处理： 当上一个数的行数为0，则下一个数的行数移至n-1； 当上一个数的列数为n-1，则下一个数的列数移至0； 如果推算出的位置已放置过数，则将该数放置到上一个数的下面，即行数加1，列数不变。,计时器的功能是按照用户定义的时间间隔（Interval属性）来引发它的定时事件（Tick事件），前提是它的Enabled属性值必须为True。,Const n = 3、 Dim a(n - 1, n - 1) As Integer, i, j, k, g, ni, nj, num As Integer Private lblDisp(n - 1,

10、n - 1) As Label Private Sub MagicNumber_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load For i = 0 To n - 1 For j = 0 To n - 1 lblDisp(i, j) = New Label lblDisp(i, j).Width = 30 设置标签的宽度 lblDisp(i, j).Height = 27 设置标签的高度,lblDisp(i, j).Left = 20 + j * 32 设置标签的左边距 lb

11、lDisp(i, j).Top = 20 + i * 30 设置标签的上边距 lblDisp(i, j).Parent = Me 设置标签的容器是窗体 lblDisp(i, j).BorderStyle = BorderStyle.FixedSingle lblDisp(i, j).TextAlign = ContentAlignment.MiddleCenter lblDisp(i, j).Visible = True 设置标签是可见的 Next Next num = 0 End Sub,Private Sub btnDisp_Click(ByVal sender As System.Obj

12、ect, ByVal e As System.EventArgs) Handles btnDisp.Click i = 0 : j = n 2 a(i, j) = 1 For k = 2 To n * n ni = i : nj = j i = i - 1 : j = j + 1 If j n - 1 Then j = 0 If i 0 Then i = n - 1 If a(i, j) = 0 Then a(i, j) = k Else 否则放到上一个数的下面 i = ni + 1 : j = nj a(i, j) = k End If Next Timer1.Enabled = True

13、启用计时器 End Sub,Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick num = num + 1 For i = 0 To n - 1 For j = 0 To n - 1 If a(i, j) = num Then 设置标签的字体为“楷体、12号、粗体” lblDisp(i, j).Font = New Font(楷体_GB2312, 12, FontStyle.Bold) lblDisp(i, j).ForeColor = C

14、olor.Blue lblDisp(i, j).BackColor = Color.Pink lblDisp(i, j).Text = a(i, j) End If Next Next End Sub,3.3 动态数组,知识点1 动态数组的声明和使用 动态数组是在声明数组时没有指定数组的下标上限，而是在程序中使用ReDim语句来指定数组的大小，然后这个数组才能被使用。 ReDim语句的语法格式如下： ReDim Preserve 数组名( 维数定义 ) 说明： ReDim语句不支持As子句，所以它不能声明数组的类型。 使用Preserve关键字表示要保持数组中已有的值，但是ReDim Pres

15、erve只允许改变最后一维的元素数目。,例如： 声明一个一维数组 Dim arr1() As Integer 声明一个二维数组 Dim arr2(,) As String 创建数组 reDim arr1(10) reDim arr2(5,10),任务4 编程输出斐波那契数列,编程输出斐波那契数列，界面如图3-5所示。程序运行时，由用户在文本框中输入需要输出的数列的项数，单击“确定”按钮后，在列表框中显示斐波那契数列的指定项。 已知菲波纳契数列具有如下递推关系：,Public Class frmFibonacci Dim Count, n As Integer, f() As Long Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.Eve