<%@ 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>数组</title>
<script language="vb" runat="server">
sub page_load(sender as object,e as eventargs)
dim arr() as integer={10,20,30,40,50,60,70,80,90,100}
dim i,avg,today,sum as integer
sum=0
for i=0 to UBOUND(arr)
today+=arr(i)
sum+=1
next i
avg=today/arr.length
response.Write("所有数之和：" & today & "<br>平均数是：" & avg & "<br>数组大小是：" & arr.length & "<br>循环共运行了：" & sum & "次<p>")
end sub
</script>
</head>
<body>
这上面用到了两个东东 ubound 和 length 这两个都是返回数组大小的。但是得注意一点，ubound返回的值要加1才会是真实的数组大小。
</body>
</html>
<!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>数组</title>
<script language="vb" runat="server">
sub page_load(sender as object,e as eventargs)
dim arr() as integer={10,20,30,40,50,60,70,80,90,100}
dim i,avg,today,sum as integer
sum=0
for i=0 to UBOUND(arr)
today+=arr(i)
sum+=1
next i
avg=today/arr.length
response.Write("所有数之和：" & today & "<br>平均数是：" & avg & "<br>数组大小是：" & arr.length & "<br>循环共运行了：" & sum & "次<p>")
end sub
</script>
</head>
<body>
这上面用到了两个东东 ubound 和 length 这两个都是返回数组大小的。但是得注意一点，ubound返回的值要加1才会是真实的数组大小。
</body>
</html>
