<%@ Page Language="vb" ContentType="text/html" ResponseEncoding="gb2312" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>使用redim 和 preserve 改变数组</title>
<script language="vb" runat="server">
sub page_load(sender as object,e as eventargs)
dim i as integer
dim arr(10) as integer
for i=0 to arr.length-1
arr(i)=i+1 '如果有兴趣的话可以在这里加上 response.Write(arr(i)& "<br>") 看下
next i
redim preserve arr(20) '使用 preserve 关键字保留原数组的值
arr(19)=20 '这里我们设数组的19位的值是20
for i=0 to ubound(arr)
arr(i)=i '注意这句这句是重新对数组赋值，如果没有这句的话，原数组的值将保留。
response.Write(arr(i)& "<br>")
next i
end sub
</script>
</head>
<body>
</body>
</html>