在窗体上画一个名称为 Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a(4)As Integer, x As Integer, sum

admin2009-02-13  22

问题 在窗体上画一个名称为 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

答案8

解析 上述程序在双层循环内有一个判断条件,分析其计算过程时比较麻烦,读者要仔细分析。变量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。
转载请注明原文地址:https://jikaoti.com/ti/NTq0FFFM
0

最新回复(0)