VBS ArrayList Class vbs中的数组类

       End If
 End Sub


 Private Function IIf(j, r1, r2)
  IF (j) Then
   IIf = r1
  Else
   IIf = r2
  End IF
 End Function

End Class


示例:

Dim al : Set al = new ArrayList
al.Add(1)
al.Add(2)
al.Add(3)
al.Add(4)
al.Add(5)
al.Add(6)
al.Add(7)
al.Add(8)
al.Add(9)
al.Add(10)

For i = 0 To al.Count -1
 w("Index"& i &": "& al.Item(i))
Next

w("Count: "& al.Count)
w("Capacity: "& al.Capacity)

Sub w(o)
Response.Write(o &"<br />")
End Sub

您可能感兴趣的文章:

C#中数组Array，ArrayList，泛型List详细对比Java ArrayList 数组之间相互转换PowerShell中使用ArrayList实现数组插入、删除、添加例子浅析C#中数组，ArrayList与List对象的区别Repeater控件分别绑定数组和ArrayList实现思路C# 没有动态的数组，可以用arraylist或list取代JAVA ArrayList详细介绍(示例)JAVA LinkedList和ArrayList的使用及性能分析java的arraylist排序示例(arraylist用法)Android中ArrayList和数组相互转换