vbs 数组下标

private sub form_load()
dim aa(2) as integer
form1.auturedraw =true
for i=0 to 2
aa(i)=i
print "aa";trim(str（i));"=";aa(i)
next
end sub

说明:
我编的这个程序只能给aa1--aa3赋值0---3,要想给更多的aaX赋值,或者赋不同的值,则需调整程序.

aa(i)=i-1