<%
Dim arr()
'赋值
For i = 1 To 10
Redim Preserve arr(UBound(arr) + 1)
arr(UBound(arr)) = i
Next
'遍历
For i=0 to UBound(arr)
Response.Write(arr(i)&"<br/>")
Next
%>运行出错：
原因是在没有调用Redim定义数组下标前，使用UBound获得数组下标会出错，提示下标越界，对代码稍做修改即可解决：
<%
Dim arr()
ReDim arr(0)
'赋值
For i = 1 To 10
If arr(UBound(arr)) <> "" Then
Redim Preserve arr(UBound(arr) + 1)
End If
arr(UBound(arr)) = i
Next
'遍历
For i=0 to UBound(arr)
Response.Write(arr(i)&"<br/>")
Next
%>
评论（0）
暂无评论。