中文VisualBasic6.0案例教程于建海第5章数组、自定义数据类型和过程上课用课件.ppt

第5章 数组、自定义数据类型和过程 5.1 【案例34】“大家来投票”程序 5.1.1 学习目标 现在电视台中各种竞技表演越来越多，最后都有一个投票表决，以决定名次。 5.1.2 程序实现 1．对象属性设置 2．输入代码程序 5.1.3 相关知识 1．数组和数组元素 2．创建常规数组 （1）创建常规数组 （2）数据类型 （3）Dim语句本身不具备再定义功能，即不能直接使用Dim语句对已经定义了的数组进行再定义。 （4）可以在一个数组中包含其他已经定义过的数组，被包含的数组类型一般应与该数组类型一样，但如果是变体型数组除外。 （5）使用Option Base n语句可以重新设定数组的下界，其中n为0或正整数，表示数组下界的数值。 （6）使用下标变量时，可以完全像使用简单变量那样进行赋值和读取，下标变量的下标可以是常量、变量和数值型表达式（长整型数据）。 3．创建动态数组 【格式】ReDim [Preserve] 数组名[(维数定义)][As 数据类型]…… 【功能】创建动态数组。 【说明】 （1）创建动态数组时，上界和下界可以是常量和变量（有确定值）。 （2）可使用ReDim语句多次改变数组的数组元素个数和维数，但不能改变它的数据类型。 （3）如果重新定义数组，则会删除它原有数组元素中的数据，并将数值型数组元素全部赋0，将字符型数组元素全部赋空串。 如果要想在数组重定义后不删除原有数据，应在定义数组时增加Preserve关键字，但是使用Preserve关键字后，只能改变最后一维的上界，不可以改变数组的维数。例如： ReDim SN(30) As Integer 定义了一个有31个数组元素的整型动态数组SN ReDim Preserve SN(40) As Integer 将动态数组SN的上界改为40 （4）可以使用带空圆括号的Dim语句来定义动态数组。在定义动态数组后，可以在过程内使用ReDim语句来定义该数组的维数和元素。如果试图在Private、Public或者Dim语句中重新定义一个已定义了大小的数组时，就会发生错误。 4．数组函数 （1）Array函数 【格式】Array（元素列表） 【功能】将元素列表中的数据赋给一个Variant型数组的数组元素。 【说明】元素列表由各种类型数据组成。这些数据用逗号分隔。如果元素列表中不包含任何元素，则该函数创建一个元素个数为0的空数组。没有被声明为数组的Variant型变量也可以表示数组。除定长字符串和自定义型数据外，Variant型变量可表示任何类型的数组。 例如： Dim NL1,NL2 定义了两个Variant型变量NL1和NL2 NL1=Array(A,B,C,D,E，1，100) 将一个数组赋给变量NL1 N=NL1(6) 将数组NL1的第7个元素(下标从0开始)的值赋给变量N （2）IsArray函数 【格式】IsArray（变量名） 【功能】判断一个变量是否为数组变量。函数值为Boolean型。 【说明】如果变量名是数组变量名，则该函数的值为True，否则为False。例如：执行了Dim NL(8) As Long : Dim SU Integer语句，则IsArray（NL=True, IsArray（SU）=False 。 （3）下界函数（Lbound） 【格式】Lbound(数组名[，维数]) 【功能】求数组指定维数的最小下标。函数值为Long型数据。 【说明】变量参数为数组变量名。维数是可选参数，可以是任何有效的数值表达式，表示求哪一维的下界。1表示第一维，2表示第二维，依此类推。如果省略该参数，则默认为1。 例如：执行了Dim NL（5，?5 To 5,5 To 8）语句，则LBound(NL,1)=0,LBound(NL，2)= ?5,LBound(NL，3)=5。 （4）上界函数（Ubound） 【格式】UBound(数组名[，维数]) 【功能】求数组指定维数的最大下标。函数值为Long型数据。 例如：执行了Dim NL（10,5 To 8）语句，则UBound(NL,1)=10,UBound(NL，2)=8。 5.2 【案例35】“矩阵变换”程序 5.2.1 学习目标 “矩阵行列变换”程序运行后的画面如图5-2-1左图所示，在窗体内显示了一个5×5矩阵，矩阵中的元素都是两位随机整数。 5.2.2 程序实现 1．对象属性设置 2．输入代码程序 5.2.3 相关知识 1．创建和显示一维数组 2．创建和显示二维数组 5.3 【案例36】“统计成绩”程序 5.3.1 学习目标 “统计成