第五章VB数组与自定类型10.pptx

Visual Basic程序设计第5章 数组和自定义类型数组的概念数组的基本操作自定义类型及其数组综合应用常见错误 Visual Basic程序设计5.1 数组的概念5.1.1 数组的概念1.引例例5.1 求100个学生的平均成绩，并统计高于平均分的人数。用简单变量和循环，求平均成绩程序段如下：aver = 0For i = 1 To 100mark = InputBox(输入学生成绩) aver = aver + markNext iaver = aver / 100由于循环体内变量mark只能放一个学生的成绩，无法统计高于平均分的人数。若用简单变量保存100个学生的成绩，则需定义100个变量和使用100句输入语句。 Visual Basic程序设计用数组解决问题的程序如下：Dim mark(99) As Integer 声明数组mark Dim ave!, n%, i%ave = 0For i = 0 To 99 输入成绩，求分数和 mark(i) = InputBox(输入学生的成绩) ave = ave + mark(i)Next i 求100人的平均分ave = ave / 100 n = 0For i = 0 To 99 统计高于平均分的人数If mark(i) ave Then n = n + 1 Next iMsgBox (平均分: ave 高于平均分人数: n) Visual Basic程序设计2.数组的概念概念：在VB中，把一组相互关系密切的数据放在一起并用一个统一的名字作为标志，就是数组。一般来说，数组就是一组相同类型的变量的集合。数组的分类：按数组的大小分为定长数组和变长数组。按元素的类型分为数值型、字符型、日期型、变体数组等。按数组的维数分为一维数组、二维数组、多维数组。按对象不同分为菜单对象数组和控件数组。数组必须先声明后使用。声明数组名、类型、维数和数组大小。使用数组元素时，下标不能超出上下界范围，下标可以是整型的常数、变量、表达式，甚至是一个数组元素。 Visual Basic程序设计5.1.2 定长数组及声明在声明时确定了大小的数组称为定长数组。定长数组从建立到消亡整个阶段中数组的大小是固定的。定长数组的声明形式：Dim 数组名(下标1[,下标2…]) [As 类型]声明了数组的名、维数、大小、类型（省略时为变体类型）维数：几个下标为几维数组，最多60维。下标：[下界 To ] 上界 省略下界为0，必须为常数。每一维大小：上界－下界+1数组大小： 每一维大小的乘积例：Dim mark(1 to 100) As Integer Visual Basic程序设计Dim lArray( 0 To 3， 0 To 4) As Long 共有 4×5个元素等价于: Dim lArray(3， 4) As Long注意：(1)下界缺省为0，也可重新定义数组的下界。例如： Option Base 1错误的声明：下标是变量n =Inputbox(输入n ）：Dim x(n) As Single在数组声明中的下标说明了数组的整体，即每维的大小；而在程序其他地方出现的下标表示数组中的一个元素。两者写法形式相同，但意义不同。例如： Dim x(10) As Integer x(10)=100 声明了x数组有11个元素 对x(10)这个数组元素赋值 Visual Basic程序设计Private Sub Command1_Click() Dim grade(1 To 10) As Single Dim i%For i = 1 To 10grade(i) = int(Rnd() * 101) Next iFor i = 1 To 10 Print grade(i) Next iEnd Sub对数组的输入与输出 Visual Basic程序设计Private Sub Command2_Click()Dim grade(1 To 10) As Single, sum!, avg! Dim i%For i = 1 To 10grade(i) = int(Rnd() * 101) Next Isum = 0！For i = 1 To 10sum = sum + grade(i)Next iavg = sum / 10 Print sum, avgEnd Sub计算总和和平均值 Visual Basic程序设计5.1.3 变长数组及声明变长数组指在声明数组时未给出数组的大小(省略括号中的下标)，当要使用它时，随时用ReDim语句重新指出数组大小。建立变长数组要分两步：用Dim 语句声明数组，但不能指定数组大小 Dim 数组名( ) As 数据类型用ReDim语句动态地分配元素个数ReDim 数组名 (下标[,下标2