[讲解]vb数组 自定义类型

[讲解]vb数组 自定义类型 VB数组&自定义类型 (2011-01-30 20:07:24) 标签: 分类: VB开发MATCH_ word word文档格式规范word作业纸小票打印word模板word简历模板免费word简历 _1714002578520_0 it VB数组&自定义类型 ?????????????????????????? 知识要点 自定义类型 自定义 格式 pdf格式笔记格式下载页码格式下载公文格式下载简报格式下载 : Type 数据类型名 数据元素名[(下标)] as 类型 ' 下标的意义与数组的下标差不多，具体请参考数组 …… End type Dim 变量名 as 数据类型名 数据类型名.数据元素名[(下标)]= 赋值 Dim 变量名(下标) as 数据类型名 '定义数组，具体请参考动态数组 --------------------------------------------------------- 1(数组的概念 数组:存放具有相同性质的一组数据，也就是数组中的数据必须是同一个类型和性质。 数组元素:数组中的某一个数据项。数组元素的使用同简单变量的使用。 2(静态数组的声明 静态数组:在声明时已确定了数组元素个数。 静态数组有一维数组、二维数组、多维数组。但最多为60维。 ?一维数组是指具有一个下标的数组 声明语句: Dim 数组名(下标)[As 类型] 实例: Dim text(4) As String text(0)="this" text(1)="is" text(2)="text" text(3)="!" 实际上就是定义一个含有4个元素的数组text ?二维数组是指具有两个下标的数组 声明语句: Dim 数组名(下标,下标)[As 类型] 实例: Dim text(2，3) As String '定义具有两行，三列的数组 text(0,0)="a" text(0,1)="b" text(0,2)="c" text(1,0)="d" text(1,1)="e" text(1,2)="f" 实际上就是定义一个含有6个元素的数组text，第一个下标称行，第二个称列 即: 0 1 2 0 a b c 1 d e f ?多维数组:即具有多个下标的数组。实际与上面差不多。注意最多只能60维 完整的声明形式:Dim数组名([下标 To]上标[，[下标 To]上标[，…]])As 类 型 '注意中括号的层次(中括号表示可省略) 实例: Dim text(1 To 2, 1 To 3) As String text(1, 1) = "a" text(1, 2) = "b" text(1, 3) = "c" text(2, 1) = "d" text(2, 2) = "e" text(2, 3) = "f" [注意]下标、上标必须为常数，不能为表达式或变量:省略下标，默认为0，也 可用Option Base语句重新设置下标的值。 3(动态数组的声明 声明形式: Dim 数组名()[As 类型] ReDim [Preserve] 数组名([下标To]上标[，[下标To]上标[，…]]) [注意]此时的上标、下标可以是赋了值的变量或表达式。若有Preserve关键字，表示当改变原有数组最末尾的大小时，使用此关键字可以保持数组中原来的数据。 4(控件数组 相同类型的控件组成的数组。 控件数组的建立:在 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 时的窗体上，通过对某控件的复制和粘贴操作:在程序运行时通过Load方法实现。 控件数组元素:由控件的Index属性值表示数组的F标。 5(数组的操作 应掌握的基本操作有:数组初始化、数组输入、数组输出、求数组中的最大(最小)元素及下标、求和、平均值、排序和查找等。 5.3 常见错误和难点 分析 定性数据统计分析pdf销售业绩分析模板建筑结构震害分析销售进度分析表京东商城竞争战略分析 (Dim数组声明 1 有时用户为了程序的通用性，声明数组的上标用变量来表示，如下程序段: n=InputBox("输入数组的上标") Dim a(1 To n)As Integer 程序运行时将在Dim语句处显示"要求常数表达式"的出错信息。即Dim语句中声明的数组上，下标必须是常数，不能是变量。 解决程序通用的问题，一是将数组声明的很大，这样浪费一些存储空间;二是利用动态数组，将上例改变如下: Dima()As Integer n=InputBox ("输入数组的上标") ReDim a(1 To n)As Integer 2(数组下标越标 引用了不存在的数组元素，即下标比数组声明时的下标范围大或小。例如，要形成有如下30项的斐波那契数列: 1,1,2,3,5,8,13,21,34,…,317811，514229，832040 正确的程序段如下: Dim a(1 To 30) As Long, i% 若将For i=3To 30改为For i=1 To 30，程序运行时会显示"下标越标"的出错信息，因为开始循环时i=l，执行到循环体语句a(i)=a(i-2)+a(i-1)，数组下标i-2、i-1均小于下标1。 同样若将上例:a(i)+a(i-2)+a(i-1)语句改为:a(i+2)=a(i)+a(i+1) 程序运行时也会显示"下标越标"的出错信息，这时是数组下标大于上标30。 3(数组维数错 数组声明时的维数与引用数组元素时的维数不一致。例如，下程序段为形成和显示3×5的矩阵: Dim a(3,5) As Long For i=1 To 3 For j=1 To 5 a(i)=i*j Print a(i);""; Next j Print Next i 程序运行到a(i)=i*j语句时出现"维数错误"的信息，因为在Dim声明时是二维数组，引用时的一个下标。 4(Aarry函数使用问题 Aarry函数可方便地对数组整体赋值，但此时只能声明Variant的变量或仅由括号括起的动态数组。赋值后的数组大小由赋值的个数决定。 例如，要将1，2，3，4，5，6，7这些值赋值给数组a，表2.5.1列出了三种错误及相应正确的赋值方法。 表2.5.1 Aarry函数表示方法 错误的Aarry函数赋值 改正的Aarry函数赋值 Dim a(1 To 8)a=Array(1,2,3,4,5,6,7,8) Dim a( )a=Array(1,2,3,4,5,6,7) Dim a As Integera=Array(1,2,3,4,5,6,7) Dim aa=Array(1,2,3,4,5,6,7) Dim aa()=Array(1,2,3,4,5,6,7) Dim aa=Array(1,2,3,4,5,6,7) 5(如何获得数组的上标、下标 Aarry函数可方便地对数组整体赋值，但在程序中如何获得数组的-上标、下标，以保证访问的数组元素在合法的范围内，可使用UBound和LBound函数来决定数组访问。 在上例中，若要打印a数组的各个值，可通过下面程序段实现: For i=Lbound(A) To Ubound(A) Print a(i) Next l 6(给数组赋值 VB6.0提供了可对数组整体赋值的新功能，方便了数组对数组的赋值操作。但真正使用不那么方便，有不少限制。数组赋值形式如下: 数组名2=数组名1 我们就此形式作讨论:这里的数组名2，实际上在前面的数组声明时，只能声明为Varian的变量，赋值后的数组2的大小、维数、类型同数组名1;否则，若声明成动态或静态的数组，例如: Dim数组名2()或Dim数组名2 (下标) 程序在运行到上述赋值语句时显示"不能给数组赋值"的出错信息。 所以，为了程序的安全、可靠，建议读者还是忍痛割爱，少用VB6(0的这一新功能，使用传统的循环结构来给数组赋值。基于此原因，我们也就在教程中不作展开。