第七章数组22.ppt

该【第七章数组22 】是由【落意心冢】上传分享，文档一共【23】页，该文档可以免费在线阅读，需要了解更多关于【第七章数组22 】的内容，可以使用淘豆网的站内搜索功能，选择自己适合的文档，以下文字是截取该文章内的部分文字，如需要获得完整电子版，请下载此文档到您的设备，方便您编辑和打印。第七章数组22一维数组的声明{Dim|Private|Public}数组名([下界To]上界])As数据类型数组变量的作用域:公用数组:模块声明段用Public模块级数组:模块声明段用Private局部数组:过程中用Dim没有下界,则默认为0上界不能超出Long的范围 DimstuScore(1To40)AsInteger ‘整数数组,元素从stuName(1)到stuName(40)DimstuName(1To40)AsString ‘字符串数组Dimsalary(100)AsDouble‘元素从salary(0)到salary(100)给数组元素赋值数组元素用数组名(下标值)的方式来指定,下标可以直接是一个数字,也可以是整数变量或表达式。比如:stuName(1)="张三" '第1个元素的值为张三stuScore(8)=85 '第8个元素的值为85salaries(i)=salaries(i)+500 '第i个元素的值为原值加500给数组所有元素赋值,通常使用循环结构。如:Fori=0To99 '循环100次salary(i)=2000Next访问数组元素访问数组中的全部元素有两种方法:Dimiasinteger,xasvariantDimTemp(10)asinteger‘第一种方法Fori=0To10 Temp(i)=numNext‘第二种方法ForEachxInTemp **x变量必须是Variant类型**不能用于用户自定义类型数组示例1【例】输入40个学生的成绩,输出平均成绩以及高出平均成绩的人数。编程思路:为了操作的方便,利用【下一个】按钮将当前成绩放入数组中,并累计总成绩,然后清空成绩输入框等待下一个成绩的输入。当数组计数达到40后,统计平均成绩和超出人数,将结果输出到平均成绩文本框txtAvg和超出人数文本框txtOver中。数组示例1ConstMAXNUMBER=40 '定义常数表示学生人数为40Dimscore(MAXNUMBER)AsInteger '成绩数组,从第0个开始DimnumAsInteger,sumAsInteger ?mand1_Click() '按下按钮DimiAsInteger,countAsInteger,avgAsIntegerscore(num)=CInt() '给数组元素赋值sum=sum+score(num) '累计总成绩num=num+1Ifnum=MAXNUMBERThen '计算平均成绩和超过人数 MsgBox"输入完毕" avg=sum/MAXNUMBER count=0 Fori=1ToMAXNUMBER Ifscore(i)>avgThencount=count+1 Next =avg =="",可以自由定义数组的上下界。并且程序中可以使用LBound与UBound函数来获知一个数组的大小。LBound用来取出数组某一维的下界UBound用来取出数组某一维的上界如:DimstuScore(1To40)AsInteger (stuScore) '(stuScore) '输出结果为40数组大小可以随意变化吗如果数组元素个数是不可知的,通常声明一个尽可能大的数组以保证够用,但这样可能带来内存资源的浪费和内存操作速度的降低。VB提供的动态数组能够在运行时根据实际情况来改变数组的大小。声明时指定数组为动态数组声明动态数组,即空的一维数组。如:DimTemp()AsInteger使用过程中用ReDim分配实际的元素个数,维数和元素个数可任意更改。如:RedimTemp(10)AsInteger使用ReDim改变数组大小使用ReDim语句可以改变原来已经声明过的动态数组的大小,可以改变数组的上下界(使用数字、整数常量、整数变量或表达式),但不能改变数组的数据类型。 DimstuName()AsString '先声明一个动态数组 …… ReDimstuName(1To30)AsString '改变数组大小 …… ReDimstuName(1To30,1To2)AsString ReDim实质上就是一条给数组重新分配空间的语句,在一个过程中可以多次使用。二维数组二维数组的声明基本上与一维数组相似,但需要两个维数的上下界,它们之间使用逗号分隔。比如40个学生的5门科目的成绩采用数组记录,应该这样声明该数组: Dimscore(1To40,1To5)AsInteger '下界从1开始 或Dimscore(40,5)AsInteger '下界从0开始访问某个元素需要指定两个索引下标: Printscore(10,2) ‘输出第10个学生的第2门课程成绩访问全部数据,需要利用双层嵌套循环了: Fori=1to40 Forj=1to5 Printscore(i,j); '在同一行显示5门课程成绩 Next Print '换行 Next