资源描述：
《VisualBasic程序设计教程（第三版）.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、VisualBasic程序设计教程(第三版)马占飞第5章数组和自定义类型5.1数组的概念5.2数组的基本操作和排序5.3列表框和组合框控件5.4自定义类型及其数组5.5综合应用25.1数组的概念1.引例例5.1求100个学生的平均成绩，并统计高于平均分的人数。用简单变量和循环，求平均成绩程序段如下：aver=0Fori=1To100mark=InputBox("输入学生成绩")aver=aver+markNextiaver=aver/100问题（1）mark只能放一个学生的成绩，无法统计高于平均分的人数。（2）若用简单变量保存100个学生的成绩，则需
2、定义100个变量和使用100句输入语句。由此引入了数组。mark3用数组解决问题的程序如下：Dimmark(99)AsInteger'声明数组markDimaver!,overn%,i%aver=0Fori=0To99'输入成绩，求分数和mark(i)=InputBox("输入学生的成绩")aver=aver+mark(i)Nextiaver=aver/100'求100人的平均分overn=0Fori=0To99'统计高于平均分的人数Ifmark(i)>averThenovern=overn+1NextiMsgBox("平均分:"&aver&"高于平
3、均分人数:"&overn)mark(99)mark(98)…mark(2)mark(1)mark(0)4数组:不是一种数据类型，而是一组相同类型的变量的集合。作用：用一个数组名代表逻辑上相关的一批数据，用下标表示该数组中的各个元素，和循环语句结合使用，使得程序书写简洁。使用：必须先声明后使用55.1.2数组声明一维数组Dim数组名([下标下界To]上界)[As类型]说明：下标下界缺省为0，下标上界为常数。数组大小为：下标上界-下标下界+1。作用：声明了数组名、类型、维数、数组大小在内存分配一块连续的区域。6例：Dimmark(99)AsInteger
4、声明了一维定长整型数组mark，共有100个元素，下标范围为0To99；mark数组的各元素是mark(0)，mark(1)，…，mark(99)；mark(i)表示由下标i的值决定是哪一个元素。mark数组内存分配如下：mark(99)mark(98)…mark(2)mark(1)mark(0)每个数组元素有一个唯一的顺序号，下标不能超出数组声明时的上、下界范围，否则会产生“下标越界”错误。数组元素的使用规则与同类型的简单变量相同7多维数组声明Dim数组名(([下标1下界To]上界1，([下标下界2To]上界2…)[As类型]下标数决定了数组的维数
5、，数组的大小为每一维大小的乘积。例Dimx(2,4)AsLong声明了一个长整型的二维数组x；共占据3×5个长整型变量的空间x(1,4)x(1,3)x(1,2)x(1,1)x(1,0)x(2,4)x(2,3)x(2,2)x(2,1)x(2,0)x(0,4)x(0,3)x(0,2)x(0,1)x(0,0)85.1.3动态数组及声明建立动态数组要分两步：用Dim语句声明数组，但不能指定数组大小Dim数组名()As数据类型用ReDim语句动态地分配元素个数ReDim数组名(下标[,下标2…])例：Dims()AsSingleSubForm_Load()…R
6、eDims(4，8)…EndSub9定义动态数组大小注意：Dim是说明语句，可出现在程序的任何地方，而ReDim是执行语句，只能在过程中在过程中可多次使用ReDim语句来改变数组的大小，但不能改变维数和类型可在ReDim后加Preserve参数用来保留数组中的数据，若使用Preserve参数后，只能改变最后一维的大小。例5.2编一个程序，显示有n个数的非波那契数序列105.2数组的基本操作1、数组的输入通过TextBox控件或InputBox函数输入Dims(3,4)ASIntegerFori=0To3Forj=0To4s(I,j)=InputBox
7、("输入"&i&“,"&j&"元素")NextjNexti112、数组的输出例5.3形成5×5的方阵，分别输出方阵中各元素、上三角和下三角元素方阵规律：第一行的元素为0~4，以后每一行是前一行对应元素增加5上三角规律:每一行的起始列与行号相同,只要控制内循环的初值用Tab函数或Space定位控制输出的空格，123、求数组和、最值、位置例5.4求一维数组中各元素之和、最小数组元素，并将最小值数组元素与数组中第一个元素交换求元素和通过循环将每个元素进行累加求数组中最小元素假设第一个元素为最小，然后将该数与其他元素逐一比较，若发现小于最小值，就用新值替换最
8、小值，同时记录下标值。求最大值的方法与求最小值相似134、交换元素下标0123456789初值2643618
