VB编程1个数组中的数字对调

时

j=6,把arr(1)的值赋给变量t,把arr(6)的值赋给arr(1),把t的值赋给arr(6),完成arr(1)和arr(6)的对调，这时闷带arr(1)的值arr(6)的值，arr(6)的值arr(1)的值

当i=1

时

j=7,把arr(1)的值赋给变量t,把arr(7)的值赋给arr(1),把t的值赋给arr(7),完成arr(1)和arr(7)的对调，这时arr(1)的值是arr(7)的值，arr(7)的值是arr(1)的值（原来arr(6)值）

当i=1

时

j=8,把arr(1)的值赋行罩陆给变量t,把arr(8)的值赋给arr(1),把t的值赋给arr(8),完成arr(1)和arr(8)的对调，这时arr(1)的值是arr(8)的值，arr(8)的值是arr(1)的值（原档顷来arr(7)值）

当i=1

时

j=9,把arr(1)的值赋给变量t,把arr(9)的值赋给arr(1),把t的值赋给arr(9),完成arr(1)和arr(9)的对调，这时arr(1)的值是arr(9)的值，arr(9)的值是arr(1)的值（原来arr(8)值）

当i=1

时

j=10,把arr(1)的值赋给变量t,把arr(10)的值赋给arr(1),把t的值赋给arr(10),完成arr(1)和arr(10)的对调，也就完成了arr(1)与arr(10)的对调，这时arr(1)是arr(10)的值，arr(6)是arr(1)的值，arr(7)是arr(6)的值，arr(8)是arr(7)的值，arr(9)是arr(8)的值，arr(10)是arr(9)的值

当i=2

时

同理

如果不明白的话，可以这样：

For

i

=

1

To

5

For

j

=

6

To

10

t

=

arr(i)

arr(i)

=

arr(j)

arr(j)

=

t

Next

j

For

k

=

1

To

10

Print

arr(k)

Next

k

Print

Next

i

加上加粗的代码，结合文字理解一下

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