vb教学课件第6章-数组【医药版】

《vb教学课件第6章-数组【医药版】》由会员分享，可在线阅读，更多相关《vb教学课件第6章-数组【医药版】（61页珍藏版）》请在金锄头文库上搜索。

1、第六章 数组,高等医药院校药学类第三轮规划教材大学计算机基础,第一节 数组的概念,目 录,第二节 数组的基本操作,第三节 动态数组,第四节 控件数组,第五节 常用算法,大学计算机基础沈阳药科大学,第一节 数组的概念,第一节 数组的概念,大学计算机基础沈阳药科大学,第一节 数组的概念,为什么要使用数组？,引例：编写一个程序，读入30名学生的考试成绩，然后打印出比平均分高的学生的考试成绩。,方法一：简单变量和循环结构相结合。虽然处理变得简单， 但无法输出比平均值高的成绩。 方法二：使用多个变量。虽然可以输出比平均值高的成绩， 但程序的编写很麻烦，处理很复杂。,（1）定义一次即可定义很多变量 （2）

2、通过循环来处理这些变量,数组,因此处理大批量的类型相同的数据我们通常使用数组这样一种数据结构.,大学计算机基础沈阳药科大学,第一节 数组的概念,6.1数组的概念,说明： （1）这些变量使用一片连续的存储单元。 （2）使用数组就是用一个相同的名字引用这一组变量中的 数据，这个名字称为数组名。 （3）数据类型 VS 数组：数据类型指的是数据的取值范 围，而数组通常是表示相同数据类型的数据的集合。 利用数组，可以方便灵活地处理批量的数据。,在Visual Basic中，把一组具有同一名字、相同类型的变量组成的集合称为数组。 例如：dim mark(1 to 100) as single mark称为

3、数组名，1跟100都是下标，这个数组具有100个元素。通过下标指出某个具体的数组元素，即指出它在数组中的位置。例如，mark(6)代表mark数组中的第6个元素。,大学计算机基础沈阳药科大学,第一节 数组的概念,6.1.1数组命名与数组元素,例如：dim mark(1 to 100) as single 数组名：命名规则与简单变量一样。数组名不是代表一个变量，而是代表有内在联系的一组变量。 数组元素：数组内的每一个成员称为数组元素 。数组元素的类型也就是数组的类型。数组元素的一般形式如下 数组名(下标1，下标2，) 例如：mark（20） 下标：每个数组元素都有各自的编号即下标，下标确定了数组

4、元素在数组中的位置。 维数：下标数就是数组的维数。 一个下标表示一维数组，两个下标表示二维数组，二维以上的数组称为多维数组。数组的维数不得超过60。 上界和下界：数组中第一个元素的下标称为下界，最后一个元素的下标成为上界。缺省时下界为0，若下标的取值超出上界或下界，将出现“下标越界”的出错信息。,大学计算机基础沈阳药科大学,第一节 数组的概念,6.1.2数组定义,注意：数组与简单变量不同，必须先定义（声明），后使用。（目的是告知计算机它将占用多少内存单元。）,使用数组分两个阶段：声明（定义）数组和使用数组元素。,数组的声明,数组元素的使用,大学计算机基础沈阳药科大学,（1）静态数组的声明与使用

5、,形式1: Dim 数组名(下标1,下标2) As 类型 下标: 下界 To 上界 省略下界为0 , 上下界必须为常数或常量，绝对不允许出现变量。 维数：几个下标为几维数组，最多60维。 每一维大小: 上界下界+1 数组大小: 每一维大小的乘积 声明了数组的名、维数、大小、类型 ，同时还将数组初始化。,静态数组：声明的时候即确定数组中元素的个数（数组中元素的个数是固定不变的）。,另外一种声明形式: Dim 数组名类型符号(下标1,下标2) 例： Dim mark!(1 to 100),例：Dim mark(1 to 100) As single,例子,第一节 数组的概念,大学计算机基础沈阳药科

6、大学,第一节 数组的概念,例： Dim A(6) As Integer Private Name(1999 To 2002) As String *8 Dim B(2，1 to 2) As Integer,Dim M As Integer Const N=5 As Integer Dim A(N) As Integer Dim B(1To 6.6) As Integer Dim C(1 To 2 * 3) As Integer M=5 Dim D(0 To M) As Integer Dim Score(4)，B(3，3) As Integer Dim A(6) As Integer Dim

7、B(3，-1 To 4) As Single,返回,大学计算机基础沈阳药科大学,（1）静态数组的声明与使用,数组元素的使用：,例如：Dim mark(1 to 10) As Integer mark(2) =100,注意：下标只能在下界与上界之间,如：mark(11) 会出现下标越界的错误,例如：定义单精度类型、5个元素的数组,Dim m(1 to 5) as single 或者 Dim m! (1 to 5),第一节 数组的概念,大学计算机基础沈阳药科大学,例：Dim seat( 1 To 3, 1 To 4) As .。 （声明数组时一个下标的为一维数组，两个下标的为二维数组）,二维、三维

