- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
第7章 数组 从存储角度看,前面使用的变量都是相互独立的、无关的,通常称它们为简单变量。但如果处理将200个学生的成绩按大小顺序排序这类问题,只使用简单变量将会非常麻烦,而利用数组却很容易实现。本章讲述VB数组的基本概念和使用方法,主要内容有:数组的概念、数组的定义及应用、可调数组的概念及应用、控件数组的概念及应用。 7.1 数组的概念 7.2 一维数组 7.3 二维数组 7.4 可调数组 7.5 控件数组 7.1 数组的概念 在实际应用中,常常需要处理相同类型的一批数据。例如,为了处理100个员工的工资,可以用S(1),S(2),…,S(100)来分别代表每个员工的工资,其中S(1)代表第一个员工的工资,S(2)代表第二个员工的工资……。在VB中,把一组相互关系密切的数据放在一起并用一个统一的名字作为标志,这就是数组。 数组中的每一个数据称为数组元素,用数组名和该数据在数组中的序号来标识。序号又称为下标,数组元素又称为下标变量。例如,S(2)是一个数组元素,其中的S称为数组名,2是下标。在使用数组元素时,必须把下标放在一对紧跟在数组名之后的括号中。S(3)是一个数组元素,而S3是一个简单变量。 如果只用一个下标就能确定某个数组元素在数组中的位置,这样的数组称为一维数组。如果用两个或多个下标才能确定某个数组元素在数组中的位置,则数组分别称为二维数组或多维数组。 7.2 一维数组 7.2.1 一维数组的定义 数组应当先定义后使用,数组的定义又称为数组的声明或说明。 对于固定大小的一维数组,用如下格式进行定义: 说明符 数组名(下标)[As 类型] 例如:Dim y(5)As Integer 定义了一个一维数组,该数组的名字为y,类型为Integer,占据6个(0~5)整型变量的空间。 说明: (1)“说明符”为保留字,可以为Dim,Public,Private,Static中的任意一个。在使用过程中可以根据实际情况进行选用。本章主要讲述用Dim声明数组,其它参数的意义在8.4节介绍。定义数组后,数值数组中的全部元素都初始化为0,字符串数组中的全部元素都初始化为空字符串。 (2)“数组名”的命名遵守标识符规则。 (3)“下标”的一般形式为“[下界 to] 上界”。 下标的上界、下界为整数,不得超过Long数据类型的范围,并且下界应该小于上界。如果不指定下界,下界默认为0。 (4)要注意区分“可以使用的最大下标值”和“元素个数”。 (5)“As类型”用来说明“数组元素”的类型,可以是Integer,Long,Single,Double,Currency,String(定长或变长)等基本类型或用户定义的类型,也可以是Variant类型。如果省略“As类型”,则数组为Variant类型。 (6)在同一个过程中,数组名不能与变量名同名,否则会出错。 (7)可以通过类型说明符来指定数组的类型。 例如:Dim A%(5),B!(3 To 5),C#(12) 7.2.2 一维数组的引用 数组的引用通常是对数组元素的引用。一维数组元素的表示形式为: 数组名(下标) 一般通过循环语句及InputBox函数、文本框给数组输入数据。数组的输出一般用Print方法、标签或文本框实现。 【例7.2】编写程序,把输入的10个整数按逆序输出。 Private Sub Command1_Click() Dim a(10)As Integer,i% Print 输入的数据为 For i = 1 To 10 a(i)= InputBox(请输入一个整型数) Print a(i), Next i Print Print 逆序输出为 For i = 10 To 1 step -1 Print a(i), Next i End Sub 7.2.3 一维数组的应用举例 【例7.3】从键盘上输入40人的考试成绩,输出高于平均成绩的分数。 分析:该问题可分三部分处理:一是输入40个人的成绩;二是求平均分;三是把这40个分数逐一和平均成绩进行比较,若高于平均成绩,则输出。 程序如下: Private Sub Command1_Click() Dim score(40)As Single,aver!,i% aver = 0 For i = 1 To 40 score(i)= InputBox(请输入
文档评论(0)