<script runat="server">
Sub Page_Load
If Not Page.IsPostBack Then
Dim mycountries = New ArrayList()
mycountries.Add("Norway")
mycountries.Add("Sweden")
mycountries.Add("France")
mycountries.Add("Italy")
End If
End Sub
</script>
預設容量 16 筆,實際筆數較少時可釋放多餘空間:
mycountries.TrimToSize()
呼叫後內部陣列大小將精確符合元素數量。