可视化程序设计第6章 数组.ppt

VisualBasic程序设计教程程序设计教程机械工业出版社同名教材配套电子教案2003 2003 年年 6 6月月第6章数组6.16.1 数组的概念数组的概念 6.1.1 6.1.1 数组与数组元素数组与数组元素 6.1.2 6.1.2 数组的类型数组的类型 6.1.3 6.1.3 6.1.3 6.1.3 数组的维数数组的维数数组的维数数组的维数 6.1.4 6.1.4 6.1.4 6.1.4 数组的形式数组的形式数组的形式数组的形式6.26.2 固定大小的数组固定大小的数组 6.2.16.2.1数组的声明数组的声明6.2.26.2.2数组的使用数组的使用数组的使用数组的使用6.36.3动态数组动态数组动态数组动态数组6.3.16.3.1创建动态数组创建动态数组创建动态数组创建动态数组6.3.26.3.2保留动态数组的内容保留动态数组的内容保留动态数组的内容保留动态数组的内容 6.46.46.46.4 控件数组控件数组 6.4.1 6.4.1 控件数组的概念控件数组的概念 6.4.2 6.4.2 6.4.2 6.4.2 控件数组的建立控件数组的建立控件数组的建立控件数组的建立 6.4.3 6.4.3 控件数组的使用控件数组的使用6.56.5 For EachFor EachFor EachFor EachNextNextNextNext语句语句语句语句习题六习题六习题六习题六 6.1概概述述数组的概念：数组并不是一种数据类型，而是一组相数组的概念：数组并不是一种数据类型，而是一组相同类型数据的集合。用一个统一的名字（数组名）代表逻同类型数据的集合。用一个统一的名字（数组名）代表逻辑上相关的一批数据，每个元素用下标变量来区分；下标辑上相关的一批数据，每个元素用下标变量来区分；下标变量代表元素在数组中的位置。变量代表元素在数组中的位置。VisualBasic中的数组分类：中的数组分类：按数组的大小（元素个数）是否可以改变来分为：按数组的大小（元素个数）是否可以改变来分为：定长数组、动态（可变长）数组。定长数组、动态（可变长）数组。按元素的数据类型可分为：按元素的数据类型可分为：数值型数组、字符串数组、逻辑数组、数值型数组、字符串数组、逻辑数组、日期型数组、变体数组等、对象数组。日期型数组、变体数组等、对象数组。按数组的维数可分为：按数组的维数可分为：一维数组、二维数组、多维数组。一维数组、二维数组、多维数组。6.2固定大小的数组6.2.1数组的声明有有3种种方方法法声声明明固固定定大大小小的的数数组组，用用哪哪一一种种方方法法取取决决于于数数组组应应用的有效范围：用的有效范围：建建立立公公用用数数组组，在在模模块块的的通通用用段段用用Public语语句句声声明明数数组组。格格式为式为:Public数组名数组名(维数定义维数定义)As类型类型建建立立模模块块级级数数组组，在在模模块块的的通通用用段段用用Private或或Dim语语句句声声明明数数组。格式为组。格式为:Private|Dim数组名数组名(维数定义维数定义)As类型类型建建立立局局部部数数组组，在在过过程程中中用用Dim或或Private语语句句声声明明数数组组。格格式为式为:Dim|Private数组名数组名(维数定义维数定义)As类型类型6.2.2数组的使用数组的使用【例例6-1】随随机机产产生生10个个两两位位整整数数，找找出出其其最最大大值值、最最小小值值和和平平均值，如图均值，如图6-1所示。所示。设计步骤如下：设计步骤如下：(1)建立应用程序用户界面与设置对象属性。建立应用程序用户界面与设置对象属性。(2)编写代码。编写代码。考虑到要在不同的过程中使用数组，所以首先在模块的通用段声明数组：考虑到要在不同的过程中使用数组，所以首先在模块的通用段声明数组：Dima(1To10)AsInteger随机整数的生成由窗体的随机整数的生成由窗体的Load事件代码完成：事件代码完成：PrivateSubForm_Load()DimpAsStringRandomizep=Fori=1To10a(i)=Int(Rnd*90)+10p=p&Str(a(i)&,NextLabel1.Caption=LTrim(Left(p,Len(p)1)EndSub“重置重置”按钮按钮Command1的的Click事件代码：事件代码：PrivateSubCommand1_Click()Form_LoadText1.Text=Text2.Text=Text3.Text=EndSub求最大、最小以及平均值由求最大、最小以及平均值由“确定确定”按钮按钮Command2的的Click事件代码完成：事件代码完成：PrivateSubCommand2_Click()DimminAsInteger,maxAsInteger,sAsSinglemin=100:max=10:s=0Fori=1To10Ifa(i)maxThenmax=a(i)Ifa(i)a(j)Thent=a(i):a(i)=a(j):a(j)=tEndIfNextNextp=Str(a(1)Fori=2To10p=p&,&Str(a(i)NextLabel2.Caption=LTrim(p)EndSub【例例6-4】设设有有一一个个55的的方方阵阵，其其中中元元素素是是由由计计算算机机随随机机生生成成的的小小于于100的的整整数数。请求出：请求出：(1)对角线上元素之和；对角线上元素之和；(2)对角线上元素之积；对角线上元素之积；(3)方阵中最大的元素。方阵中最大的元素。设计步骤如下：设计步骤如下：(1)建立应用程序用户界面与设置对象属性。建立应用程序用户界面与设置对象属性。(2)编写代码。编写代码。考虑到要在不同的过程中使用数组，所以首先在模块的通用段声明数组：考虑到要在不同的过程中使用数组，所以首先在模块的通用段声明数组：Dima(5,5)AsInteger方阵的生成由窗体的方阵的生成由窗体的Load事件代码完成：事件代码完成：PrivateSubForm_Load()List1.ClearDimpAsStringRandomizeFori=1To5p=Forj=1To5a(i,j)=Int(Rnd*99)+1p=p&Format(a(i,j),!)NextList1.AddItemp,i1NextText1.Text=Text2.Text=Text3.Text=EndSub计算功能由计算功能由“计算计算”按钮按钮Command1的的Click事件代码完成：事件代码完成：PrivateSubCommand1_Click()DimsAsInteger,tAsLongs=0:t=1Fori=1To5s=s+a(i,i)t=t*a(i,i)IfMaxa(i,i)ThenMax=a(i,i):p=iNextMax=a(1,1):p=1:q=1Fori=1To5Forj=1To5IfMaxa(i,j)ThenMax=a(i,j):p=i:q=jNextNextText1.Text=sText2.Text=tText3.Text=a(&p&,&q&)EndSub“重置重置”按钮按钮Command2的的Click事件代码完成：事件代码完成：PrivateSubCommand2_Click()Form_LoadEndSub【例例6-5】设有设有10位同学的数学、语文、外语位同学的数学、语文、外语3门成绩，见表门成绩，见表6-2。姓名数学语文外语陈高阳898591赵世杰757884李民维648272马英丽886864杨广民797987李灵君918887陈吉至687364王东明586865姜大伟768188吴晓林788982试编写程序，实现如图试编写程序，实现如图6-9所示，即所示，即(1)成绩的查询。成绩的查询。(2)各科平均分数的计算。各科平均分数的计算。(3)显示各科平均分以下的同学姓名。显示各科平均分以下的同学姓名。设计步骤如下：设计步骤如下：(1)建立应用程序用户界面与设置对象属性。建立应用程序用户界面与设置对象属性。(2)编写代码。编写代码。考虑到要在不同的过程中使用数组，所以首先在模块的通用段声明数组：考虑到要在不同的过程中使用数组，所以首先在模块的通用段声明数组：Dima(1To10)AsString,b(1To10,1To4)AsInteger数组的赋值由窗体的数组的赋值由窗体的Load事件代码完成：事件代码完成：PrivateSubForm_Load()a(1)=陈高阳陈高阳:b(1,1)=89:b(1,2)=85:b(1,3)=91a(2)=赵世杰赵世杰:b(2,1)=75:b(2,2)=78:b(2,3)=84a(3)=李民维李民维:b(3,1)=64:b(3,2)=82:b(3,3)=72a(4)=马英丽马英丽:b(4,1)=88:b(4,2)=68:b(4,3)=64a(5)=杨广民杨广民:b(5,1)=79:b(5,2)=79:b(5,3)=87a(6)=李灵君李灵君:b(6,1)=91:b(6,2)=88:b(6,3)=87a(7)=陈吉至陈吉至:b(7,1)=68:b(7,2)=73:b(7,3)=64a(8)=王东明王东明:b(8,1)=58:b(8,2)=68:b(8,3)=65a(9)=姜大伟姜大伟:b(9,1)=76:b(9,2)=81:b(9,3)=88a(10)=吴晓林吴晓林:b(10,1)=78:b(10,2)=89:b(10,3)=82EndSub在列表框中显示姓名由窗体的在列表框中显示姓名由窗体的Activate事件代码完成：事件代码完成：PrivateSubForm_Activate()Forn=1To10List1.AddItema(n),n1b(n,4)=b(n,1)+b(n,2)+b(n,3)NextText1.Text=:Text2.Text=:Text3.Text=:Text4.Text=EndSub查阅学生的各科成绩由列表框的查阅学生的各科成绩由列表框的Click事件代码完成：事件代码完成：PrivateSubList1_Click()n=List1.ListIndex+1Text1.Text=b(n,1)Text2.Text=b(n,2)Text3.Text=b(n,3)Text4.Text=b(n,4)EndSub各各科科平平均均分分数数的的计计算算以以及及显显示示各各科科平平均均分分以以下下的的同同学学姓姓名名则则由由3个个命命令令按按钮钮的的Click事件代码分别完成：事件代码分别完成：PrivateSubCommand1_Click()s=0Forn=1To10s=s+b(n,1)Nexts=s/10p=Forn=1To10Ifb(n,1)sThenp=p&a(n)&NextMsgBox低低于于平平均均分分数数的的同同学学有有：&Chr(13)&Chr(13)&p,0,数数学学的的平平均均分为：分为：&sEndSub各各科科平平均均分分数数的的计计算算以以及及显显示示各各科科平平均均分分以以下下的的同同学学姓姓名名则则由由3个个命命令令按按钮钮的的Click事件代码分别完成：事件代码分别完成：PrivateSubCommand1_Click()s=0Forn=1To10s=s+b(n,1)Nexts=s/10p=Forn=1To10Ifb(n,1)sThenp=p&a(n)&NextMsgBox低低于于平平均均分分数数的的同同学学有有：&Chr(13)&Chr(13)&p,0,数数学学的的平平均均分为：分为：&sEndSubPrivateSubCommand3_Click()s=0Forn=1To10s=s+b(n,3)Nexts=s/10p=Forn=1To10Ifb(n,3)16ThenMsgBox请不要超过请不要超过16ExitSubEndIfReDima(n,n)Fori=1Tona(i,1)=1:a(i,i)=1Nextp=Format(1,!)&Chr(13)p=p&Format(1,!)&Format(1,!)&Chr(13)Fori=3Tonp=p&Format(a(i,1),!)Forj=2Toi1a(i,j)=a(i1,j1)+a(i1,j)p=p&Format(a(i,j),!)Nextp=p&Format(a(i,i),!)&Chr(13)NextMsgBoxp,0,杨辉三角形杨辉三角形EndIfEndSub6.4控件数组6.4.2控件数组的建立控件数组的建立设计时有3种方法创建控件数组：将相同名字赋予多个控件。复制现有的控件并将其粘贴到窗体上。将控件的Index属性设置为非Null数值6.4.3控件数组的使用1.命令按钮组【例例6-8】在例在例6-5中使用命令按钮控件数组。中使用命令按钮控件数组。(1)修改命令按钮的属性设置。修改命令按钮的属性设置。(2)(2)修改修改Command1的的Click事件代码。事件代码。(3)首首先先在在原原有有Command1的的Click事事件件过过程程中中增增加加参参数数声声明：明：IndexAsInteger，然后修改代码为：然后修改代码为：PrivateSubCommand1_Click(IndexAsInteger)k=IndexSelectCasekCase0t=数学的平均分为：数学的平均分为：Case1t=语文的平均分为：语文的平均分为：Case2t=外语的平均分为：外语的平均分为：EndSelects=0Forn=1To10s=s+b(n,k+1)Nexts=s/10p=Forn=1To10Ifb(n,k+1)Val(a(j).Text)ThenMsgBox交交换换A(&Trim(i)&)和和A(&Trim(j)&),A(&Trim(i)&_)A(&Trim(j)&)t=a(i).Text:a(i).Text=a(j).Text:a(j).Text=tEndIfa(j).BackColor=RGB(255,255,255)Nextja(i).BackColor=RGB(0,255,0)Nextia(10).BackColor=RGB(0,255,0)Label2.Caption=Frame1.Height=1000EndSub6.5ForEachNext语句语句ForEach成员成员In数组数组语句列语句列ExitForNext成员成员【例例6-13】在在本本章章例例6-1中中，可可以以将将“确确定定”按按钮钮Command2的的Click事件代码改为事件代码改为PrivateSubCommand2_Click()DimnAsInteger,mAsInteger,sAsSinglem=100:n=0:s=0ForEachxInaIfxnThenn=xIfxmThenm=xs=s+xNextText1.Text=nText2.Text=mText3.Text=s/10EndSub习题六习题六6.1某某数数组组有有20个个元元素素，元元素素的的值值由由键键盘盘输输入入，要要求求将将前前10个个元元素素与与后后10个个元元素素对对换换。即即第第1个个元元素素与与第第20个个元元素素互互换换，第第2个个元元素素与与第第19个个元元素素互互换换，第第10个个元元素素与与第第11个个元元素素互互换换。输输出出数数组组原原来来各各元元素素的的值值和和对对换换后后各各元元素的值。素的值。6.2编编写写程程序序，建建立立并并输输出出一一个个1010的的矩矩阵阵，该该矩矩阵阵两两条条对对角角线线元元素素为为1，其余元素均为，其余元素均为0。6.3有有一一个个66的的矩矩阵阵，各各元元素素的的值值由由键键盘盘输输入入，求求全全部部元元素素的的平平均均值值，并输出高于平均值的元素以及它们的行、列号。并输出高于平均值的元素以及它们的行、列号。6.4矩阵转置。即将矩阵行、列互换：矩阵转置。即将矩阵行、列互换：6.5找找出出二二维维数数组组nm中中的的“鞍鞍点点”。所所谓谓鞍鞍点点是是指指它它在在本本行行中中值值最最大大，在在本本列列中中值值最最小小。输输出出鞍鞍点点的的行行、列列号号，有有可可能能在在一一个个数数组组中中找找不不到到鞍鞍点点，如无鞍点则输出如无鞍点则输出“无无”。6.6求方阵的两个对角线元素和。求方阵的两个对角线元素和。6.7矩矩阵阵的的加加法法运运算算。两两个个相相同同阶阶数数的的矩矩阵阵A和和B相相加加，是是将将相相应应位位置置上上的元素相加后放到同阶矩阵的元素相加后放到同阶矩阵C的相应位置。的相应位置。+=6.6.8矩矩阵阵的的乘乘法法运运算算。设设A=(aij)为为nk矩矩阵阵，B=(bij)为为km矩矩阵阵，则则C=AB为为nm矩阵，矩阵，C中元素：中元素：6.9输输出出幻幻方方阵阵。幻幻方方阵阵也也称称魔魔方方阵阵，是是指指由由自自然然数数1n2（n为为奇奇数数）构构成的方阵，其各行、各列以及对角线元素之和均相等。如图成的方阵，其各行、各列以及对角线元素之和均相等。如图6-21所示。所示。6.10设设某某班班共共10名名学学生生，为为了了评评定定某某门门课课程程的的奖奖学学金金，按按规规定定超超过过全全班班平平均均成成绩绩10%者者发发给给一一等等奖奖，超超过过全全班班成成绩绩5%者者发发给给二二等等奖奖。试试编编制制程程序序，输出应获奖学金的学生名单（包括姓名、学号、成绩、奖学金等级）。输出应获奖学金的学生名单（包括姓名、学号、成绩、奖学金等级）。6.13选择法排序。选择法排序的基本思路如下选择法排序。选择法排序的基本思路如下设设有有10个个数数存存放放在在数数组组A中中，分分别别表表示示为为A(1)、A(2)、A(3)、A(4)、A(5)、A(6)、A(7)、A(8)、A(9)、A(10)。先先将将A(1)与与A(2)比比较较：指指针针k指指向向1，若若A(2)A(1)，则则将将指指针针k指指向向2（指指针针指指向向较较小小者者）。再再将将A(k)与与A(3)、A(10)比比较较，并并依依次次作作出出同同样样的的处处理理，指针指针k指向指向10个数中的最小者，然后将个数中的最小者，然后将A(k)与与A(1)互换。互换。6.11利利用用一一维维数数组组统统计计一一个个班班学学生生09、1019、2029、9099及及100各分数段的人数。如图各分数段的人数。如图6-22所示。所示。6.12利利用用随随机机函函数数，模模拟拟投投币币结结果果。设设共共投投币币100次次，求求“两两个个正面正面”、“两个反面两个反面”、“一正一反一正一反”3种情况各出现多少次。种情况各出现多少次。第第2轮轮：先先将将指指针针k指指向向2，将将A(k)与与A(3)、A(10)比比较较，并并依依次次作作出出同同样样的的处处理理指指针针k指指向向第第1轮轮余余下下的的9个个数数中中的的最最小小者者，然然后后将将A(k)与与A(2)互互换换。第第1轮轮余下的余下的9个数中的最小者放入个数中的最小者放入A(2)中。中。继继续续第第3轮轮、第第4轮轮、，直直到到第第9轮轮后后，余余下下的的A(10)自自然然就就是是10个个数数中中的的最最大大者。者。至此，至此，10个数已从小到大顺序存放在个数已从小到大顺序存放在A(1)A(10)中。中。6.14插入法排序。插入法排序的基本思路如下：插入法排序。插入法排序的基本思路如下：设设有有10个个数数存存放放在在数数组组A中中，分分别别表表示示为为A(1)、A(2)、A(3)、A(4)、A(5)、A(6)、A(7)、A(8)、A(9)、A(10)。先先将将A(1)与与A(2)比比较较，若若A(2)A(1)，则则将将A(1)、A(2)中中的的值值互互换换，A(1)、A(2)顺序排列。顺序排列。再再将将A(3)与与A(1)、A(2)比比较较，按按顺顺序序确确定定A(3)应应放放的的位位置置，A(1)、A(2)、A(3)顺序排列。顺序排列。依依次次将将后后面面的的数数一一个个一一个个地地拿拿来来插插入入到到排排好好序序的的数数列列中中，直直到到所所有有的的数数按按顺顺序排好。序排好。6.15冒泡法排序。冒泡法排序的基本思路如下：冒泡法排序。冒泡法排序的基本思路如下：设设有有10个个数数存存放放在在数数组组A中中，分分别别表表示示为为：A(1)、A(2)、A(3)、A(4)、A(5)、A(6)、A(7)、A(8)、A(9)、A(10)。先先将将A(1)与与A(2)比比较较，若若A(2)A(1)，则则将将A(1)、A(2)中中的的值值互互换换，A(2)存存放放较较大大者者。再再将将A(2)与与A(3)比比较较，较较大大的的数数放放入入A(3)中中，依依次次将将相相邻邻的两数比较，并作出同样的处理，最后将的两数比较，并作出同样的处理，最后将10个数中的最大者放入个数中的最大者放入A(10)中。中。第第2轮轮：依依次次将将A(1)、A(2)、A(9)相相邻邻的的数数作作比比较较，并并依依次次作作出出同同样样的处理，最后将第的处理，最后将第1轮余下的轮余下的9个数中的最大者放入个数中的最大者放入A(9)中。中。继继续续第第3轮轮、第第4轮轮、，直直到到第第9轮轮后后，余余下下的的A(1)自自然然就就是是10个个数数中中的的最小者。最小者。至此，至此，10个数已从小到大顺序存放在个数已从小到大顺序存放在A(1)A(10)中。中。6.16设设计计一一个个“通通讯讯录录”程程序序。当当用用户户在在下下拉拉列列表表框框中中选选择择某某一一人人名名后后，在在“电电话话号号码码”文文本本框框中中显显示示出出对对应应的的电电话话号号码码。当当用用户户选选择择或或取取消消“单单位位”和和“住住址址”复复选选框框后后，将将打打开开或或关关闭闭“工工作作单单位位”或或“家家庭庭住住址址”文文本框，如图本框，如图6-23所示。所示。6.17把把两两个个按按升升序序（即即从从小小到到大大）排排列列的的数数列列a(1)，a(2)，a(n)和和b(1)，b(2)，b(m)，合并成一个仍为升序排列的新数列。合并成一个仍为升序排列的新数列。6.18某某校校召召开开运运动动会会。有有10人人参参加加男男子子100m短短跑跑决决赛赛，运运动动员员号号码码和和成成绩绩如表如表6-5，试设计一程序，按成绩排名次。，试设计一程序，按成绩排名次。运动员号码成绩运动员号码成绩011号12.4秒476号14.9秒095号12.9秒201号13.2秒233号13.8秒171号11.9秒246号14.1秒101号13.1秒008号12.6秒138号15.1秒6.19已知某班学生已知某班学生m（m100）人，共人，共n（n20）门课程。试按平均成绩输门课程。试按平均成绩输出学生平均成绩名次表（要求每个学生的信息包括名次、姓名、学号、平均成出学生平均成绩名次表（要求每个学生的信息包括名次、姓名、学号、平均成绩等项）。绩等项）。提提示示：本本题题的的关关键键是是如如何何将将排排序序处处理理与与名名次次处处理理统统一一起起来来。显显然然名名次次问问题题并并非非就就是是排排序序问问题题，因因为为名名次次问问题题还还必必须须考考虑虑如如何何处处理理同同名名次次者者成成绩绩相相同同者者必必须须列列为为同同一一名名次次，而而同同名名次次的的处处理理则则需需用用名名次次计计数数器器与与相相应应选选择择结结构构相相配配合合来来解解决决。此此外外，必必须须注注意意到到学学生生姓姓名名、学学号号、平平均均成成绩绩是是构构成成学学生生信信息息的的不不可可缺缺少少的的重重要要组组成成部部分分，必必须须把把它它们们看看作作一一个个整整体体来来处处理理。因因此此，当当需需要要交交换换两两个个学生的信息时，必须同时整体交换。学生的信息时，必须同时整体交换。6.20设计简易计算器，如图设计简易计算器，如图6-24所示。所示。