下列程序段的执行结果为(). Dim A(4) n=3 A(1)=1 For k=0 To

下列程序段的执行结果为______。

Dim A(4)

n=3

A(1)=1

For k=0 To n-1

For 1=1 To k+1

X=k+2-1

A(X)=A(X)+A(X-1)

If k＜n-1 Then Exit For

Print A(X)

Next 1

Next k

A．1 2 1

B．1 2 3

C．2 4 6

D．1 3 1

答案是A（-1），因为第一执行的时候就会将x赋值为0，执行打印x-1时就是-1，另外有两种情况，看X的定义范围了。如下【全局定义】：Option Explicit

Dim x As Integer

Private Sub Command1_Click()

Print x - 1

x = 3

End Sub那么这次执行打印x-1第一次时-1，以后每次打印就是2，因为每次x-1后会被重新赋值3.

如下【局部定义】

Private Sub Command1_Click()

x = 0

Print x - 1

x = 3

End Sub这个每次执行都会将x赋值为0，尽管后面赋值3，但是执行完后又会被赋值为0，所以一直为-1

下列程序段的执行结果为______。

K=0

For J=1 to 2

For I = 1 to 3

K =I+1

Next I

For I = 1 to 7

K = K+1

Next I

Next J

Print K

结果为11，两次for i的循环中，要满足上面循环算出后才能进入下面的循环继续进行，所以第一个for i 中k=4，进到第二次循环，循环了7次，每循环一次k+1，相当于4+7=11

---