Visual Basic 清华大学vb编程语言基础 第6讲.pptVIP

第六讲 数组 内容提要 数组的概念 数组的声明 静态数组 静态数组 静态数组应用 静态数组应用 动态数组 动态数组的使用 动态数组的应用 动态数组的应用 数组元素赋初值 数组元素的引用 数组元素的输出 For Each……Next语句 For Each……Next语句-例 Array()函数 UBound() 、LBound()函数 Split函数 控件数组 控件数组-例 运行时创建控件数组 运行时创建控件数组-例 “筛法”求素数 “筛法”求素数 “筛法”求素数 自定义数据类型 自定义数据类型的使用 自定义数据类型-例 自定义数据类型-例 数组的概念 数组的声明 与数组有关的函数和语句 控件数组 数组是保存一组具有相同名字和类型的数据的集合。 用统一的名字代表逻辑上相关的一批数据，每个元素用下标来区分。 数组必须先声明后使用 声明时指定数组名称、类型、维数和大小。 数组声明时下标的个数确定数组的维数，VB中的数组最多60维。 按声明时数组的大小是否确定分为静态数组和动态数组。 Dim student(1 to 30) as String Dim 数组名(下标1[，下标2，……) [as 类型] 定义数组的名称 指定数组的数据类型 指定数组中元素的数目 初始化数组中每个元素的值，数值数组中的所有元素初始化为0，字符数组中的所有元素初始化为空字符串。 Dim student(1 to 30) as String student(30) …… student(3) student(2) student(1) Dim 数组名(下标) [As 类型] 下标必须是常数，不允许是表达式或变量。 下标的形式为：[下界 to] 上界 最小下界是-32768，最大上界是32767，下界的缺省值是0。一维数组的大小为：上界－下界+1。 As类型缺省时是Variant类型。 缺省情况下，下标从0开始，Visual Basic中可用option base n语句在窗体或标准模块中重新设定数组的下界。 　　option base 1，设定数组的下标从1开始。 一维数组声明格式 多维数组声明格式 Dim 数组名(下标1[，下标2，……) [as 类型] 　数组声明中若有两个下标，则为二维数组，有两个或两个以上下标，则为多维数组。 Dim a(2,3) as integer a(2,3) a(2,2) a(2,1) a(2,0) a(1,3) a(1,2) a(1,1) a(1,0) a(0,3) a(0,2) a(0,1) a(0,0) 随机产生一个班50个学生的成绩，计算出平均分并统计出高于85分的人数。 Private Sub Command1_Click() Dim score(1 To 50) As Integer 声明一个有50个元素的数组score Dim i%, j% Dim average As Single average = 0 j = 0 Randomize 初始化随机数生成器 Print 学生成绩为： 分析：使用随机函数产生随机数，赋给数组score，通过循环计算出总分，然后计算出平均分，通过循环统计出高于85分的人数。 For i = 1 To 50 score(i) = Int(Rnd * 90 + 11) 产生[11，100]的随机数并赋给数组score Print score(i); If i Mod 10 = 0 Then Print average = average + score(i) Next i average = average / 50 Print 平均分是： average For i = 1 To 50 If score(i) = 85 Then j = j + 1 Next i Print 高于85分的有： j 人 End Sub 动态数组也称为可调数组，在数组声明时不指定数组的大小，而在使用时才指定数组的大小。动态数组使用灵活、方便，可以更高效的使用计算机内存。 创建动态数组: 在窗体模块、标准模块或过程中用Dim语句或Public语句声明一个没有下标的数组，将数组声明为动态数组 在过程中用ReDim语句指明数组的大小，其一般格式为： ReDim [Preserve] 数组名(下标1[，下标2……]) [as 类型] 在过程外部用Dim语句声明一个动态数组：