visualbasic程序设计教案：数组

§3.6 数组VB中将数组分为静态数组和动组的名称和类型，然后在执行程序的过程中，依据实际需要再用ReDim语句定义数组的维数及变量的个数，而且允许使用简洁变量来进展数组中变量个数的定义。数组的使用在治理信息系统软件的程序设计中有着不行替代的作用，离开数组的使用，须生疏和把握的必备学问。【教学要求】了解：数组的概念。理解：静态数组和动态数组的区分；控件数组的作用。把握：数组的定义及使用方法；控件数组的应用。【本节重点】动态数组的应用。控件数组的应用。【本节难点】动态数组的应用。一、静态数组及声明1、一维数组一维数组的定义如下：Dim <数组名>([下界To]上界) [As 类型]假设缺省下界，系统默认为0。例：Dim num〔1To50〕AsInteger2、多维数组VB60维。多维数组的定义格式如下：Dim <数组名>〔[下界1 To]上界1，[下界2 To]上界2……〕[As 类型]例Dim A〔1，5〔1〕As Double二、动态数组动态数组在声明时只定义数组名或数组名及类型，不指定大小，在执行程序的过程中，再依据需要用Redim语句重定义数组的大小。重定义动态数组的语句格式如下：Redim <数组名>〔1[2……]〕留意：Redim语句中的下标可以是已被赋值的变量。在过程中可屡次使用Redim来转变数组的大小和维数。每次使用Redim语句都会使原数组中的数据丧失，如需要保存原数组数据，可用Preserve参数来保存，使用该参数只能转变最终一维的大小。DimxAsDoublePrivateSubForm_ClickW=InputBox〔“请问需要产生多少个随机数？“，，100，100〕W=Val(W)ReDimx(W)Fori=1ToWx(i)=RndPrintx(i);““;NextEndSub中依据统计或外部供给的信息才能确定数组中变量个数的状况。三、数组的根本操作1、用循环语句为数组元素赋初值例：使用For－Next0。PrivateSubForm_Load()Dima(10) AsIntegerFori=0To10a(i)=0NextEndSub2、使用Array函数给数组赋值例：给a5个奇数；给b3个英文字母。DimaAsVariant,bAsVariant,I%a=Array(1,3,5,7,9)b=Array(“x“,“y“,“z“)留意：利用Array函数对数组各元素赋值，声明的数组是可调数组，并且其类型只能是Variant。数组的下界为0，上界由函数括号中的参数个数打算。四、数组的应用举例1、排序：令计算机用随机函数自动生成2010－100之间的整数，将其按由20个随机数打印出来。DimX(20)AsIntegerDimi,j,kAsIntegerPrivateSubForm_LoadRandomizeFori=1To20X(i)=Rnd*90+10NextEndSubPrivateSubForm_ClickFori=1To19Forj=i+1To20IfX(i)>X(j)Thenk=X(i)：X(i)=X(j)：X(j)=kEndIfNextPrintX(I);NextEndSub例2、编程实现：当用户由键盘输入一串英文字母到文本框Text1中后，令计算机自动统计出Text1中各种英文字母消灭的次数〔不区分大小写，并将统计结果打印出来。PrivateSubCommand1_ClickDimssAsStringDima(1To26)AsInteger,i,kAsIntegerk=Len(Text1.Text)Fori=1Tokss=UCase(Mid(Text1.Text,i,1))Ifss>=“A“Andss<=“Z“Thena(Asc(ss)-64)=a(Asc(ss)-64)+1EndIfNextFori=1To26PrintChr(i+64)&“=“;a(i);“ “;IfiMod8=0ThenPicture1.PrintNextEndSub五、控件数组1、控件数组的概念控件数组是由一组一样类型的控件组成系统自动赐予每个控件唯一下标索引Inde，Index从0开头，然后按自然数依次编号。32767个元素。2、建立控件数组的方法建立控件数组的方法有以下两种：在设计时建立在设计时建立控件数组的方法及其过程如下：①在窗体上制作第一个控件，并设置其相关属性；②选中该控件，对第一个控件进展复制；③就会自动创立这个控件的控件数组；④依据需要，可屡次粘贴，以满足控件数量的需求。⑤建立共享的大事过程。例：编制一个狮子选大王的玩耍程序。图3.116头狮子，要从中选一个大王，选择的方法是：16头狮子编号并围成一圈；3；16头狮子中任意选择一头狮子，作为起始；第四步：从起始狮子开头绕狮子圈依次数3，将被数到3的狮子淘汰出局，取消作大王的资格；第五步：重复绕狮子圈依次数3，并淘汰被数到3的狮子，最终所剩的唯一一头狮子就是大王。例题界面设计：在窗体中创立狮子画面的图形控件组：Image1(0)Image1(1)Image1(2)Image1(16)；窗体中设计两个命令按钮Command1Command2，用于运行和完毕玩耍程序；窗体中设计两组合框Combo1和Combo最终设计一个文本框Text1用于显示所选狮子大王的编号。狮子选大王的玩耍的主要源程序如下：Dimi,j,k,l,m,nAsIntegerPrivateSubForm_LoadText1.Visible=FalseFori=1To16Combo1.AddItemiNextiFori=2To7Combo2.AddItemiNextiEndSubPrivateSubCommand1_Clicki=Val(Combo1.Text)j=Val(Combo2.Text)m=i-1n=16DoWhilen>1Fork=1Tojm=m+1m=mMod16DoWhileNot(Label1(m).Visible)m=m+1m=mMod16LoopNextkLabel1(m).Visible=FalseImage1(m).Visible=Falsen=n-1DoEventsti=DateAdd(“s“,1,Now)DoWhileti>NowLoopLoopFori=0To15IfImage1(i).VisibleThenk=i+1EndIfNextiText1.Visible=TrueText1.Text最终剩的是第“&k&“号狮子“EndSub程序运行时添加控件数组在程序运行时，可添加或删除控件数组元素，具体操作步骤如下：①在窗体上创立一个控件，设置其Index0；②在编程时使用Load方法添加其余元素，也可使用Unload方法删除某个元素，语句格式如下：Load 控件数组名〔Index〕Unload 控件数组名〔Index〕③每个添加的控件数组元素通过LeftTopVisible属性设置为True。9个命令按钮控件数组100－9十个数字。CommandCaption0Index属性值为：0，使得Command1成为控件数组中的第一个元素。其次步：其它9个控件数组元素在程序运行时添加，添加控件数组元素的源程序如下：PrivateSubForm_LoadDimi,m,nAsIntegerm=Command1(0).Heightn=Command1(0).WidthFori=1To 9LoadCommand1(i)Command1(i).Visible=TrueCommand1(i).Caption=iIfiMod3=1ThenCommand1(i).Top=Command1(i-1).Top-Command1(i).Height-230Command1(i).Left=Command1