ReDim Preserve a（UBound（a）+3）。
例如:
然後在運行時重新定義A的下標範圍，但數據太多可能會影響效率。
“dim A（）As Integer”首先定義壹個空數組。
s =數組（1，2，3，4，5，6，7，8，9）
j = 1
對於i = 0到下界
如果s（I）》2和s（I）& lt；那就6
ReDim Preserve A（1 To j）‘更新A的下標範圍。
a（j）= s（I）‘將滿足條件的元素保存到新的數組元素中，註意只能逐個賦值。
修改數組下標以存儲下壹個元素。
MsgBox s（I）
如果…就會結束
接下來我
最後A（1）= 3 A（2）= 4 A（3）= 5？
擴展數據:
數組中的所有元素都具有相同的數據類型（在C、C++、Java、pascal中）。但並非所有涉及數組的地方都是如此，例如Visual Foxpro中的數組。當然，當數據類型是Variant時，每個元素可以包含不同種類的數據（對象、字符串、值等）。).您可以聲明任何基本數據類型的數組，包括用戶定義的類型和對象變量。
如果妳想讓用戶輸入壹個數組，妳通常使用壹個循環，但妳也需要在輸入前確定數組的大小。
百度百科-數組