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

第一步$arr=array('a','b','c','d','e','f','g')//目标数组

第二步$i_arr=array('1','2')//要插入的数组

第三步$n=2//插入的位置

第四步array_splice($arr,$n,0,$i_arr)

第五步print_r($arr)

按顺序输入，并且输入正确就可以了。

---