Dim arr(1,9) '註:數組下標從0開始
'按如下方式賦值:
arr(0,0)="第1個值"
arr(0,1)="第2個值"
'......
arr(0,8)="第9個值"
arr(0,9)="第10個值"
arr(1,0)="第11個值"
arr(1,1)="第12個值"
'......
arr(1,8)="第19個值"
arr(1,9)="第20個值"
'提取數組變量值:
For i = 0 to 1
For j = 0 to 9
response.write("第"&i*10+j+1&"個值:"&arr(i,j)&"<br>")
Next
Next
%>