71 数组的概念.pptVIP

  1. 1、本文档共24页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
71 数组的概念

7.1 数组的概念 数组:是具有相同数据类型的元素所成的有序集合,每个数组是用一个统一的名称表示数组元素的集合,数组中的每一元素具有唯一索引号(即下标),可以用数组名及下标唯一地识别一个数组的元素,。 数组必须遵循先声明后使用的原则,声明一个数组就是声明其数组名、类型、维数和数组的大小。下标的个数决定数组的维数,各维下标之间用逗号分开。在VB中有一维数组、二维数组等,最多可以达到60维。按声明时是否可以确定数组的大小将数组分为静态数组和动态数组,前者大小固定,后者大小不确定,以后在使用前需要重定义。 7.2.1 静态数组 在声明数组时,给定了数组元素个数的数组称为静态数组。 数组声明的形式为: Public| Private| Dim 数组名(维数定义)[As类型] 7.2.2 动态数组 静态数组的大小在定义数组时,已经通过指定上、下界确定下来。有时,可能事先无法确认到底需要多大的数组,而希望能够在运行时改变数组的大小,这就要用到动态数组。动态数组可以在任何时候由Redim语句指出维数的大小。 创建动态数组的步骤: (1)用Public语句(公用数组)、Dim语句(模块级数组)、Static或Dim语句(局部数组)在过程中声明数组。给数组附以一个空维数表,这样就将数组声明为动态数组。 (2)在过程中用ReDim语句为声明的动态数组分配实际的元素个数,格式为: ReDim [Preserve] 数组名〈维数定义)[As 类型] 7.2.3 数组在内存中存放的顺序 数组在内存中存放时,首先变化的是最后一维的下标,然后变化倒数第二维的下标。 7.2.4 数组的清除 经过定义的数组将为其分配相应的存储空间,其大小不能改变。为了重新初始化静态数组的元素,或者释放动态数组的存储空间,可以使用Erase 语句,其语法格式为: Erase arraylist 其中:参数arraylist是一个或多个用逗号隔开的需要清除的数组变量。 7.3 数组的基本操作 7.3.1 给数组元素赋初值 可以使用循环结果和Array函数给数组赋初值。 1.使用循环结构 如给数组strMark(100)的元素赋初值: For i = 1 To 100 strName(i) = 0 Next 2.使用Array 函数 Array 函数Variant的作用返回一个Variant型的数组,其语法格式为: 变量名=Array(列表) 7.4.1 控件数组的概念 7.4.2 控件数组的建立 1.设计时创建控件数组 7.5 自定义数据类型数组的应用 * * 7.1 数组的概念 7.2 静态数组和动态数组 7.3 数组的基本操作 7.4 控件数组 7.5 自定义数据类型数组的应用 第7章 数 组 例7-1:求35名学生的平均成绩以及最高成绩。 程序1: Dim aver As Integer, mark As Integer For i = 1 To 35 mark = InputBox(输入第 i 位学生的成绩, 数据输入) If mark maxmark Then maxmark = mark aver = aver+mark Next Print aver = aver/35; maxmark 程序2: Dim aver As Integer, mark(1 To 35) As Integer For i = 1 To 35 mark(i) = InputBox(输入第 i 位学生的成绩, 数据输入) If mark(i) maxmark Then maxmark = mark(i) aver = aver+mark Next Print aver = aver/35; maxmark 从表面上看,两端程序差别不大,但是后者引入了数组mark(1 to 35),这样,每一个学生的成绩都保留在数组中,可以随时加以调用。 7.2.1 静态数组 7.2.2 动态数组 7.2.3 数组在内存中存放的顺序 7.2.4 数组的清除 7.2 静态数组和动态数组 例7-2:设计图7-1所示应用程序,当单击“输入成绩”按钮时,在InputBox对话框中输入学生人数,然后在对话框中依次输入不多于人数的数个成绩。再次单击“输入成绩”按钮将追加学生人数和成绩。单击“显示成绩”按钮显示成绩、平均分和未输入成绩的人数。 图7-1 学生成绩统计程序运行实例 程序代码如下: Dim mark%(), aver%, k%, n% Private Sub inputmark(k, n, ave

文档评论(0)

xy88118 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档