国产欧美精品专区一区二区_91www永久在线精品果冻传媒_日韩成人亚洲综合专区无码av_欧美激情一区二区三区高清视频_免费福利在线视频亚洲_日韩精品无码人妻自慰喷水_把腿张开老子cao哭你动态图_51a性爱高清免费视频_国产无码资源在线观看資源免費看_再深点灬舒服灬太大了网站

<%

Class appendString

Private arrIndex, arrUbound, arrList()

Private Sub Class_Initialize()

'分配10長(zhǎng)度

redim arrList(10)

'當(dāng)前長(zhǎng)度

arrIndex = 0

'每次擴(kuò)展長(zhǎng)度

arrUbound = 10

End Sub

Private Sub Class_Terminate()

'釋放所有數(shù)組，再次使用時(shí)，需要重新分配

Erase arrList

End Sub

'設(shè)置值并動(dòng)態(tài)擴(kuò)展長(zhǎng)度

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

'調(diào)用方法

Set StringClass = New appendString

StringClass.add("我")

StringClass.add("愛")

StringClass.add("編")

StringClass.add("程")

OutputString = StringClass.getString("") '打印結(jié)果是：我愛編程

%>

?