国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

'1, 數(shù)組聲明方法一：直接聲明
 Dim arrArray1 (2)
 arrArray1(0) = 0
 arrArray1(1) = 1
 arrArray1(2) = Inputbox("please input an integer: ")

 
 For each myArray in arrArray1
  Print  Join(myArray, " ")
 
 Next
'2. 數(shù)組聲明方法二：使用array函數(shù)
Dim arrTest, i

 arrTest = Array(5,10,15,20)

 For i = 0 to UBound(arrTest)
  Print arrTest(i)

 Next

' 3. Redim 
'用dim arr () 來設(shè)定動態(tài)的數(shù)組
' 在調(diào)整數(shù)組長度的時候，要注意保持?jǐn)?shù)組中原有的元素（用關(guān)鍵字preserve ）, 否則將會被清空

Dim arr() ' 或 ReDim arr(1) 代替

ReDim arr(1)

arr(0)=0

arr(1)=1

ReDim arr(2)

arr(2)=2

Call PringArray (1) ' 擴充數(shù)組中的元素 , 發(fā)現(xiàn)原來的值沒有了

ReDim Preserve arr(2)

arr(0)=0

arr(1)=1

Call PringArray (2) ' 用 preserve 關(guān)鍵字保存 數(shù)組中的元素

ReDim arr(1) ' 減小數(shù)組的長度 ，發(fā)現(xiàn)所有的元素都沒了

Call PringArray (3)

ReDim arr(2) ' 還原到 第2 步

arr(0)=0

arr(1)=1

arr(2)=2

Call PringArray (4)

ReDim Preserve arr(1)' 用 preserve 關(guān)鍵字保存 數(shù)組中的元素

Call PringArray (5)

'Erase  arr 釋放動態(tài)數(shù)組占用的存儲空間。
Erase arr

On Error Resume Next
Call PringArray (6) '下標(biāo)越界: 'ubound', 表示數(shù)組已經(jīng)被釋放。
'Print err.number, err.description
'err.raise
 
' Sub 子過程， 可以直接繼承使用上面的參數(shù)，如arr()。
Sub PringArray(numStep)
   Dim strString, myArray

 For i = 0 to Ubound(arr)
  strString = strString & arr(i)& " "

 Next

 Print "The output of Step " &numStep & " is: " & strString
End Sub