vb 对于正在使用的一维动态数组a()，要增加3个元素，同时保留原来数组中的数据，则应使用的语句是？

用Preserve关键字。

ReDim Preserve a(UBound(a) + 3)。

例如：

那就运行时重新定义A的下标范围，不过数据多了可能会影响效率

Dim A() As Integer '先定义一个空数组

s = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)

j = 1

For i = 0 To UBound(s)

If s(i) >2 And s(i) <6 Then

ReDim Preserve A(1 To j) '更新A的下标范围

A(j) = s(i) '将满足条件的元素存到新数组元素，注意只能一个一个元素赋值

j = j + 1 '修改数组下标，以便存入下一个元素

MsgBox s(i)

End If

Next i

'最后 A（1）=3 A（2）=4 A（3）=5

扩展资料：

一个数组中的所有元素具有相同的数据类型（在C、C++、Java、pascal中都这样。但也并非所有涉及数组的地方都这样，比如在Visual Foxpro中的数组就并没这样的要求）。当然，当数据类型为 Variant 时，各个元素能够包含不同种类的数据（对象、字符串、数值等等）。可以声明任何基本数据类型的数组，包括用户自定义类型和对象变量。

如果要用户输入的是一个数组，一般是用一个循环，但是在输入前也需要固定数组的大小。

参考资料来源：百度百科-数组

Dim a() As Integer

Dim i as Integer

For i = 0 To 100

  '先调整动态数组可容纳元素的数量。注意：用Preserve关键字保留先前的数据！  

  Redim Preserve a(0 To i) As Integer

  '再追加新的元素（数据）

  a(i) = i

Next

上面代码，将0~100依次追加到动态数组a里

---