Type 语句
在模块级别中使用,用于定义包含一个或多个元素的用户自定义的数据类型。
语法
[Private | Public] Type varname
elementname [([subscripts])] As type
[elementname [([subscripts])] As type]
End Type
Type 语句的语法包含下面部分:
部分 描述
Public 可选的。用于声明可在所有工程的所有模块的任何过程中使用的用户定义类型。
Private 可选的。用于声明只能在包含该声明的模块中使用的用户自定义的类型。
varname 必需的。用户自定义类型的名称;遵循标准的变量命名约定
elementname 必需的。用户自定义类型的元素名称。除了可以使用的关键字,元素名称也应遵循标准变量命名约定。
subscripts 可选的。数组元素的维数。当定义大小可变的数组时,只须圆括号。subscripts 参数使用如下语法:
[lower To] upper [,[lower To] upper]
如果不显式指定 lower,则数组的下界由 Option Base 语句控制。如果没有 Option Base 语句则下界为 0。
type 必需的。元素的数据类型;可以是Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal(目前尚不支持)、Date、String(对变长的字符串)、String length(对定长的字符串)、Object、Variant、其它的用户自定义的类型或对象类型。
说明
Type 语句只能在模块级使用。使用 Type 语句声明了一个用户自定义类型后,就可以在该声明范围内的任何位置声明该类型的变量。可以使用 Dim、Private、Public、ReDim 或 Static 来声明用户自定义类型的变量。
在标准模块中,用户自定义类型按缺省设置是公用的。可以使用 Private 关键字来改变其可见性。而在类模块中,用户自定义类型只能是私有的,且使用 Public 关键字也不能改变其可见性。
摘自 MSDN'在模块中
Public a0()
Public a1()
Public a2()
Public a3()
Public a4()
Public a5()
Public Function sz(n) '自定义动态二维数组
sz = Array(a0(n), a1(n), a2(n), a3(n), a4(n), a5(n))
End Function
Public Sub RedimSz(k) '重新分配这个二维数组空间
ReDim Preserve a0(k), a1(k), a2(k), a3(k), a4(k), a5(k)
End Sub
'在一个按钮的单击事件中
RedimSz (10) '重新分配这个二维数组空间
a4(10) = 100 '第10行第4列赋值100
Print sz(10)(4) '显示第10行第4列数据1、vbnet的
数组定义与变量定义差不多。可以用
dim
来定义
比如:
dim
a(100)
as
integer。
也可以不定义下标
在程序中
用
redim
来定义。
如:
dim
a()
as
integer
'
'
redim
a(100)
2、vbnet中定义数组可以直接赋值。
如:
dim
a()
as
integer
={1,
2,
3,4}
VB定义字符串数组与定义其它数组没大的区别,只是其赋值一般需要通过循环来获取来自某个特定来源的字符串集合。不然其数组任一元素其值都为空字符串。
Dim strSj(100) As String,本句声明一个下标为0,上标为100的共有101个元素的字符串数组。
如字符串数组大小不确定,可先声明动态数组。
Dim strSj() As String
再用 ReDim 语句分配实际的元素个数。ReDim 语句只能出现在过程中。
ReDim 语句支持这样的语法,它与固定数组中使用的语法相同。对于每一维数,每个 ReDim
语句都能改变元素数目以及上下界。但是,数组的维数不能改变。
字符串数组赋值可由For Next循环从数据表中获取字符串数据,或者由
Split函数从已知一长串有固定分割字符(如,或空格字符等)获取一维字符串数组。
ForNext 语句,以指定次数来重复执行一组语句。
Split函数。返回一个下标从零开始的一维数组,它包含指定数目的子字符串。
Dim cnt1 as Variantcnt1=array(1600,0,0,0,0)
================================
Array 函数
返回一个包含数组的 Variant。
语法
Array(arglist)
所需的 arglist 参数是一个用逗号隔开的值表,这些值用于给 Variant 所包含的数组的各元素赋值。如果不提供参数,则创建一个长度为 0 的数组。
说明
用来表示数组元素的符号由变量名、圆括号以及括号中的所需元素的索引号组成。在下面的示例中,第一条语句创建一个 Variant 的变量 A。第二条语句将一个数组赋给变量 A。最后一条语句将该数组的第二个元素的值赋给另一个变量。
Dim A As Variant
A = Array(10,20,30)
B = A(2)
使用 Array 函数创建的数组的下界受 Option Base 语句指定的下界的决定, 除非 Array 是由类型库(例如 VBAArray )名称限定。如果是由类型库名称限定,则 Array 不受 Option Base 的影响。
注意 没有作为数组声明的 Variant 也可以表示数组。除了长度固定的字符串以及用户定义类型之外,Variant 变量可以表示任何类型的数组。尽管一个包含数组的 Variant 和一个元素为 Variant 类型的数组在概念上有所不同,但对数组元素的访问方式是相同的。用一个带括号的变量名来定义一维数组和多维数组如dim a(5) as integer '定义了1个1维、6个元素数组dim a(5,5) as integer '定义了1个2维、36个元素的数组
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)