<%
Class
appendString
Private
arrIndex, arrUbound, arrList()
Private
Sub
Class_Initialize()
‘分配10长度
redim arrList(10)
‘当前长度
arrIndex = 0
arrUbound = 10
End
Sub
Private
Sub
Class_Terminate()
Erase
arrList
End
Sub
‘设置值并动态扩展长度
Public
Default
Sub
Add(value)
arrList(arrIndex) = value
arrIndex = arrIndex + 1
if arrIndex > arrUbound then
arrUbound = arrUbound + 50
redim preserve arrList(arrUbound)
end if
End
Sub
Public
Function
getString(splitString)
redim preserve arrList(arrIndex - 1)
getString = join(arrList,splitString)
End
Function
End
Class
Set
StringClass =
New
appendString
StringClass.add(
"我"
)
StringClass.add(
"爱"
)
StringClass.add(
"编"
)
StringClass.add(
"程"
)
OutputString = StringClass.getString(
""
)
%>