第3章 VB NT数组.ppt

第三章 数组 数组是使用统一的名称、不同的下标（或称为索引）表示的、具有相同类型的一组数据元素。 通过使用数组名和下标（从0开始）指定元素在数组中的位置，就可以访问数组中的单个元素。 “维数”用来表示每个数组元素的下标个数，带有一个下标的数组称为一维数组，带有两个或多个下标的数组称为二维数组或多维数组，即：数组中的下标个数就是数组的维数。 在声明时，不指明下标上限的数组称为动态数组。 知识点1 一维数组的声明 数组变量在使用前应先声明，声明数组就是指明数组名、维数、类型和数组元素的个数。 声明一维数组的语法格式是： Declare 数组名( 下标上限 ) As类型 说明： ⑴ 语句中的Declare可以是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个元素。 ⑷ 在数组声明语句中的下标用于确定数组每一维的大小，是数组的说明符；而程序其他语句中出现的下标是用于确定某一个具体的数组元素，请注意它们的区别。例如： 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} ⑵ 引用数组元素时，元素的下标值不能超过数组声明时所指定的范围。 任务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年以前的年份，应将余数加上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 System.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 End Sub Private Sub btnUp_Click(ByVal sender As Object, ByVal e As Sys