VisualBasic程序设计第十讲2课时教学目标及基本
要求
对教师党员的评价套管和固井爆破片与爆破装置仓库管理基本要求三甲医院都需要复审吗
了解数组的定义掌握数组的基本操作掌握控件数组的用法教学重点数组的定义数组的基本操作控件数组的用法教学难点数组的基本操作；教学内容数组的定义数组的基本操作控件数组的用法数组的概念数组的定义数组的定义什么是静态数组与动态数组数组的概念静态数组与动态数组静态数组以一维数组为例，其语法格式为[Dim|Static|Private|Public]<数组名>（[Lowerto]Upper）[As元素类型说明]其中，[Dim|Static|Private|Public]可选项指明数组的作用域。[Lowerto]Upper指明数组的上下界，下界可以省略，其默认下界为0。简单介绍静态二维数组与三维数组。数组的概念【例7.1】建立两个数组，一个包含整数，而另一个包含字符串。然后声明一个Variant数组，并将整数数组和字符串数组放置其中。（1）创建Command1，编写单击事件过程（2）程序功能数组的概念动态数组一维动态数组的声明语法格式如下[Dim|Static|Private|Public]<数组名>（）[As元素类型说明]创建动态数组的步骤为：(1)声明数组为动态数组，只须给数组附以一个空的维数表。(2)在使用数组之前，使用ReDim语句声明其下标，以确定数组的维数以及元素的个数，并立即为其分配存储空间。数组的基本操作数组元素的输入使用赋值语句为数组元素赋初值【例7.2】使用赋值语句对数组进行初始化。PrivateSubForm_Click()Dimweek(6)AsStringweek(0)="Sunday"week(1)="Monday"printweek(0),week(1)EndSub数组的基本操作数组元素的输入使用Array函数为一维数组赋初值Array函数语法格式为Dim<数组名>AsVariant<数组名>=Array(<列表>)数组的基本操作【例7.3】使用Array函数给数组City的元素赋初值。编写窗体的单击事件过程如下：PrivateSubForm_Click()DimCity()AsVariantCity()=Array("北京","上海","西安","长沙")Fori=0to3Print"City(";i;")=";City(i)NextiEndSub数组的基本操作数组元素的输入使用InputBox函数为多维数组赋初值【例7.4】给数组Fruit（4）的元素赋初值。DimFruit(4)AsStringFori=1To4Day(i)=InputBox("enterDay:")Nexti数组的基本操作ForEach…Next语句ForEach…Next循环的语法：ForEachelementIngroupStatementNextelement数组的基本操作ForEach…Next语句使用ForEach…Next时的几点限制：对于集合，element只能是一个Variant变量的名字，或一般的Object对象变量，或“对象浏览器”中列出的对象。对于普通数组。element只能是Variant变量。ForEach…Next不能与用户自定义类型的数组一起使用，因为Variant不可能包含用户自定义类型。数组的基本操作ForEach…Next语句PrivateSubForm_Click()Dima()AsStringDimxAsVariantN=InputBox("请输入一个整数")'随意指定一个数ReDima(1ToN)AsString'按指定的数N调整数组a的大小Fori=1ToN'用常规For…Next循环语句给数组a各元素赋值a(i)="第"&i&"个元素"NextiForEachxIna'用ForEach…Next结构输出数组a各元素的值Printx'注意用到Variant变量xNextEndSub数组的基本操作数组间的初始化【例7.5】将数组D整体赋值给数组E。DimD（4）AsString,E()AsstringD(0)="王华":D(1)="黎明":D(2)="白雪":D(3)="刘芳":D(4)="吴情"E=D通过数组间的赋值，将数组D整体赋值给数组E，同时数组E的大小被确定为5。数组的基本操作数组的输出【例7.6】随机产生二维数组a(3,3)，交换最左边和最右边的两列元素，然后输出对角线上的元素。编写窗体的单击事件过程如下：PrivateSubForm_Click()Dima(3,3)AsIntegerFori=0To3Forj=0To3a(i,j)=Int(90*Rnd+10)NextjNextiFori=0To3PrintForj=0To3Printa(i,j);NextjNexti数组的基本操作（续）Fori=0To3temp=a(i,0):a(i,0)=a(i,3):a(i,3)=tempNextiPrintPrint"输出数组对角线元素"Fori=0To3Ifi-(3-i)<=0ThenPrintTab(i*3+1);a(i,i);Spc((2-2*i)*3+1);a(i,3-i)ElsePrintTab((3-i)*3+1);a(i,3-i);Spc((2*i-4)*3+1);a(i,i)EndIfNextiEndSub控件数组控件数组的概念控件数组是一组具有相同名称（即Name属性相同）和类型的控件，比如一组按钮或一组单选钮，这些控件共享相同的事件过程。与其他类型的数组一样，控件数组中的每个控件都有惟一的下标，其下标值由Index属性指定。控件数组创建控件数组创建一个控件数组的步骤。举例说明。小结数组这个概念，在各种编程语言中都有出现。数组，简言之，就是将一连串数字聚集在一起，形成组这个概念，其功能中存储一系列类型相同的变量，并且可以用相同名称引用这些变量，当使用多个类型和功能一致的数据时，使用数组可缩短和简化程序。本讲重点介绍数组的概念、定义和使用方法及其在程序设计中的应用。作业1．什么是静态数组？什么是动态数组？二者有什么区别？2．使用控件数组有什么好处？如何创建控件数组？3．对于动态数组，如何实现既增加数组元素的个数，又保存该数组中原有的值？4．举例说明控件数组中不同的数组元素可以对同一事件过程有不同的响应。
浙公网安备 33021202002483