VB程序设计-第5课 VB数组和自定义类型.ppt

第5章 数组和自定义类型 5.1 数组的概念,声明和使用 5.2 数组的基本操作 5.3 静态数组和动态数组 5.4 列表框和组合框控件 5.5 自定义类型及其数组 5.6 综合应用 讲课重点 1.数组声明：数组名、维数、大小、类型 2.数组元素引用：数组名（下标），下标变量 3. 数组基本操作：和、最值、排序、查找、删除、插入 5.1 数组的概念 用简单变量求解存在的问题 （1）mark只能放一个学生的成绩，无法统计高于平均分的人数。重复输入、不保证输入的一致性。 （2）若用简单变量保存100个学生的成绩，则需定义100个变量和使用100句输入语句。由此引入了数组。 改进例5.1 Dim mark(1 To 100) As Integer Dim aver!, n%, i% aver = 0 For i = 1 To 100 mark(i) = InputBox(输入第 i 位学生的成绩) aver = aver + mark(i) Next i aver = aver / 100 n = 0 For i = 1 To 100 If mark(i) aver Then n = n + 1 Next i Print 平均分：, aver, 高于平均分的人数：, n 5.1 数组的概念 5.1.2 数组声明 数组声明举例 Dim a(3) as integer Dim b(-2 to 2) as single 2、多维数组声明 数组声明注意事项 1、声明数组时若只指定了下标上界，则数组下标最小值由option base语句指定，默认为0. 可在代码窗口通用声明部分使用option base： Option base 1 2、Dim 语句中的下标只能是常量，不能是变量或变量表达式 Dim a(n) as integer 错 Dim a(n+3) as single 错 数组声明注意事项 3、数组元素数据类型与初始值 dim语句中的As关键字指定了数组元素的数据类型，若省略as关键字，则默认为variant类型。 数值型数组元素初始值为0，variant数组元素初始值为“空”（没有值），变长字符串元素初始值为空字符串，定长字符串数组元素初始值为等长空格字符串。 数组声明注意事项 4、与定义变量一样，可在数组名称末尾使用数据类型符号说明数组元素数据类型。如： dim a%(3) dim b!(-2 to 2) 3、动态数组及声明 3、动态数组及声明 例：Dim s ( ) As Single Sub Form_Load( ) … ReDim s(4，8) … 定义动态数组大小注意： 数组的使用—赋值 数组的使用—赋值 通常使用循环为数组中的每个元素赋值。 Dim a(5) As Integer For n = 0 To 5 a(n) = Val(InputBox(a( n )=)) Next n 二维数组使用两重循环来赋值： Dim a(5, 5) As Integer For n = 0 To 5 For m = 0 To 5 a(n, m) = Val(InputBox(a( n , m )=)) Next m Next n 数组的使用--数组元素引用 数组元素使用下标来引用，如： dim a(2) as integer a(1)=15 下标必须在定义的范围之内，如果超出范围，会提示下标越界。 数组的使用--数组的输出 通常采用循环和print方法来对数组元素进行输出 如：要输出下面的矩阵 11 12 13 14 21 22 23 24 31 32 33 34 41 42 43 44 数组相关函数 1、LBound和UBound函数 格式： LBound（数组名称[，维数]） UBound（数组名称[，维数]） 说明： lbound函数用于返回数组下标最小值； ubound函数用于返回数组下标最大值。 一维数组可省略“维数”或用1作“维数”，二维数组可用“维数”指定返回哪一维的数组下标最小值和最大值。如： Print “数组a的下标范围：”;LBound（a）;”~”;UBound(a) Print “数组b第1维下标范围：”;LBound(b,1);”~”UBound(b,1)