如何在数组指定位置中插入一个值

数组是有类型的，你要插入一个数的话，就声明一个int类型的数组， 如果你是插入一个字符串，那就什么String类型的数组， 数组都是有下标的，下标初始值为0，即放一个数据在数组中，那么数组中就有它专门的存储空间，这个空间的内存地址即使固定...

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

---