1.
<%
2.
UBound(arrayname[, dimension])
3.
%>
01.
02.
Option
Explicit
03.
Dim
i,arrVar(4,1)
04.
arrVar(0,0) = 1
05.
arrVar(0,1) = 1.1
06.
arrVar(1,0) = 2
07.
arrVar(1,1) = 2.2
08.
arrVar(2,0) = 3
09.
arrVar(2,1) = 3.3
10.
arrVar(3,0) = 4
11.
arrVar(3,1) = 4.4
12.
arrVar(4,0) = 5
13.
arrVar(4,1) = 5.5
14.
15.
For
i = LBound(arrVar)
To
UBound(arrVar)
16.
Response.write arrVar(i,0)&
" - "
&arrVar(i,1)&
"<br>"
17.
Next
18.
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน Source Code 2.0 ของทีมงานไทยครีเอท
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
