redim问题

[yoryor]

当我Dim Strtemp() As String后,如何实现ReDim Preserve后UBound(Strtemp) + 1,我是指第一次(ReDim Preserve Strtemp(UBound(Strtemp) + 1)当还没有redim时UBound是无法读取的)....谢谢大家!!!

[rainstormmaster]

先定义一个变量,用这个变量表示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

[junki]

或者你在出始化时,
Redim Strtemp(0) As String

'当符合条件时
Redim Strtemp(0 To Num) As String
Strtemp(1) = "123"
'这样数组的有效数据是索引从1开始的

[rainstormmaster]

当然，你在用ReDim Preserve Strtemp(UBound(Strtemp) + 1)之前判断一下数组是否被初始化也可以(需要写一个子函数,利用错误陷阱进行判断)