7,785
社区成员
发帖
与我相关
我的任务
分享redim问题
当我Dim Strtemp() As String后,如何实现ReDim Preserve后UBound(Strtemp) + 1,我是指第一次(ReDim Preserve Strtemp(UBound(Strtemp) + 1)当还没有redim时UBound是无法读取的)....谢谢大家!!!
...全文
请发表友善的回复…
发表回复
rainstormmaster 2005-12-30
- 打赏
- 举报
当然，你在用ReDim Preserve Strtemp(UBound(Strtemp) + 1)之前判断一下数组是否被初始化也可以(需要写一个子函数,利用错误陷阱进行判断)
junki 2005-12-30
- 打赏
- 举报
或者你在出始化时,
Redim Strtemp(0) As String
'当符合条件时
Redim Strtemp(0 To Num) As String
Strtemp(1) = "123"
'这样数组的有效数据是索引从1开始的
Redim Strtemp(0) As String
'当符合条件时
Redim Strtemp(0 To Num) As String
Strtemp(1) = "123"
'这样数组的有效数据是索引从1开始的
rainstormmaster 2005-12-29
- 打赏
- 举报
先定义一个变量,用这个变量表示UBound(Strtemp) ,先给这个变量初值比如是-1:
Dim Strtemp() As String
dim i as long
i=-1
然后你在循环体中这么写：
if i=-1 then
redim Strtemp(你需要的数值)
你的其它语句
i=UBound(Strtemp)+1
else
ReDim Preserve Strtemp(i)
i=i+1
end if
Dim Strtemp() As String
dim i as long
i=-1
然后你在循环体中这么写：
if i=-1 then
redim Strtemp(你需要的数值)
你的其它语句
i=UBound(Strtemp)+1
else
ReDim Preserve Strtemp(i)
i=i+1
end if
