- 12
- 0
- 约6.36千字
- 约 29页
- 2015-11-19 发布于广东
- 举报
第3章 程序结构 设计应用程序功能 3.6 数组 在第4、5节课中,我们知道了用基本语句编写程序的方法。但是在实际应用中,对于大量的数据处理还不是很方便。如图3-31所示,由键盘输入10个数,显示在窗窗体上,然后排序显示。怎样设计实现这个问题,就是这节课要学习的数组。 3.6 数组 1. 什么是数组 (1)定义 数组:是具有相同数据类型的元素所构成的有序集合,每个数组是用一个统一的名称表示数组元素的集合,数组中的每一元素具有唯一索引号(即下标),可以用数组名及下标唯一地识别一个数组的元素。 其表示形式: A(1),A(12) X(1,1), X1(1,8), X(2,8) Y(0,0,0), Y(1,3,6) 等 3.6 数组 (2) 分类 VB中的数组,按不同的方式可分为以下几类: ● 按数组的大小是否可以改变来分为:定长数组、动态(可变长)数组。 ● 按元素的数据类型可分为:数值型数组、字符串数组、日期型数组、变体数组等。 ● 按数组的维数可分为:一维数组、二维数组、多维数组。 ● 对象数组:菜单对象数组、控件数组。 本节课主要研究定长数组的一维数组和二维数组。 3.6 数组 2. 怎样声明数组 一维数组的声明: Dim 数组名([下界to]上界)[As 数据类型] 或:Dim 数组名[数据类型符]([下界to]上界) 例:Dim A(1 to 10) as Integer 声明了A数组有10个元素 说明: ● 数组名的命名规则与变量的命名相同。 ● 数组的元素个数为:(上界-下界)+1。在首次声明数组时,缺省数组的大小说明,在数组名后只跟着一对括号,则定义的是动态数组。 ● [下界to]缺省时默认值为0,若希望下标从1开始,可在模块的通用部分使用Option Base语句将设为1。其使用格式是: Option Base 0|1 后面的参数只能取0或1 ● 下界和上界不能使用变量,必须是常量,常量可以是直接常量、符号常量或常量表达式,一般是整型常量。 如果省略as子句,则数组的类型为变体类型。 ● 数组中各元素在内存占一片连续的存储空间,一维数组在内存中存放的顺序是按下标大小的顺序, 3.6 数组 3. 怎样操作数组 一维数组的基本操作: (1)引用 数组名(下标) 其中:下标可以是整型变量、常量或表达式。 例如:设有数组 B(10) as Integer 则下面的语句都是正确的: A(1)=A(2)+B(1)+5 取数组元素运算 A(i)=B(i) 下标使用变量 B(i+1)=A(i+2) 下标使用表达式 (2) 可通过循环给数组元素赋初值 For i = 1 To 10 A(i)=1 A数组的每个元素值为1 Next i 3.6 数组 (3)数组的输入及输出 如图3-32所示,输入4个整数,并存入到数组a中,单击窗体并显示在窗体上 3.6 数组 解决步骤: ① 新建工程,添加窗体Form1。 ②设置窗体的属性,其属性如表3-21所示。 ③ 编写事件过程代码。 根据任务要求,单击窗体时显示,所以应该编写窗体的单击(Click)事件过程代码。 Option Base 1 使数组的下标下界为1 Private Sub Form_Click() Dim a(4) As Integer 声明数组 For i = 1 To 4 给数组赋值 a(i) = Val(InputBox(请输入数据:)) Print a( i )= a(i), 显示数组 Next i End Sub ④ 保存程序,调试运行。 3.6 数组 4. 怎样应用数组 一维数组的应用: (1) 统计 如图3-35所示,程序运行后,输入一串字符串,统计各字母出现的次数,大小写字母不区分,要求单击窗体在窗体体上显示各字母出现的次数。 统计26个字母出现的个数,必须声明一个具有26个元素的数组,每个元素的下标表示对应的字母,元素的值表示对应字母出现的次数。 从输入的字符串中逐一取出字符,转换成大写字符(使得大小写不区分),进行判断。 3.6 数组 5.相关知识点归纳 (1)二维数组的声明方法 Dim 数组名([下界] to 上界,[下界 to ]上界) [As 数据类型] 其中的参数与一维数组完全相同。 例如:Dim a(2,3) As Single 二维数组在内存的存放顺
您可能关注的文档
- 新UG NX 5.0应用与实例教程 教学课件 周玮 第2章.ppt
- 新UG NX 5.0应用与实例教程 教学课件 周玮 第3章.ppt
- 新UG NX 5.0应用与实例教程 教学课件 周玮 第4章.ppt
- 新UG NX 5.0应用与实例教程 教学课件 周玮 第5章.ppt
- 新UG NX 5.0应用与实例教程 教学课件 周玮 第6章.ppt
- 新UG NX 5.0应用与实例教程 教学课件 周玮 第7章.ppt
- 新UG NX 5.0应用与实例教程 教学课件 周玮 第8章.ppt
- 新UG NX 5.0应用与实例教程 教学课件 周玮 第9章.ppt
- 新UG NX 5中文版基础教程 教学课件 关振宇1 第1章 UG NX 5概述和基本操作.ppt
- 新UG NX 5中文版基础教程 教学课件 关振宇1 第2章 曲线功能.ppt
最近下载
- 烫伤应急处理培训课件.ppt VIP
- 中国生物多样性保护优先区域范围.PDF VIP
- 原发性胆汁性胆管炎诊疗指南(2025年版).pptx VIP
- 汽车车载网络及总线技术 教案全套 1.1 车载网络系统认知 ---6.3 MOST总线系统认知.docx
- 2025年新疆公务员省考《行测》真题(含答案).docx VIP
- 宝洁(SIMPL).pdf
- 2024年新疆公务员省考《行测》真题(含答案).docx VIP
- 2025年济南高考德语真题试卷(含答案解析).docx
- 2025最新初一历史重要历史事件时间轴整理.docx VIP
- 2025年枣庄科技职业学院单招职业技能考试题库完整版.docx VIP
原创力文档

文档评论(0)