在窗体上绘制一个名称为Command1的命令按钮,然后编写如下程序: Option Base 1 Private Sub Commandl_Click() Dim c As Integer,d As Integer d=0

admin2013-04-11  19

问题 在窗体上绘制一个名称为Command1的命令按钮,然后编写如下程序:    Option Base 1    Private Sub Commandl_Click()      Dim c As Integer,d As Integer      d=0      c=6      x=Array(2,4,6,8,10,12)      For i=1 To 6        If x(i)>c Then          d=d+x(i)          c=x(i)        Else          d=d-c        End If      Next i      Print d    End Sub    程序运行后,如果单击命令按钮,则在窗体上输出的内容为

选项 A、10
B、16
C、12
D、20

答案4

解析 本题属于综合性题目,考查知识点较多,难度较大。首先程序包含了一个循环结构,同时循环结构中还嵌套有一个条件结构。循环体内部将数组中的元素与c做比较,如果大于c,则与d求和,并将结果赋给d,将该元素赋给c。否则执行d=d-c。最后的运行结果是12,选项C正确。
转载请注明原文地址:https://kaotiyun.com/show/5IQp777K
0

最新回复(0)