第3章 VB NET数组

• x(10) = 5
‘下标10用来指定数组x中的第11个元素
知识点2 一维数组的使用
• 使用数组就是对数组元素进行各种操作，如赋值、 表达式运算、输入或输出等。
• ⑴ 数组声明语句不仅定义数组，为数组分配存储 空间，还能对数组元素赋初值。例如:
Dim intNum() As Integer = {2, -5, 37, 48, -14, 29} Dim strWeekday() As String = {"Sunday",
txtAfter.Text = ""
Array.Sort(A)
'对数组A进行升序排序
For i = 0 To 9
txtAfter.Text = txtAfter.Text & A(i) & " "
Next
End Sub
Private Sub btnDown_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDown.Click
Protected、Friend、Private、Shared和 Static。
• ⑵ 数组的下标总是从0开始。
• 例如，下面的语句声明了一个名为Arr的整型数组，它共有 11个元素，Arr(0)、Arr(1)、Arr(2)、…、Arr(10)。
• Dim Arr(10) As Integer
• ⑶ 数组中的类型既可以是标准的数据类型，也可 以是对象类型。例如：
任务2 一维数组的排序
• 编写一个对一维数组进行排序的程序。单 击“产生随机数”按钮，随机产生10个小 于或等于100的整数，并存储在数组中；单 击“升序”按钮，将数组中的10个数按从 小到大的顺序重新排列，并显示在排序后 的文本框中；单击“降序”按钮，将数组 中的10个数按从大到小的顺序重新排列， 并显示在排序后的文本框中。
"Monday", "Tuesday", "Wednesday"} • ⑵ 引用数组元素时，元素的下标值不能超过数组
声明时所指定的范围。
任务1 编写一个判断十二生肖的程序
• 编写一个能判断十二生肖的程序，界面如图 3-1所示。用户在文本框中输入年份后，单 击“确定”按钮，将显示相应的生肖。
任务1 解析
• 在声明时，不指明下标上限的数组称为动态数组。
知识点1 一维数组的声明
• 数组变量在使用前应先声明，声明数组就 是指明数组名、维数、类型和数组元素的 个数。
• 声明一维数组的语法格式是： • Declare 数组名( 下标上限 ) As类型 • 说明： • ⑴ 语句中的Declare可以是Dim、Public、
Public Class myReverserClass '定义一个类 Implements IComparer ' Calls CaseInsensitiveComparer.Compare with the parameters reversed. Function Compare(ByVal x As Object, ByVal y As Object) As Integer _ Implements IComparer.Compare Return New _
‘1984年的生肖是鼠，年份与1984年的差值除以12的余 数可以作为数 组的下标
id = (nYear - 19Hale Waihona Puke Baidu4) Mod 12
'如果输入的是1984年以前的年份，应将余数加上12作为数组的下标
If id < 0 Then id = id + 12 txtDisp.Text = Ans(id)
任务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
第三章 数组
• 数组是使用统一的名称、不同的下标（或称为索 引）表示的、具有相同类型的一组数据元素。
• 通过使用数组名和下标（从0开始）指定元素在数 组中的位置，就可以访问数组中的单个元素。
• “维数”用来表示每个数组元素的下标个数，带 有一个下标的数组称为一维数组，带有两个或多 个下标的数组称为二维数组或多维数组，即：数 组中的下标个数就是数组的维数。
Dim id, nYear As Integer
'定义一个存放十二生肖的字符串数组Ans
Dim Ans() As String = {"鼠", "牛", "虎", "兔", " 龙", “蛇", "马", "羊", "猴", "鸡", "狗", "猪"}
nYear = Val(txtYear.Text)
• Dim lblDisp(10) As Label
• 该语句声明了一个标签类型的一维数组，包含11个元素。
• ⑷ 在数组声明语句中的下标用于确定数组每一维 的大小，是数组的说明符；而程序其他语句中出 现的下标是用于确定某一个具体的数组元素，请 注意它们的区别。例如：
• Dim x(10) Integer ‘下标10用于说明数组x有11个元素
Dim ArrayReverse As New myReverserClass '定义类的实例对象
Array.Sort(A, ArrayReverse) '对数组A进行降序排序
txtAfter.Text = "" For i = 0 To 9
txtAfter.Text = txtAfter.Text & A(i) & " " Next End Sub
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 System.EventArgs) Handles btnUp.Click