vbscriptの基本 - vbs配列の定義と使用法 配列

dim a
a=Array(5,10,15,20)
document.write(a(3))

dim a
a=Array(5,10,15,20)
document.write(a(0))

'Static arrays
dim a(2)
a(0)="George"
a(1)="john"
a(2)="Ethon"
for i =0 to 2
  msgbox a(i)
next
for i =0 to ubound(a) 'ubound function, return to the specified array of dimensions of the maximum available subscript
  msgbox a(i)
next


'Dynamic arrays
dim a()
for i = 0 to 2
　　redim preserve a(i) 'ReDim statement, used to declare dynamic array variables and allocate or reallocate storage space at the procedure level
　　a(i)=i+1 
　　msgbox a(i)
next

'Dynamic two-dimensional arrays
Dim MyArray() 'First define a one-dimensional dynamic array
ReDim MyArray(1,1) 'Redefine the size of the array
MyArray(0,0) = "A" 'Assign values to the array separately
MyArray(0,1) = "a"
MyArray(1,0) = "B"
MyArray(1,1) = "b"
ReDim Preserve MyArray(1,2) 'Redefine the size of the array
MyArray(0,2) = "A-a" 'Continue to assign values to the array
MyArray(1,2) = "B-b"
MsgBox UBound(MyArray,1)
MsgBox UBound(MyArray,2)
For i=0 To UBound(MyArray,1)
  For j=0 To UBound(MyArray,2)
    MsgBox MyArray(i,j) 'Iterate through the array and output the array values
  Next
Next

Dim MyArray() 'First define a one-dimensional dynamic array
ReDim MyArray(3) 'redefine the size of this array
MyArray(0) = "I" 'Assign values to the array separately
MyArray(1) = "to"
MyArray(2) = "learn"
MyArray(3) = "learn"
ReDim Preserve MyArray(5) 'redefine the size of this array
MyArray(4) = "Measure" 'Continue to assign values to the array
MyArray(5) = "test"
For i=0 To UBound(MyArray)
  MsgBox MyArray(i) 'Iterate through the array and output the array values
Next