2 回答

三國紛爭
TA貢獻1804條經驗 獲得超7個贊
假設:
Dim a() As Integer
ReDim a(100) '重定義數組為101個元素
保留原有數組信息,新增一個元素:
ReDim Preserve a(UBound(a) + 1) '至此數組元素有102個
(若不需保留原有數組信息,去掉Preserve關鍵字即可。)

暮色呼如
TA貢獻1853條經驗 獲得超9個贊
Ubound UBound函數
返回一個 Long 型數據,其值為指定的數組維可用的最大下標。
語法
UBound(arrayname[, dimension])
UBound 函數的語法包含下面部分:
部分 描述
arrayname 必需的。數組變量的名稱,遵循標準變量命名約定。
dimension 可選的;Variant (Long)。指定返回哪一維的上界。1 表示第一維,2 表示第二維,以此類推。如果省略 dimension,就認為是 1。
說明
UBound 函數與 LBound 函數一起使用,用來確定一個數組的大小。LBound 用來確定數組某一維的上界。
對具有下述維數的數組而言,UBound 的返回值見下表:
Dim A(1 To 100, 0 To 3, -3 To 4)
語句 返回值
UBound(A, 1) 100
UBound(A, 2) 3
UBound(A, 3) 4
添加回答
舉報
0/150
提交
取消