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

admin2009-02-10  24

问题 在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序:  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          Print d    End Sub    程序运行后,如果单击命令按钮,则在窗体上输出的内容为

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

答案C

解析 Array函数是为数组赋值,而Option Base l是用来设置数组下标是从1开始。由于刚开始c的值为6,故前三个数组值不大于c,执行三次d=d-c,d=-18;而后三个数组值都大于c,执行三次d二d+ x(i),d=-18+8+10+12=12。
转载请注明原文地址:https://kaotiyun.com/show/ad2p777K
0

最新回复(0)