vbscript 二维数组的 定义

第一种：
<script. language="vbscript">
dim rows(),cols,i

i=0

while(i<=20)    
    redim    preserve rows(i)   
    cols=array()
    redim cols(6)
   
    cols(0)=i & ":" & int(rnd*90)+10
    cols(1)=i & ":" & int(rnd*90)+10   
    cols(2)=i & ":" & int(rnd*90)+10   
    cols(3)=i & ":" & int(rnd*90)+10
    cols(4)=i & ":" & int(rnd*90)+10
    cols(5)=i & ":" & int(rnd*90)+10
   
    rows(i)=cols
    i=i+1   
wend

dim j
for i=0 to ubound(rows,1)-1
     for j=0 to ubound(rows(i),1)-1
        document.write(rows(i)(j) & "　")
     next
     document.write("<br/>")   
next
</script>