<% ' 宣告動態陣列 Dim name(), intSize ' 宣告陣列大小 ReDim name(2) ' 指定陣列值 name(0) = "陳會安" name(1) = "江小魚" name(2) = "張無忌" intSize = Lbound(name) ' 顯示陣列值 Response.Write("陣列最小索引: " & intSize & "
") Response.Write("第一位住戶: " & name(intSize) & "
") ' 更改陣列大小 ReDim Preserve name(4) name(3) = "楊過" name(4) = "小龍女" intSize = Ubound(name) ' 顯示陣列值 Response.Write("更改陣列後的最大索引: " & intSize & "
") Response.Write("最後一位住戶: " & name(intSize) & "
") %>