Dim ArrayData(10)

ArrayData(0) 〜 ArrayData(10) が有効で、配列の最小値は、常に 0 です

Dim ArrayData()
Dim nCnt

nCnt = 10
ReDim ArrayData( nCnt )

ArrayData(0) 〜 ArrayData(10) が有効

Dim nCnt
Dim ArrayData(10)

nCnt = UBound( ArrayData )

Dim I
For I = 0 to UBound( ArrayData )
	Response.Write ArrayData( I ) & "<br>"
Next

if IsArray( ArrayData ) then
	For I = 0 to UBound( ArrayData )
		Response.Write ArrayData( I ) & "<br>"
	Next
else
	Response.Write "ArrayData " & "は配列ではありません"
end if

Dim ArrayData(10)

Response.Write TypeName( ArrayData ) & "<br>"
Response.Write VarType( ArrayData ) & "<br>"

Variant()
8204

Dim ArrayData
Dim strValue
Dim I

strValue = "A,B,C"
ArrayData = Split( strValue, "," )
if IsArray( ArrayData ) then
	For I = 0 to UBound( ArrayData )
		Response.Write ArrayData( I ) & "<br>"
	Next
end if

Dim ArrayData(3)
Dim DynamicArrayData()
ReDim DynamicArrayData(3)
Dim I
For I = 0 to UBound( ArrayData )
	ArrayData( I ) = I
	Response.Write ArrayData( I ) & "<br>"
Next
Erase ArrayData			--> [ ★ 静的配列は初期化される ]
For I = 0 to UBound( DynamicArrayData )
	DynamicArrayData( I ) = I
	Response.Write DynamicArrayData( I ) & "<br>"
Next
Erase DynamicArrayData		--> [ ★ 動的配列はメモリから開放される ]
ReDim DynamicArrayData(10)	--> [ ★ 再使用する場合 ]