问题
单项选择题
在窗体上画一个名称为 Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a(4)As Integer, x As Integer, sum As Integer
n = 4: sum = 0
a (1) = 1
For k = 0 To n - 1
For i = 1 To k + 1
x = k + 2 - i
a(x)= a(x)+ a(x - 1)
If x ＜ n - k Then Exit For
sum = sum + a(x)
Next i
Next k
Print sum
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是
A．5
B．6
C．8
D．11
答案
参考答案：D
解析：
[分析]： 上述程序在双层循环内有一个判断条件，分析其计算过程时比较麻烦，读者要仔细分析。变量x的计算过程为：x=1、2、3、2、1、4、3、2、 1，表达式n-k的计算过程为：n-k=4、3、2、2、 2、1、1、1、1。其中有1＜4、2＜3、2＜1这些条件成立时跳出内部循环，其他内循环都将数组元素值相加起来，即sum=1+2+1+3+3+1=11。