为什么这个代码提示缺少对象

Question

Dim useragents(),referers(),randheaders(),randURLs()Function RndNumber(MaxNum,MinNum)
Randomize 
RndNumber=int((MaxNum-MinNum+1)*rnd+MinNum)
RndNumber=RndNumber
End Functionrandurls.Append "http:// 1.1.1.1/"
randurls.Append "http://1.1.1.1/example"URL = randurls( RndNumber( 0, randurls.UBound ) )response.write URL
Microsoft VBScript 运行时错误 错误 '800a01a8'缺少对象/test.asp，行 10第十行是
randurls.Append "http:// 1.1.1.1/"

Answer 1

Dim useragents(),referers(),randheaders(),randURLs()
不是吗？？

Answer 2

我糊涂了，你定义成数组了吧，数组哪来的Append 方法？难道我out了？

Answer 3

不懂哪种语言的数组里确实有append方法。