大学计算机vb课程第6章.ppt

第六章 数组、枚举和自定义类型;6.1 数组的概念;6.1.1 定长数组及声明;Dim a(5) as Integer ‘一维数组 维数=1 大小=5-0+1=6 Private b(0 to 3, 4) as string ‘二维数组 维数=2 大小=4x5 Public c(1 to 1, 0 to 2, 3) as single ’三维数组 维数=3 大小=1x3x4 ;Dim lArray( 0 To 3， 0 To 4) As Long 共有 4×5个元素 等价于: Dim lArray(3， 4) As Long;1. 虽然下标下界缺省默认为0 ,但也可以自己定义数组的下界是1或0。格式： Option Base 1|0 (在通用声明段说明)例如 Option Base 1 ‘ 设下标的初值为1 Dim mark(100) As Integer 等价于 Dim mark(1 To 100) As Integer;6.1.1 定长数组及声明;取得数组下标的上、下界值;数据类型与默认数组;;Static a(3) As Integer For i = 1 To 3 a(i) = a(i) + i * 2 Print “a(; i; )=; a(i) Next i Print;2. 动态数组声明方法; Dim、Private、Public变量声明语句是说明性语句，可出现在过程外或内。 ReDim语句是执行语句，只能出现在过程内。 ReDim语句可以多次重复定义数组的大小，但不能改变数组第一次用ReDim语句所定义的数据类型。 使用ReDim语句重新定义数组后，会使数组原来的数据丢失， 若想保留，可在ReDim语句之后加参数Preserve。;格式： Erase 数组名称 可以将动态数组从内存中清除，将数值型静态数组清为0，将字符型静态数组清为空字符串。;1．数组元素的输入（赋值） 2．数组的初始化 3．数组元素的输出 4．数组元素的复制 ;1．数组元素的输入（赋值）;（1）用赋值语句直接赋值;（2）用循环结构输入;（3）用输入框或文本框输入;2.数组的初始化; （1）预先定义的数组（将被赋值的数组）可以声明为没有下标和维数的可调数组或连圆括号都可省略的数组，且类型只能是自由类型（Variant）。 （2）由于建立的数组是Variant类型数组，所以〈数组元素值表〉中的值可以是任意数据类型，数据类型也可以不必完全一样。若参数的个数超过两个，中间必须用逗号隔开。 （3）数组的下界默认为0，也可以通过Option Base语句设定；上界由Array函数括号内的元素个数决定，也可通过Ubound函数获得。 （4）Array函数只能给一维数组赋值，对二维以上的多维数组不适用。;Option Base 1 Private Sub Form_Activate() Dim week As Variant mydate = #5/1/2002# week = Array(日, 一, 二, 三, 四, 五, 六) Print Print 今天是：星期 + week(Weekday(Now)) Print Print 2002年5月1日是星期 + week(Weekday(mydate)) End Sub;Option Base 1 Private Sub Form_Activate() Dim Number(4, 4) As Integer For i = 1 To 4 ‘i代表行号 For j = 1 To i ‘j 代表列号 Number(i, j) = i * j ‘输入数组元素 Print Number(i, j); ‘输出数组元素 Next j Print ‘换行显示 Next I End sub;4.数组的复制; 格式： For Each 变量 In 数组名称 [循环体] [Exit for]