<%

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("") '打印结果是：我爱编程

%>

​