紧急求助 【编译错误 无效的redim】a Split(Text1.Text, vbCrLf)i UBound(a)ReDim Preserve a(i + 2)[解
紧急求助 【编译错误 无效的redim】
a = Split(Text1.Text, vbCrLf)
i = UBound(a)
ReDim Preserve a(i + 2)
[解决办法]
- VB code
Dim aDim i As Integera = Split(Text1.Text, vbCrLf)i = UBound(a)ReDim Preserve a(i + 2)