vb 向数组中指定位置添加元素。

Private

Sub

Command1_Click()

Dim

x()

As

Integer,

i%,

n%,

k%

ReDim

x(1

To

10)

As

Integer

Form1.Cls

For

i

=

1

To

10

x(i)

=

Int(Rnd()

*

10)

Print

x(i)

Next

i

n

=

Val(Text1)

'插入数字

k

=

Val(Text2)

'插喊数入位置

If

n

>

0

And

k

>

0

And

k

<

11

Then

ReDim

Preserve

x(1

To

11)

As

Integer

For

i

=

(UBound(x)

-

1)

To

(k

-

1)

Step

-1

x(i

+

1)

=

x(i)

Next

i

x(k)

=

n

Print

For

i

=

1

To

11

Print

x(i)

Next

i

Else

MsgBox

"输入数字有郑锋首误基侍",

vbCritical

End

If

End

Sub

给你一个方法，但是代码来不及帮你写了

1、数组自己可以定义成不定大小的，也就是可以修改上限的，记住要设置成可以保留原数据的那种

2、将数组的上限增加一个，原来有n个元素，现在修改为n+1

3、将需要插入位置及以后败升派位置的数据用另外的察贺数组保存

4、将需要插入的数据赋值给原来数组对应的位置，然后将保存的数据重新赋笑棚值回来

（3和4步，可以不用新的数组实现：将第n个数据赋值到第n+1个，第n-1个数据赋值到第n个、第n-2个数据赋值到第n-1个，依次类推，直到所有需要转移的数据全部 *** 作完毕既可）

---