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

数组名就是指向数组的指针,并弯明且这个指针是不能改变的,即:定义 int buf[10],则buf就是指向这个数组第一个元素的指针,并且不能埋历告通过buf=buf+1这样的形式改变buf的指向.

要设置指向数组空间的指针很简单,定义int *ptrptr=buf就可以了.并且ptr+1指向第二个数组元素,依次类推.用指针和数组下标可以随意指向任何数组元素.如buf[8], *(ptr+6)等,并不是只能顺烂答序访问.

另外,数组是一块连续的内存空间,这和链表是两回事.

不知道这样解释符合楼主的意思吗?

1、push() 结尾添加

数组.push(元素)

        参数               燃搜                          描述

newelement1必需。   要添加到数组的第一个元素。

newelement2可选。   要添加到数组的第二个元素。

newelementX可选。   可添加多个元素。

2、unshift() 头部添加

数组.unshift(元素)

       参数                                   描述

newelement1必需。    向数组添加的第一个元素。

newelement2可选。    向数组添加的第二个元素。

newelementX可选。    可添加若干个元素。

3、splice() 方皮弊历法向/从数组指定位置添加/删除项目，然后返回被删除的项目。

          参数                           描述

index必需。                     整数，规定添加/删除项目的位置，使用负数可从数组结尾处规定位置。

howmany必需。             要删除的项目数量。如果设置为 0，则不会删除项目。

item1, ..., itemX可选。   向数组添加的卜尺新项目。

---