8、数组,例：Dim seat( 1 To 2,1 to 3, 1 To 4) As .。 该三维数组共有 234个元素,该二维数组共有 34个元素,6.1.3数组的结构,一维数组的结构 一维数组可以理解为线性存储数据，开辟连续的存储单元来依次存放数组的各个元素。,第一节 数组的概念,大学计算机基础沈阳药科大学,总结：看一个数组中有多少个元素，要注意 首先看一下程序的开头是否有Option base 语句 （1）无或者Option base 0 下标从0开始 （2）Option base 1 下标从1开始,Option base 语句的使用,书写简便而又不浪费内存空间,Dim seat( 1 To

9、 3, 1 To 4) As 。,Dim seat(3, 4) As 。,练习,Option base 1 Private Sub Command1_Click() Dim seat(3, 4) as 。 Dim mark(10) as single End Sub,第一节 数组的概念,大学计算机基础沈阳药科大学,静态数组的声明与使用,注意： (1)下界缺省为0，也可重新定义默认的数组的下界。例如： Option Base 1 (2)错误的声明，下标是变量 。如： n =Inputbox(“输入n”）：Dim x(n) As Single (3)在数组声明中的下标说明了数组的整体，即每维的大小

10、； 而在程序其他地方出现的下标表示数组中的一个元素。 例如： Option Base 1 Dim seat(2,3) As Integer 声明了seat为二维数组，第一维的 大小为2，第二维的大小为3 seat(1,2)=100 对seat (1,2)这个数组元素赋值 (4)在使用数组元素的时候，下标只能在下界与上界之间。,大学计算机基础沈阳药科大学,建立一个数组之后，可以对数组或数组元素进行操作。数组的基本操作包括输入、计算出来及输出，这些操作都是对数组元素进行的。此外，Visual Basic中数组经常与For Next结合使用。,数组元素赋值,数组元素操作,数组元素输出,第二节 数组的

11、基本操作,第二节 数组的基本操作,输入数据,计算处理,数据输出,计算处理,数据输出,输入数据,大学计算机基础沈阳药科大学,第二节 数组的基本操作,6.2.1数组元素的赋值,1.用赋值语句给数组元素赋值。 （直接赋一个数据或者文本框中的内容） 这种方法适合于数据量小的情况下使用。 例： Dim Score(3) As Integer Dim Two(1, 1 to 2) As Integer Score(0)=80 Score(1)=75 Score(2)=91 Score(3)=68 Two (0，1)= Score(0),大学计算机基础沈阳药科大学,第二节 数组的基本操作,6.2.1数组元素

12、的赋值,2.通过循环逐一给数组元素赋值（在循环当中直接将计算的数据或者产生的随机数赋值）这种方法适合于数据量大的情况下使用。 Dim A(6) As Integer，i As Integer Dim B(1 to 2，1 to 2) As Integer，j As Integer For i=0 To 6 使用循环给一维数组赋值并输出 A(i)=Int(99*Rnd)+1 Print A(i)； Next I For i=1 To 2 ，利用二重循环给二维数组赋值并输出 For j=1 To 2 B(i，j)=i*10+j Print B(i ，j)； Next j Print Next i,

13、大学计算机基础沈阳药科大学,第二节 数组的基本操作,例： Private Sub Form_Click() Dim A(6) As Integer，i As Integer For i=0 To 6 A(i)=InputBox(“给数组元素赋值”,“数组A赋值”) Print A(i)； Next I End Sub,6.2.1数组元素的赋值,3.通过循环逐一给数组元素赋值（在循环当中lnputBox函数由键盘输入给数组元素赋值）这种方法数据量大的情况下不适用。,大学计算机基础沈阳药科大学,第二节 数组的基本操作,6.2.1数组元素的赋值,4.用Array函数给数组赋值,利用Array函数可以

14、把一个数据集赋值给一个Variant变量，再将该Variant变量创建成个一维数组。 使用形式： =Array(数据列表),注意： Array函数的括号内值与值之间用逗号分隔； 接收完值后的变体型变量可以像数组一样，利用下标来引用每一个值； Array函数产生给变量型变量的数组下界由Option Base n决定，默认是0； Array函数将产生一个数组； 不可以用Array函数给非Variant类型的变量赋值。,大学计算机基础沈阳药科大学,第二节 数组的基本操作,6.2.1数组元素的赋值,4.用Array函数给数组赋值,例： Option Base 1 Private Sub Form_Cl

15、ick() Dim A As Variant Dim B(4) As Variant A=Array(5，4，3，2，1) Print A(1)；A(2)；A(3)；A(4)；A(5) A=Array(1.51，2.31，3.61，4.11) Print A(1)；A(2)；A(3)；A(4) A=”NO Array” Print A B=Array(1，2，3，4，5，6) 该语句是一条错误语句 End Sub,大学计算机基础沈阳药科大学,第二节 数组的基本操作,6.2.1数组元素的赋值,5.读取顺序文件中的数据给数组赋值,例： Private Sub Form_Click() Dim i

16、as integer Dim a(1 to 30) as integer Open app.path & “” & “in.dat” for input as #1 Do while not eof(1) i=i+1 Input #1,a(i) Loop Close #1 End Sub,大学计算机基础沈阳药科大学,Dim b As Variant 变体类型的变量或字符型动态数组 b = Split(“20, 5, 68”, “,”) 分隔后每个元素都是字符若要变成数字可用val函数 For i = 0 To 2 Print b(i) Next i 无论有没有Option Base 1 语句，下界都从0开始,join函数 Dim b As Variant 变体类型的变量或字符