Visual Basic程序设计案例教程第8章.pptVIP

4．二维数组的应用 在程序设计过程中，通过使用二维数组存放数据结合一些常用的算法来解决问题是很方便的。下面是几个二维数组与一些常用算法的应用实例。 例7．6 编写程序，通过输入界面输入个人信息，再根据查询条件进行查询。 分析： （1）个人信息可以通过界面输入，为记录第几人和每个人的信息，需要一个二维数组来存放个人信息。 （2）完成查询，需要从存放个人信息的二维数组中取出数据与条件比较。满足条件将信息显示出来。 操作步骤： （1）建立应用程序用户界面，并设置对象属性 （2）编写事件代码。各事件代码如下： 在通用段中声明数组 Option Base 1 Dim a(10,6) as variant Dim num as integer “输入”命令按钮的Click事件代码为： Private sub cmdinput_click() Static I as integer Text1.setfocus I=i+1 Form1.caption=“请输入第” str(I) “位同志的信息” A(I,1)=text1.text A(I,2)=text2.text A(I,3)=text3.text A(I,4)=text4.text A(I,5)=text5.text A(I,6)=text6.text Num =i text1.text=“” text2.text=“” text3.text=“” text4.text=“” text5.text=“” text6.text=“” end sub “查询”命令按钮的Click事件代码为： Private sub cmd2_click() Static I as integer For i=1 to num If a(I,1)=text1.text then text2.text = A(I,2) text3.text = A(I,3) text4.text = A(I,4) text5.text = A(I,5) text6.text = A(I,6) exit sub end if next i msgBox“查无此人！”，vbokonly, “抱歉” end sub “退出”命令按钮的Click事件代码为： Private sub exit_click() Unload me End sub 8.3.4 动态数组 前面提到过声明数组时，根据数组元素个数是否已确定，将数组分为静态数组和动态数组，声明时已确定数组元素个数的数组称为静态数组，声明时还未确定数组元素个数的数组称为动态数组。 在程序设计阶段有时并不知道数组所需大小，因而无法声明正确的数组大小，遇到这些情况，只能在设计阶段根据需要一面输入数据一面随着数据量的增加而重新声明数组的大小。 1．动态数组创建和使用方法 声明数组时，只定义数组名称和数组元素的数据类型，但没有定义数组的维数和元素的个数，这样声明的数组就是动态数组。当要使用动态数组时，必须在使用前用ReDim语句重新声明。 从上述可知：创建动态数组的步骤如下： （1）用dim语句声明一个未指明大小及维数的数组 格式：public | private | dim | static 数组名（） AS 类型说明符 功能：定义动态数组的名称. （2）用ReDim语句声明动态数组的大小 格式：ReDim [Preserve] 数组名（下标1的上界[,下标2的上界]…[,下标n的上界]）[AS 类型说明符] 例如，第一次在通用段中用语句dim a() as integer声明动态数组a，然后，在过程中给数组用ReDim分配空间。格式如下： 过程段中输入语句 Private sub form_load() ．．． ReDim a(10,20) ．．． End sub 这里的ReDim a(10,20)语句组上面声明的数组A（）分配一个11*21的整数空间。 使用说明： （1）声明动态数组时，并不指定数组的维数，数组的维数由第一次出现的ReDim语句指定。 （2）ReDim中下标可以是常量，也可以是有确定值的变量。 （3）ReDim语句是执行语句，只能出现在过程内，可以多次使用 ReDim来改变数组的大小和维数；但不能将一个数组定义为某种数据类型之后，再使用ReDim将该数组改为其他数据类型。 （4）程序每次执行ReDim，都会清除原数组中的内容，即每次ReDim语句都会对原来数组进行初始化，会造成原来数组中数据丢失。为保留原来数组中的数据，可在R