VB语言数组专题专题培训课件.ppt

VBVB语言数组专题语言数组专题第第5章章 数数 组组一个人一个人一个人一个人N N N N门课的成绩怎样存储和处理？门课的成绩怎样存储和处理？门课的成绩怎样存储和处理？门课的成绩怎样存储和处理？一个班一个班一个班一个班N N N N门课的成绩怎样存储和处理？门课的成绩怎样存储和处理？门课的成绩怎样存储和处理？门课的成绩怎样存储和处理？.这些数据的特点：具有相同的数据类型。这些数据的特点：具有相同的数据类型。这些数据的特点：具有相同的数据类型。这些数据的特点：具有相同的数据类型。为了方便地使用这些数据，为了方便地使用这些数据，为了方便地使用这些数据，为了方便地使用这些数据，VBVBVBVB语言提供了一种语言提供了一种语言提供了一种语言提供了一种构造数据类型：数组构造数据类型：数组例如：存储学生成绩用实型数组例如：存储学生成绩用实型数组例如：存储学生成绩用实型数组例如：存储学生成绩用实型数组 score score score score（1 to 5 1 to 5 1 to 5 1 to 5）其中：其中：其中：其中：scorescorescorescore是是是是数组名数组名。该数组可以存放该数组可以存放该数组可以存放该数组可以存放5 5 5 5个成绩，分别用下标变量表示：个成绩，分别用下标变量表示：个成绩，分别用下标变量表示：个成绩，分别用下标变量表示：score(1),score(5)score(1),score(5)score(1),score(5)score(1),score(5)。2 5.1数组的概念及其声明数组的概念及其声明5.1.1数组与数组元素数组与数组元素 1.数组概念数组概念 数组就是一组数组就是一组相同类型数据相同类型数据的集合，这一组数的集合，这一组数中的每一个组成元素就叫做中的每一个组成元素就叫做数组元素数组元素。用一个统一的名字（用一个统一的名字（数组名数组名）代表逻辑上相关的一）代表逻辑上相关的一批数据，每个元素用批数据，每个元素用下标变量下标变量来区分；下标变量代来区分；下标变量代表元素在数组中的位置。表元素在数组中的位置。例如：例如：dim mark(1 to 100)As Integer 第一个学生成绩用第一个学生成绩用mark(1)来表示，其值为来表示，其值为95 第二个学生成绩用第二个学生成绩用mark(2)来表示，其值为来表示，其值为8032.数组的命名数组的命名 命名规则和简单变量的命名规则相同。例如：用命名规则和简单变量的命名规则相同。例如：用 mark 来代表来代表100个学生的成绩个学生的成绩 3.数组维数数组维数数组中下标的个数称为数组的维数数组中下标的个数称为数组的维数一维数组：例如一维数组：例如mark(100)二维数组：有两个下标二维数组：有两个下标例如例如:x(2,3)二维数组相当于一个矩阵二维数组相当于一个矩阵三维数组：有三个下标，例如：三维数组：有三个下标，例如：m(3,4,5)5.1.1数组与数组元素数组与数组元素44.数组元素数组元素5.1.1数组与数组元素数组与数组元素如何确定如何确定100个学生和这个数据组中的各个成绩对应关系呢个学生和这个数据组中的各个成绩对应关系呢？给数组中的数据编号，也就是顺序号，从而出现了数组中给数组中的数据编号，也就是顺序号，从而出现了数组中的下标变量，所以的下标变量，所以数组元素也称为下标变量数组元素也称为下标变量.数组元素表示数组元素表示为：为：（）例如：例如：mark(1)、mark(99)例如例如:c(2,3)表示数组表示数组c中第中第2行第行第3列的那个元素列的那个元素对于数组中下标的使用说明：对于数组中下标的使用说明：对于数组中下标的使用说明：对于数组中下标的使用说明：（1 1）下标放在数组名后的）下标放在数组名后的）下标放在数组名后的）下标放在数组名后的括号括号括号括号内内内内mark1mark1,mark2mark2,mark(1),mark(1)55.1.1数组与数组元素（2 2）下标可以是常量、变量或者表达式）下标可以是常量、变量或者表达式）下标可以是常量、变量或者表达式）下标可以是常量、变量或者表达式mark(1)=60mark(1)=60for i=2 to 100for i=2 to 100 mark(mark(i i)=)=cintcint(inputbox(“(inputbox(“输入输入输入输入”)”)next inext imark(mark(i+1i+1)=0)=0（3 3）下标反映的是数据在数组中的位置，应该为整）下标反映的是数据在数组中的位置，应该为整）下标反映的是数据在数组中的位置，应该为整）下标反映的是数据在数组中的位置，应该为整数，如为非整数，要四舍五入取整数，如为非整数，要四舍五入取整数，如为非整数，要四舍五入取整数，如为非整数，要四舍五入取整例如例如例如例如x(3.6)x(3.6)取整后为取整后为取整后为取整后为x(4)x(4)6 5.数组的类型数组的类型 Visual Basic中的数组，按不同的方式可分为以下几类：中的数组，按不同的方式可分为以下几类：v 按数组的大小（元素个数）是否可以改变来分为：按数组的大小（元素个数）是否可以改变来分为：定定长长数数组组、动动态态（可可变变长长）数数组组，也也称称为为静静态态数数组组或或动动 态数组。态数组。5.1.1数组与数组元素v 按元素的数据类型可分为：数值型数组、字符串数组、按元素的数据类型可分为：数值型数组、字符串数组、日期型数组、变体数组等。日期型数组、变体数组等。v 按数组的维数可分为：一维数组、二维数组、多维数组。按数组的维数可分为：一维数组、二维数组、多维数组。v 对象数组：菜单对象数组、控件数组对象数组：菜单对象数组、控件数组。75.2 静态数组静态数组 静态数组是指固定大小的数组，类型、维数静态数组是指固定大小的数组，类型、维数和大小将不得改变。和大小将不得改变。5.2.1 5.2.1 静态数组及声明静态数组及声明语法语法语法语法:Dim Dim 数组名数组名(下标下标1,下标下标2)As 类型类型下界下界 to 上界上界维数：几个下标为几维数组，最多维数：几个下标为几维数组，最多维数：几个下标为几维数组，最多维数：几个下标为几维数组，最多6060维维维维例：例：例：例：Dim mark(1 to 100)As IntegerDim mark(1 to 100)As Integer Dim c(0 to3,0 to 4)Dim c(0 to3,0 to 4)As IntegerAs Integer8每一维大小每一维大小:上界下界上界下界+1数组大小数组大小数组大小数组大小:每一维大小的乘积每一维大小的乘积每一维大小的乘积每一维大小的乘积Dim lArray(0 To 3，0 To 4)As Long共有共有共有共有 45 45个元素个元素个元素个元素下标下标下标下标:下界下界下界下界 To To 上界，下界可以省略上界，下界可以省略上界，下界可以省略上界，下界可以省略,当缺省时，当缺省时，当缺省时，当缺省时，下标的下界由下标的下界由下标的下界由下标的下界由Option Base nOption Base n语句控制语句控制语句控制语句控制,给出的上下界给出的上下界给出的上下界给出的上下界必须为常数。必须为常数。(1)(1)如果在数组声明的时候，没有给出下标下界，则下如果在数组声明的时候，没有给出下标下界，则下如果在数组声明的时候，没有给出下标下界，则下如果在数组声明的时候，没有给出下标下界，则下界由界由界由界由Option Base Option Base 语句控制语句控制语句控制语句控制,默认值为默认值为默认值为默认值为0 0。例如：例如：例如：例如：Dim b(2,4,3)Dim b(2,4,3)5.2.1 5.2.1 静态数组及声明静态数组及声明Option Base 1Option Base 1Dim a(2,0 to 4,3)Dim a(2,0 to 4,3)9Dim lArray(0 To 3，0 To 4)As Long 等价于:Dim lArray(3，4)As Long 5.2.1 5.2.1 静态数组及声明静态数组及声明(2)(2)考虑：下面对数组的声明是否正确？考虑：下面对数组的声明是否正确？考虑：下面对数组的声明是否正确？考虑：下面对数组的声明是否正确？n=Inputbox(“n=Inputbox(“输入输入输入输入n”n”）Dim x(n)As Single Dim x(n)As Single 错误的声错误的声明，下标明，下标是变量是变量105.2.1 5.2.1 静态数组及声明静态数组及声明(3)(3)例如：考虑两个例如：考虑两个例如：考虑两个例如：考虑两个x(10)x(10)的区别？的区别？的区别？的区别？Dim x(10)As Integer Dim x(10)As Integer x(10)=100 x(10)=100 声明了声明了x数组有数组有11个元素个元素 对对x(10)这个数组元素赋值这个数组元素赋值在数组声明中的下标说明了数组的整体在数组声明中的下标说明了数组的整体,即每一维即每一维的大小的大小;而在程序其他地方出现的下标表示数组中而在程序其他地方出现的下标表示数组中的一个元素。两者写法形式相同，但意义不同。的一个元素。两者写法形式相同，但意义不同。声明数组：声明数组：声明数组：声明数组：声明了数组的名、维数、大小、声明了数组的名、维数、大小、类型类型,并且对数组进行并且对数组进行初始化初始化11补充补充 与数组操作有关的几个函数与数组操作有关的几个函数1.Array函数函数2.(1)Array函数可方便地对数组整体赋值，但它只能给函数可方便地对数组整体赋值，但它只能给声明声明Variant的变量或仅由括号括起的动态数组赋值。的变量或仅由括号括起的动态数组赋值。=Array()(2)数组的下界由数组的下界由option base控制语句决定，上界由控制语句决定，上界由Array函数括号内的参数个数决定，也可通过函数函数括号内的参数个数决定，也可通过函数Ubound获得获得例如，要将例如，要将1,2,3,4,5,6,7 这些值赋值给数组这些值赋值给数组a，可使用下面，可使用下面的方法赋值。的方法赋值。Dim a()a=array(1,2,3,4,5,6,7)Dim a a=array(1,2,3,4,5,6,7)12 2.求数组的上界求数组的上界Ubound()函数、函数、下界下界 Lbound()函数函数 作用：分别用来确定数组某一维的上界和下界值。作用：分别用来确定数组某一维的上界和下界值。使用形式如下：使用形式如下：UBound(,)LBound(,)补充补充 与数组操作有关的几个函数与数组操作有关的几个函数Dim score(3,4)as integerUBound(score,2)其中：其中：必需的，遵循标准变量命名约定。：必需的，遵循标准变量命名约定。：可选的；一般是整型常量或变量。指定返回哪一：可选的；一般是整型常量或变量。指定返回哪一维的上界。维的上界。1 表示第一维，表示第一维，2 表示第二维，如此等等。表示第二维，如此等等。如果省略默认是如果省略默认是1。4LBound(score,2)0135.2.2 数组的引用数组的引用 使用数组就是对数组元素进行操作，对数组元使用数组就是对数组元素进行操作，对数组元素的操作类似于对简单变量的操作。素的操作类似于对简单变量的操作。引用数组元素需要注意的问题：引用数组元素需要注意的问题：引用数组元素的方法：在数组名后的括号中指引用数组元素的方法：在数组名后的括号中指明下标明下标例如例如a(5),b(3,4)a(5),b(3,4)引用数组元素时，数组名、数组类型必须与数组引用数组元素时，数组名、数组类型必须与数组声明时一致声明时一致 引用数组元素时，下标值应在数组声明时所指定引用数组元素时，下标值应在数组声明时所指定的范围内的范围内 在同一过程中，数组与简单变量不能同名在同一过程中，数组与简单变量不能同名141.1.数组元素的输入（赋初值）数组元素的输入（赋初值）(1)赋值语句赋值语句 Dim iA(1 To 10)As String iA(1)=“张三张三”:iA(2)=“李四李四”再如再如:for i=1 to 10 a(i)=int(Rnd*90)+10 循环加赋值循环加赋值 next i （2）在运行时通过）在运行时通过 inputbox函数输入函数输入for i=1 to 10 a(i)=inputbox(“请输入请输入”)next i 15(3)用循环用循环 For i =1 To 10 a(i)=0 Next i 1.1.数组元素的输入（赋初值）数组元素的输入（赋初值）(4)Array函数函数 Dim ib()用用array函数给动态数组赋值时不能指定数组类型函数给动态数组赋值时不能指定数组类型 ib=Array(abc,def,67)For i=0 To UBound(ib)form1.Print ib(i);Next i161.1.数组元素的输入（赋初值）数组元素的输入（赋初值）一维数组一维数组在输入时可用在输入时可用一重循环一重循环，二维数组二维数组要用要用二重循环二重循环，多维数组多维数组用用多重循环多重循环。在在VB中，中，数据按行存储数据按行存储，所以一般将数组第一维的循环，所以一般将数组第一维的循环变量放在外重循环中变量放在外重循环中例例5.1 求数组中的最小元素及下标求数组中的最小元素及下标要求：要求：创建一个包含创建一个包含10个元素的数组，从键盘输入个元素的数组，从键盘输入10个个数，找出其中最小的数，并且输出最小数的下标。数，找出其中最小的数，并且输出最小数的下标。数据分析数据分析:除了声明包含除了声明包含 10个元素的数组外个元素的数组外,还应该声明几还应该声明几个变量个变量,分别是什么类型分别是什么类型?求最大值最小值算法分析求最大值最小值算法分析:?17Private Sub Form_Click()Dim a(1 To 10)As Integer Dim min As Integer,p As IntegerFor i=1 To 10 a(i)=Val(InputBox(请输入一个数请输入一个数,输入数输入数,0)Next imin=a(1):p=1For i=2 To 10 If a(i)选择法选择法外重循环变量外重循环变量i:比较的趟数比较的趟数,n个数需要个数需要n-1趟比较趟比较,n从从1变化变化到到n-1内重循环内重循环j:每一趟比较的次数每一趟比较的次数,j从从i+1变化到变化到n23输入输入n个数据给个数据给a(1)到到 a(n)For i=1 to n-1For j=i+1 to na(j)a(i)YN打印输出打印输出a(1)到到a(n)交换交换a(i)和和a(j)这个算法能这个算法能化简吗化简吗24输入输入n个数据给个数据给a(1)到到 a(n)For i=1 to n-1imin=iFor j=i+1 to na(j)选择法改进选择法改进25例例53 由计算机产生由计算机产生10个个0100之间的随机整数，使用之间的随机整数，使用选择法排序，将这些数按递增的顺序排列。选择法排序，将这些数按递增的顺序排列。(纠正课本错纠正课本错误误)Dim a(1 To 10)As IntegerFor i=1 To 10 a(i)=Int(Rnd*100)+1 Print a(i);Next iFor i=1 To imin=i For j=To 10 If a(j)冒泡排序冒泡排序（1）比较第一个数与第二个数，若为逆序）比较第一个数与第二个数，若为逆序a(0)a(1)，则交，则交换；然后比较第二个数与第三个数；依次类推，直至第换；然后比较第二个数与第三个数；依次类推，直至第n-1个个数和第数和第n个数比较为止个数比较为止第一趟冒泡排序第一趟冒泡排序，结果，结果最大的最大的数数被安置在被安置在最后一个元素最后一个元素位置上位置上（2）对前）对前n-1个数进行第二趟冒泡排序，结果使个数进行第二趟冒泡排序，结果使次大次大的数被的数被安置第安置第n-1个元素位置个元素位置（3）重复上述过程，共经过）重复上述过程，共经过n-1趟冒泡排序后，排序结束趟冒泡排序后，排序结束272冒泡排序冒泡排序从上述过程可以看到：从上述过程可以看到：从上述过程可以看到：从上述过程可以看到：N N N N个数要比较个数要比较个数要比较个数要比较N-1N-1N-1N-1趟，而趟，而趟，而趟，而在第在第在第在第i i i i趟比较中，要进行趟比较中，要进行趟比较中，要进行趟比较中，要进行N-iN-iN-iN-i次两两比较。次两两比较。次两两比较。次两两比较。28冒泡法排序（升序）的冒泡法排序（升序）的VB程序：程序：2冒泡排序冒泡排序For i=1 To n-1For i=1 To n-1 For j=1 To n-i For j=1 To n-i If a(j)a(j+1)Then If a(j)a(j+1)Then temp=a(j)temp=a(j)a(j)=a(j+1)a(j)=a(j+1)a(j+1)=temp a(j+1)=temp End if End if Next j Next jNext iNext i293.二维数组的应用Dim StuScore(1 to 10,1 to 5)定义定义105的二维数组的二维数组可以使用可以使用For循环嵌套处理多维数组循环嵌套处理多维数组.二维数组中的元素的存储顺序是二维数组中的元素的存储顺序是按行存储按行存储的，的，因此因此外循环对应行的变化，内循环对应列的变化外循环对应行的变化，内循环对应列的变化比较合适比较合适。30例例5.4 设定一个设定一个5行行5列的矩阵，首先给这个矩阵赋列的矩阵，首先给这个矩阵赋值，其值为对应的行坐标和列坐标之和，然后在窗值，其值为对应的行坐标和列坐标之和，然后在窗体上以五行五列的方式输出。体上以五行五列的方式输出。数组定义：数组定义：Dim a(1 To 5,1 To 5)As IntegerFor i=1 To 5 For j=1 To 5 a(i,j)=i+j Next jNext i赋值：赋值：输出：输出：For i=1 To 5 For j=1 To 5 Print a(i,j);Next j Print 作用是什么？作用是什么？Next i3.二维数组的应用演示演示313.二维数组的应用请大家考虑：请大家考虑：如果声明一个如果声明一个 5行行5列的矩阵，其中元素列的矩阵，其中元素由计算机随机生成的小于由计算机随机生成的小于100的整数。求的整数。求（1）主对角线上元素之和）主对角线上元素之和（2）主对角线上元素之积）主对角线上元素之积（3）方阵中最大元素和最小元素及其对应）方阵中最大元素和最小元素及其对应的下标的下标325.3 动态数组动态数组请大家考虑：请大家考虑：请大家考虑：请大家考虑：如果首先要通过用户界面输入数组长度，然如果首先要通过用户界面输入数组长度，然如果首先要通过用户界面输入数组长度，然如果首先要通过用户界面输入数组长度，然后再用数组保存数据，应该如何定义数组呢？后再用数组保存数据，应该如何定义数组呢？后再用数组保存数据，应该如何定义数组呢？后再用数组保存数据，应该如何定义数组呢？例如：（动态数组示例）例如：（动态数组示例）动态数组：动态数组：动态数组：动态数组：指在声明数组时指在声明数组时指在声明数组时指在声明数组时未给出数组的大小未给出数组的大小未给出数组的大小未给出数组的大小(省省省省略括号中的下标略括号中的下标略括号中的下标略括号中的下标)；当要使用它时，随时用；当要使用它时，随时用；当要使用它时，随时用；当要使用它时，随时用ReDimReDim语句重新指出数组大小；语句重新指出数组大小；语句重新指出数组大小；语句重新指出数组大小；但不能改变数组的类型但不能改变数组的类型但不能改变数组的类型但不能改变数组的类型。33创建动态数组的过程创建动态数组的过程创建动态数组的步骤如下：创建动态数组的步骤如下：Public、Dim或或Static语句声明一个空维数组。语句声明一个空维数组。格式：格式：Dim 数组名数组名()As 数据类型数据类型 可以省略可以省略 在过程中用在过程中用ReDim语句分配实际的元素个数语句分配实际的元素个数（维数和每维下标范围）。（维数和每维下标范围）。形式形式:ReDim 数组名数组名(下标下标1，下标，下标2)As 类型类型 Sub Form_Load()Dim sArray()As Single ReDim sArray(4，8)End Sub34说明：说明：(1)Dim、Private、Public变量声明语句是说明性语句，可变量声明语句是说明性语句，可出现在过出现在过 程内或通用声明段；程内或通用声明段；ReDim语句是执行语句，只语句是执行语句，只能出现在过程内。能出现在过程内。(2)ReDim语句可以改变数组的维数、上界和下界，但是，语句可以改变数组的维数、上界和下界，但是，不能改变数组的类型不能改变数组的类型。同时数组的维数只能改变一次，由。同时数组的维数只能改变一次，由第一次出现的第一次出现的Redim语句定义的维数来决定语句定义的维数来决定。(3)在过程中可多次使用在过程中可多次使用ReDim来改变数组的大小，来改变数组的大小，每次每次使用使用ReDim语句都会使原来数组中的值丢失语句都会使原来数组中的值丢失，可以在，可以在ReDim语句后加语句后加Preserve参数用来保留数组中的数据，参数用来保留数组中的数据，但但使用使用Preserve只能改变最后一维的大小，前面几维大小不只能改变最后一维的大小，前面几维大小不能改变。能改变。35 例如：例如：Dim aa()As Integer Redim aa(2,3,4)Redim Preserve aa(2,3,7)Dim MyArray()As Interger Redim MyArray(10)Redim Preserve MyArray(15)(4)ReDim中的下标可以是常量，也可以是有了确定值的变量。中的下标可以是常量，也可以是有了确定值的变量。36Private Sub Command1_Click()Dim a()As Integer Dim sum As Integer Dim n As Integer Dim p As String n=Val(Text1.Text)ReDim a(1 To n)For i=1 To n a(i)=i Next i p=For i=1 To n-1 p=p&i&+sum=sum+a(i)Next p=p&i sum=sum+a(n)Label2.Caption=p&=&sumEnd Sub例例:用动态数组求和用动态数组求和37附加内容附加内容:For EachNext语句语句:它是一个循环语句，用来执行指定次数的循环，它是一个循环语句，用来执行指定次数的循环，但但For EachNext语句专门用于数组或对象集合语句专门用于数组或对象集合中的每个元素中的每个元素。1.语法格式语法格式For Each In Exit For Next 2.2.执行过程执行过程 可以对数组中的元素可以对数组中的元素进行查询、显示和读取。进行查询、显示和读取。执行的循环次数由数组元执行的循环次数由数组元素的个数决定。素的个数决定。说明：说明：1成员是一个成员是一个Variant 型变量型变量2数组是一个数组是一个数组名数组名，没有上下界，也可以没，没有上下界，也可以没 有括号有括号38例：例：7-12用用For EachNext语句，求语句，求1+2+3+100的值的值Private Sub Command1_Click()Dim x(1 to 100)As Integer Dim a 定义变量定义变量a，默认的，默认的 数据类型为数据类型为Variant 型型 Dim s As Integer 和变量和变量 s=0 求和初始化求和初始化 For i=1 To 100 给数组赋初值给数组赋初值 x(i)=i Next iEnd Sub For Each a In x s=s+a Next a Label1.Caption=sEnd Sub 代表着数组代表着数组x中确定的中确定的元素值元素值执行次数？执行次数？395.4 5.4 控件数组控件数组 一组一组相同类型相同类型的控件组成。的控件组成。它们它们共用一个控件名共用一个控件名，具有具有相同的属性相同的属性，建立时系统给每个元素赋一个唯一的，建立时系统给每个元素赋一个唯一的索引号索引号(Index)。控件数组共享同样的事件过程，通过控件数组共享同样的事件过程，通过返回的下标值返回的下标值区分控件数组中的各个元素区分控件数组中的各个元素。例：例：Private Sub cmdName _Click(Index As Integer)If Index=3 then 处理第四个命令按钮的操作处理第四个命令按钮的操作 End If End Sub402 2 选择以下方法之一创建控件数组：选择以下方法之一创建控件数组：为控件起相同的名字为控件起相同的名字 复制现有的控件复制现有的控件 指定控件的索引值指定控件的索引值演示演示5.4.2 控件数组的建立1.设计阶段在窗体中创建控件数组的步骤为：设计阶段在窗体中创建控件数组的步骤为：1 在窗体上添加一个新的控件（如命令按钮在窗体上添加一个新的控件（如命令按钮Command1），），以决定以决定控件的类型控件的类型和控件数组中的第和控件数组中的第1个控件。个控件。设置控件的设置控件的Name属性值属性值，为控件命名。，为控件命名。412.运行时添加控件数组成员运行时添加控件数组成员 控控件件数数组组必必须须是是设设计计时时创创建建的的，在在程程序序运运行行时时，可可以以通通过过Load方方法法向向控控件件数数组组中中添添加加新新的的控控件件成成员员，并并设设置置其其属属性性值值，也也可可以以通通过过Unload方方法法删删除除控控件件数数组组中的控件中的控件。Load方法和方法和Unload方法的格式是：方法的格式是：Load 控件数组名（控件数组名（Index）Unload 控件数组名（控件数组名（Index）Index为控件数为控件数组元素的下标组元素的下标42例：建立含有四个命令按钮的控件数组，当单击例：建立含有四个命令按钮的控件数组，当单击某个命令按钮，分别显示不同的图形或结束操作。某个命令按钮，分别显示不同的图形或结束操作。43 Private Sub Command1_Click(Index As Integer)Select Case Index Case 0 画直线画直线 Case 1 画矩形画矩形 Case 2 画圆画圆 Case Else End End Select End Sub演示演示默认控件名默认控件名默认控件名默认控件名下标下标下标下标(Index)(Index)标题标题标题标题(Caption)(Caption)Command1Command1 0 0直线直线直线直线Command1Command1 1 1矩形矩形矩形矩形Command1Command1 2 2圆圆圆圆Command1Command1 3 3结束结束结束结束Picture1Picture1 空白空白空白空白无定义无定义无定义无定义44【例【例】设计一个简易计算器，能进行整数的加、减、】设计一个简易计算器，能进行整数的加、减、乘、除运算。其运行界面如图所示。乘、除运算。其运行界面如图所示。界面设计：界面设计：一个标签一个标签用于计算器输出用于计算器输出,名称改名称改为为dataout；数字按钮控件数组数字按钮控件数组Number 09；操作符控件数组操作符控件数组Operator +-*/；一个一个“=”按钮用按钮用于计算结果于计算结果,名称改为名称改为result；一个一个“Cls”按钮用于清屏按钮用于清屏演示演示45程序如下：程序如下：程序如下：程序如下：窗体级变量声明窗体级变量声明窗体级变量声明窗体级变量声明 Dim op As Byte Dim op As Byte 用来记录前面输入的操作符用来记录前面输入的操作符用来记录前面输入的操作符用来记录前面输入的操作符 Dim ops1&Dim ops1&，ops2&ops2&两个操作数两个操作数两个操作数两个操作数,长整型长整型长整型长整型 Dim res As Boolean Dim res As Boolean 用来表示是否已算出结果用来表示是否已算出结果用来表示是否已算出结果用来表示是否已算出结果Private Sub clear_ClickPrivate Sub clear_Click（）（）（）（）cls cls按钮按钮按钮按钮 dataout.Caption=dataout.Caption=End Sub End SubPrivate Sub Form_LoadPrivate Sub Form_Load（）（）（）（）res=False res=FalseEnd SubEnd Sub46 按下数字键按下数字键按下数字键按下数字键0 09 9的事件过程的事件过程的事件过程的事件过程 Private Sub number_ClickPrivate Sub number_Click（i1 As i1 As IntegerInteger）If If Not resNot res Then Then 连续按下好几个数字键连续按下好几个数字键连续按下好几个数字键连续按下好几个数字键,例如例如例如例如8989 dataout.Caption=dataout.Caption dataout.Caption=dataout.Caption&i1&i1 Else Else dataout.Caption=dataout.Caption=i1i1 res=res=False False 结果还未算出结果还未算出结果还未算出结果还未算出 End If End If End Sub End Sub47 按下操作键按下操作键按下操作键按下操作键+、/的事件过程的事件过程的事件过程的事件过程 Private Sub operator_Click Private Sub operator_Click（i2 As i2 As IntegerInteger）ops1=dataout.Caption ops1=dataout.Caption 记下第一个操作记下第一个操作记下第一个操作记下第一个操作数数数数 op=i2 op=i2 记下对应的操作符记下对应的操作符记下对应的操作符记下对应的操作符 dataout.Caption=dataout.Caption=End Sub End Sub 48 按下按下=键的事件过程键的事件过程 Private Sub result_Click Private Sub result_Click（）（）ops2=dataout.Caption ops2=dataout.Caption 记下第二个操作数记下第二个操作数 Select Case opSelect Case op Case 0 Case 0 dataout.Caption=ops1+ops2 dataout.Caption=ops1+ops2 Case 1 Case 1 dataout.Caption=ops1-ops2 dataout.Caption=ops1-ops2 Case 2 Case 2 dataout.Caption=ops1*ops2 dataout.Caption=ops1*ops2 Case 3 Case 3 dataout.Caption=ops1/ops2 dataout.Caption=ops1/ops2 End SelectEnd Select res=True res=True 已算出结果已算出结果已算出结果已算出结果 End Sub End Sub49 数组中常见错误和注意事项数组中常见错误和注意事项1.1.静态数组声明下标出现变量静态数组声明下标出现变量 n=InputBox(输入数组的上界输入数组的上界)Dim a(1 To n)As Integer2 2数组下标越界数组下标越界 引用的下标比数组声明时的下标范围大或小。引用的下标比数组声明时的下标范围大或小。Dim a(1 To 30)As Long,i%a(1)=1:a(2)=1 For i=3 To 40 a(i)=a(i-2)+a(i-1)Next i50作业：作业：p1303(2)3(3)3数组维数错数组维数错 数组声明时的维数与引用数组元素时的维数不一数组声明时的维数与引用数组元素时的维数不一致。致。Dim a(3,5)As Long a(i)=104Aarry函数使用问题函数使用问题 只能对只能对Variant 的变量或动态数组赋值。的变量或动态数组赋值。数组中常见错误和注意事项数组中常见错误和注意事项51（1 1）求）求）求）求ASCASC码值码值码值码值 Asc Asc 函数用来求一个字符串首字符的函数用来求一个字符串首字符的函数用来求一个字符串首字符的函数用来求一个字符串首字符的ASCASC码值码值码值码值 语法格式为：语法格式为：语法格式为：语法格式为：Asc(string)Asc(string)参数参数参数参数stringstring可以是任何有效的字符串表达式。如果可以是任何有效的字符串表达式。如果可以是任何有效的字符串表达式。如果可以是任何有效的字符串表达式。如果 string string 中没有包含任何字符，则会产生运行时错误。中没有包含任何字符，则会产生运行时错误。中没有包含任何字符，则会产生运行时错误。中没有包含任何字符，则会产生运行时错误。例如：例如：例如：例如：Asc(“A”)=64Asc(“A”)=64（2 2）求）求）求）求ASCASC码字符码字符码字符码字符 Chr Chr 函数求一个函数求一个函数求一个函数求一个ASCASC码值所对应的码值所对应的码值所对应的码值所对应的ASCASC码字符码字符码字符码字符 。语法格式为：语法格式为：语法格式为：语法格式为：Chr(charcode)Chr(charcode)参数参数参数参数charcodecharcode是一个用来识别某字符的是一个用来识别某字符的是一个用来识别某字符的是一个用来识别某字符的 Long Long型数。型数。型数。型数。charcode charcode 的正常范围为的正常范围为的正常范围为的正常范围为 0 255 0 255。例如，例如，例如，例如，Chr(10)Chr(10)可以返回换行字符可以返回换行字符可以返回换行字符可以返回换行字符;例如：例如：例如：例如：Chr(64)=“A”Chr(64)=“A”52Private Sub Command1_Click()水仙花数，用两重循选环实现算法水仙花数，用两重循选环实现算法Dim a As Integer,b As Integer,c As IntegerDim n As IntegerText1.FontSize=36Text1.Text=此句可省略此句可省略For n=100 To 999 a=n 100 百位百位 b=(n 10)Mod 10 十位十位 c=n-100*a-10*b 个位个位 If a 3+b 3+c 3=n Then Text1.Text=Text1.Text&n&Chr(13)&Chr(10)此句中的此句中的text1.text不可省不可省End IfNext nEnd Sub53Private Sub Command1_Click()水仙花数，用三重循选环实现算法水仙花数，用三重循选环