社区
ASP
帖子详情
請問UBound()怎么用﹖另ReDim 與dim 有什么區別
miss_yu
2003-08-20 03:56:39
請問UBound()怎么用﹖另ReDim 與dim 有什么區別,謝謝
...全文
129
6
打赏
收藏
請問UBound()怎么用﹖另ReDim 與dim 有什么區別
請問UBound()怎么用﹖另ReDim 與dim 有什么區別,謝謝
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
diya
2003-08-20
打赏
举报
回复
ReDim:在使用动态数组时必须随后使用 ReDim 确定维数和每一维的大小。
xiaobaowu
2003-08-20
打赏
举报
回复
UBound 函数 语言参考
--------------------------------------------------------------------------------
描述
返回指定数组维数的最大可用下标。
语法
UBound(arrayname[, dimension])
UBound 函数的语法有以下参数:
参数 描述
arrayname 必选。数组变量名,遵循标准变量命名约定。
dimension 可选。指定返回哪一维上界的整数。1 表示第一维,2 表示第二维,以此类推。如果省略 dimension 参数,则默认值为 1。
说明
UBound 函数与 LBound 函数一起使用,用于确定数组的大小。使用 LBound 函数可以确定数组某一维的下界。
所有维的下界均为 0。对于有这样维数的数组,UBound 函数返回以下结果:
Dim A(100,3,4)
语句 返回值
UBound(A, 1) 100
UBound(A, 2) 3
UBound(A, 3) 4
ReDim 语句 语言参考
--------------------------------------------------------------------------------
描述
在过程级中声明动态数组变量并分配或重新分配存储空间。
语法
ReDim [Preserve] varname(subscripts) [, varname(subscripts)] . . .
ReDim 语句语法有以下部分:
部分 描述
Preserve 当更改现有数组最后一维的大小时保留数据。
varname 变量名,遵循标准变量命名约定。
subscripts 数组变量的维数,最多可以声明 60 维数组。subscripts 参数语法格式如下:
upper [,upper] . . .
数组的下界总是零。
说明
ReDim 语句通常用于指定或修改动态数组的大小,这些数组已用带有空括号的 Private、Public 或 Dim 语句(没有维数下标)正式声明过。可以重复使用 ReDim 语句更改数组维数和元素数目。
如果使用了 Preserve 关键字,就只能调整数组最后维的大小,并且不能改变数组的维数。例如,如果数组只有一维,就可以修改该数组的大小,因为该维是最后的也是仅有的一维。但是,如果数组有两个或更多维,就只能改变末维的大小并保留数组内容。
这个例子说明如何不擦掉该数组中存在的数据,而增加动态数组的终止维数。
ReDim X(10, 10, 10)
. . .
ReDim Preserve X(10, 10, 15)
--------------------------------------------------------------------------------
小心 如果减小数组的大小,则将丢失被排除的元素中的数据。
--------------------------------------------------------------------------------
变量初始化时,数值变量初始化为 0,字符串变量初始化为零长度字符串 ("")。在使用引用对象的变量前,必须使用 Set 语句将某个现有对象赋予该变量。在进行对象赋值以前,已声明的对象变量有特定值 Nothing。
lions911
2003-08-20
打赏
举报
回复
REDIM就是你定义了一个数组,觉得有问题,就REDIM重新定义一下,我感觉。
hengxin54
2003-08-20
打赏
举报
回复
ubound(array),arry为数组,此函数反回array的数组大小
dim 为定义一个变量
redim为重新定义这个变量,redim一般用于对数组的重新定义。重新定义后会丢失所有数据
可用redim preserv array来改变数组大小而不丢失数据
erase为消毁数组。
chinesun
2003-08-20
打赏
举报
回复
UBound
返回指定数组维数的最大可用下标。
UBound(arrayname[, dimension])
参数
arrayname
必选项。数组变量名,遵循标准变量命名规则。
Dimension
可选项。指定返回哪一维上界的整数。1 表示第一维,2 表示第二维,以此类推。如果省略 dimension 参数,则默认值为 1。
说明
UBound 函数与 LBound 函数一起使用,用于确定数组的大小。使用 LBound 函数可以确定数组某一维的下界。
所有维的下界均为 0。对于有这样维数的数组,UBound 函数返回以下结果:
Dim A(100,3,4)
语句 返回值
UBound(A, 1) 100
UBound(A, 2) 3
UBound(A, 3) 4
____________________________________
ReDim 语句
在过程级中声明动态数组变量并分配或重新分配存储空间。
ReDim [Preserve] varname(subscripts) [, varname(subscripts)] . . .
参数
Preserve
当更改现有数组最后一维的大小时保留数据。
varname
变量名,遵循标准变量命名规则。
subscripts
数组变量的维数,最多可以声明 60 维数组。subscripts 参数语法格式如下:
upper [,upper] . . .
数组的下界总是零。
说明
ReDim 语句通常用于指定或修改动态数组的大小,这些数组已用带有空括号的 Private、Public 或 Dim 语句(没有维数下标)正式声明过。可以重复使用 ReDim 语句更改数组维数和元素数目。
如果使用了 Preserve 关键字,就只能调整数组最后维的大小,并且不能改变数组的维数。例如,如果数组只有一维,就可以修改该数组的大小,因为该维是最后的也是仅有的一维。但是,如果数组有两个或更多维,就只能改变末维的大小并保留数组内容。
这个例子说明如何不擦掉该数组中存在的数据,而增加动态数组的终止维数。
ReDim X(10, 10, 10)
. . .
ReDim Preserve X(10, 10, 15)
警告 如果减小数组的大小,则将丢失被排除的元素中的数据。
变量初始化时,数值变量初始化为 0,字符串变量初始化为零长度字符串 ("")。在使用引用对象的变量前,必须使用 Set 语句将某个现有对象赋予该变量。在进行对象赋值以前,已声明的对象变量有特定值 Nothing。
diya
2003-08-20
打赏
举报
回复
ubound(数组名,数组维数)
例:
dim aa(1 to 100,0 to 3)
ubound(aa,1)-------------->100
ubound(aa,2)-------------->3
excel拆分表格.txt
ReDi
m brr(1 To
UBound
(arr), 1 To
UBound
(arr, 2)) n = 0 If sh.Name <> "总表" Then For i = 3 To
UBound
(arr) If arr(i, 1) = sh.Name Then n = n + 1 For s = 1 To
UBound
(arr, 2) brr(n, s) = arr(i, s) Next s...
VB 数组参数调用实例.rar
ReDi
m C1(
UBound
(A1)
UBound
(B1) 1) '重定新数组个数 End Sub Private Sub Command1_Click() Call Merage(A1(), B1(), C1()) '调用合并过程,三个数组做实参 For i = 0 To
UBound
(C1) Picture3.Print C1...
数组相加演示(VB6.0源代码编写)
ReDi
m c((
UBound
(a) + 1) * (
UBound
(b) + 1) - 1) i = -1 For j = 0 To
UBound
(b) For k = 0 To
UBound
(a) c(i + 1) = b(j) + a(k) i = i + 1 Next Next MsgBox "a(" & Join(a, ",") & ")+b(" & Join(b, ",") & ")=...
VBA 数组进阶——进阶即为探寻细节,“实践出真知”。
注意,在定义动态数组之后,必须使用
ReDi
m 语句来设置动态数组的维数、上界和下界,为数组重新 分配存储空间。否则,将出现运行错误,提示下标越界。 Sub test()
Dim
arrTemp(5) As Integer Stop End Sub ......
抹灰厚度计算
Dim
xlExcel As New Excel.Application
Dim
xlBook As New Excel.Workbook
Dim
xlSheet As New Excel.Worksheet
Dim
iRow As Long, jCol As Long, maxf As Long
Dim
a() As Double
Dim
maxfe As Integer
Dim
maxfg ...
ASP
28,391
社区成员
357,060
社区内容
发帖
与我相关
我的任务
ASP
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
复制链接
扫一扫
分享
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章