网站大量收购独家精品文档,联系QQ:2885784924

[理学]VB课件chapter6.ppt

  1. 1、本文档共38页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
[理学]VB课件chapter6

* 第六章 数组 6.1 数组的概念 6.2 数组的基本操作 6.3 动态数组 6.4 控件数组 6.5 数组的应用 6.1 数组的概念 数组是包含相同数据类型的一组变量, 数组中的变量称为元素。 A(100) B(2,10) 在使用一个数组之前必须对数组进行定义,确定其名称、类型及其规模。 在 VB中有两种类型的数组: 1. 固定大小的数组 在定义时就确定了数组大小,并且在程序运行过程中,它总是保持同样的大小; 2. 动态数组 在定义时不指明其大小,并且在运行时其大小可以改变。 声明固定大小数组应包含的信息: ? 数组名 ? 数组的维数 ? 数组的大小 ? 数组的类型 数组定义 1.数组说明 Public |Private |Static | Dim 数组名([维界定义])[ As 数据类型] Dim a(10) as integer Dim b(3 To 5,7 To 8) as Single 数组说明语句的格式是: ★在定义固定大小数组时,维的上下界不可以是变量名。 如:M=10 Dim A(0 To M) As Integer [下界 To ]上界 数组中的变量称为元素,数组元素的表示方法如下: 数组名(下标1[,下标2 …]) 下标的取值为整型数,下标的取值范围用下式表示: [下界 To ]上界 ★数组说明符与数组元素的关系 可以使用Option Base 语句把数组下标的缺省下界设置为1: Option Base 1 Option Base 1 Dim a(4),b(3,2) as Integer 数组中各元素在内存占一片连续的存储空间, 一维数组在内存中存放的顺序是下标序号升序的顺序。 2.数组的结构 P87. 图6-1 Dim X(5) as Integer X(0) X(1) X(2) X(3) X(4) X(5) 存储结构 二维数组的存储方式: Dim A(1,2) as Single A(0,0) A(1,0) A(0,1) A(1,1) A(0,2) A(1,1) 第1列 第2列 第3列 二维数组的数组元素是 “按列 ”的顺序存放的 逻辑存储结构 A(0,0) A(0,1) A(0,2) A(1,0) A(1,1) A(1,2) 3.数组函数及数组语句 LBound 函数:返回数组某维的维下界的值。调用形式如下: LBound( aname[ , d ] ) 数组名 维数 UBound 函数:返回数组某维的维上界的值。 Dim A(5) As Integer, B(3 to 8,200 to 208) Print LBound(A), LBound(B,1),LBound(B,2) print Print UBound(A),UBound(B,1),UBound(B,2) Erase 语句:重新初始化大小固定的数组的元素,以及释放动态数组的存储空间。 Erase a1[ , a2, …] Dim A(3) As Integer,B() As Integer A(1)=1:A(2)=2:A(3)=3 ReDim B(4) Print A(1),A(2),A(3) Erase A,B Print A(1),A(2),A(3) For Each...Next 语句:针对一个数组或集合中的每个元素,重复执行一组语句。 For Each Element In array |object set [语句组] [Exit For] [语句组] Next [Element] 一个 Variant 变量 要处理的对象集合名 要处理的数组名 P90. For each next 例 6.2 数组的基本操作 1.数组元素的赋值 a.用赋值语句给数组元素赋值 Dim A(6) As Integer, I As Integer Dim B(1 To 2, 1 To 2) As Integer, J As Integer For I = 0 To 6 A(I) = Int(99 * Rnd + 1) Print A(I); Next I Print For I = 1 To 2 For J = 1 To 2 B(I, J) =

文档评论(0)

jiupshaieuk12 + 关注
实名认证
内容提供者

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

版权声明书
用户编号:6212135231000003

1亿VIP精品文档

相关文档