x = GetArr（9）‘調用GetArr過程並返回壹個由10（0-9）個元素組成的數組，該數組賦給x。
‘for I = 0 To UBound（x）‘枚舉剛返回的數組。
arrstr = arrstr & amp“GetArr（& amp；我& amp““““& ampx（I）和ampvbCrLf
然後
Msgbox arrstr顯示結果。
函數GetArr（x）
ReDim f（x）‘根據變量動態調整數組大小。
對於i = 0至x
f（I）= rnd‘生成壹個隨機變量。
然後
GetArr = f‘分配給返回值的數組。
結束功能