VB程序设计(第2版)教学课件5-4-动态数组

VB程序设计动态数组VB程序设计动态数组1问题引入想一想，如何利用一个数组存放长度不同的词？lycheesblueberries问题引入想一想，如何利用一个数组存放长度不同的词？lych2列表框动态数组概述1动态数组定义及说明2动态数组应用3动态数组列表框动态数组概述13动态数组概述1数组在定义时不指定下标值

动态数组提供了一种灵活的管理机制，它在程序运行期间能够根据用户的需要随时改变数组大小。动态数组概述1数组在定义时不指定下标值动态数组4动态数组定义2定义动态数组，需分两步进行：【步骤1】

定义一个没有下标值的数组。

Dim数组名()[As数据类型]【步骤2】

用ReDim语句分配实际的元素个数。

ReDim

数组名(下标)[As数据类型]动态数组定义2定义动态数组，需分两步进行：【步骤1】定义一5动态数组说明2【说明】①在步骤1中定义数组，在步骤2中为动态数组分配存储空间。②ReDim语句是一个可执行语句。动态数组说明2【说明】①在步骤1中定义数组，在步骤2中为动6动态数组说明2【说明】③可使用ReDim语句多次改变数组的大小，也可改变数组的维数，但不能改为数组的数据类型。④使用ReDim语句会使原数组中的值丢失。⑤使用Preserve参数可保存数组中原来的数据。动态数组说明2【说明】③可使用ReDim语句多次改变数组的7动态数组说明2Dimda1()AsInteger

'定义动态数组ReDimda1(10)AsInteger'重新定义数组的大小

……'再次使用时又重新定义数组的大小ReDimda1(20,20)AsInteger正确定义动态数组的方法：动态数组说明2Dimda1()AsInteger8动态数组说明2Dimda1()AsInteger

'定义动态数组ReDimda1(10)AsInteger'重新定义数组的大小

……'再次使用时又重新定义数组的大小ReDimda1(20,20)AsInteger正确定义动态数组的方法：动态数组说明2Dimda1()AsInteger9动态数组说明2Dimdy()AsIntegerReDimdy(10)AsInteger

……ReDimdy(20,20)

AsString下面动态数组的定义方法是错误的，你知道错在哪吗？动态数组说明2Dimdy()AsInteger10动态数组说明2动态数组，给了我们短时间使用大数组的机会，然后，在不使用这个数组时，将内存空间释放。动态数组说明2动态数组，给了我们短时间使用大数组11动态数组应用3【应用】利用输入对话框，输入不同水果单词，并且将其存放在数组中。当输入空串时停止输入，最后将输入的水果单词显示在文本框中。lycheesblueberriesbananas界面设计动态数组应用3【应用】利用输入对话框，输入不同水果单词，并且12动态数组应用3代码设计PrivateSubCommand1_Click()

Dimstr()AsStringDimmaxAsIntegermax=-1Dotem=InputBox("请输入水果单词，输入空串结束。")

IfTrim(tem)=""ThenExitDoEndIf动态数组应用3代码设计PrivateSubCommand13动态数组应用3代码设计max=max+1

ReDimPreservestr(max)AsString'重新分配空间，并保留数组原有数据

str(max)=temLoops=""Fori=0Tomaxs=s+str(i)+Chr(13)+Chr(10)NextiText1.Text=sEndSub动态数组应用3代码设计max=max+114总结

动态数组，给了我们短时间使用大数组的机会。

定义动态数组，需分两步进行。

可用ReDim语句改变数组大小，也可改变数组的维数。总结动态数组，给了我们短时间使用大数组15善于思考善于学习善于思考善于学习16VB程序设计动态数组VB程序设计动态数组17问题引入想一想，如何利用一个数组存放长度不同的词？lycheesblueberries问题引入想一想，如何利用一个数组存放长度不同的词？lych18列表框动态数组概述1动态数组定义及说明2动态数组应用3动态数组列表框动态数组概述119动态数组概述1数组在定义时不指定下标值

动态数组提供了一种灵活的管理机制，它在程序运行期间能够根据用户的需要随时改变数组大小。动态数组概述1数组在定义时不指定下标值动态数组20动态数组定义2定义动态数组，需分两步进行：【步骤1】

定义一个没有下标值的数组。

Dim数组名()[As数据类型]【步骤2】

用ReDim语句分配实际的元素个数。

ReDim

数组名(下标)[As数据类型]动态数组定义2定义动态数组，需分两步进行：【步骤1】定义一21动态数组说明2【说明】①在步骤1中定义数组，在步骤2中为动态数组分配存储空间。②ReDim语句是一个可执行语句。动态数组说明2【说明】①在步骤1中定义数组，在步骤2中为动22动态数组说明2【说明】③可使用ReDim语句多次改变数组的大小，也可改变数组的维数，但不能改为数组的数据类型。④使用ReDim语句会使原数组中的值丢失。⑤使用Preserve参数可保存数组中原来的数据。动态数组说明2【说明】③可使用ReDim语句多次改变数组的23动态数组说明2Dimda1()AsInteger

'定义动态数组ReDimda1(10)AsInteger'重新定义数组的大小

……'再次使用时又重新定义数组的大小ReDimda1(20,20)AsInteger正确定义动态数组的方法：动态数组说明2Dimda1()AsInteger24动态数组说明2Dimda1()AsInteger

'定义动态数组ReDimda1(10)AsInteger'重新定义数组的大小

……'再次使用时又重新定义数组的大小ReDimda1(20,20)AsInteger正确定义动态数组的方法：动态数组说明2Dimda1()AsInteger25动态数组说明2Dimdy()AsIntegerReDimdy(10)AsInteger

……ReDimdy(20,20)

AsString下面动态数组的定义方法是错误的，你知道错在哪吗？动态数组说明2Dimdy()AsInteger26动态数组说明2动态数组，给了我们短时间使用大数组的机会，然后，在不使用这个数组时，将内存空间释放。动态数组说明2动态数组，给了我们短时间使用大数组27动态数组应用3【应用】利用输入对话框，输入不同水果单词，并且将其存放在数组中。当输入空串时停止输入，最后将输入的水果单词显示在文本框中。lycheesblueberriesbananas界面设计动态数组应用3【应用】利用输入对话框，输入不同水果单词，并且28动态数组应用3代码设计PrivateSubCommand1_Click()

Dimstr()AsStringDimmaxAsIntegermax=-1Dotem=InputBox("请输入水果单词，输入空串结束。")

IfTrim(tem)=""ThenExitDoEndIf动态数组应用3代码设计PrivateSubCommand29动态数组应用3代码设计max=max+1

ReDimPreservestr(max)AsString'重新分配空间，并保留数组原有数据

str(max)=temLoops=""Fori=0Tomaxs=s+str(i)+Chr(13)+Ch