在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command 1 Click() d=0：c=10：x=Array(10，12，2 1，32，24

admin2020-04-18 23

问题在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command 1 Click()
      d=0：c=10：x=Array(10，12，2 1，32，24)
      For i=1 To 5
            Ifx(i)＞c Then
                  d=d+x(i)：c=x(i)
            Else
                  d=d-c
            End If
      Next i
      Print d
End Sub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为

选项 A、89
B、99
C、23
D、77

答案C

解析本题的循环中依次用数组的每个元素和c进行比较，如果比c大就将数组元素累加，并令数组元素成为新的c值；否则令累加和d减去c。在5次循环中d的累加过程为-10+12+21+32-32=23。

转载请注明原文地址:https://kaotiyun.com/show/XvTp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)

在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command 1 Click() d=0：c=10：x=Array(10，12，2 1，32，24

二级VB

NCRE全国计算机二级

设有如下Command1的单击事件过程及fun过程：PrivateSubCommand1_Click()　　DimxAsInteger　　x＝Val(InputBox("请输入一个整数"))　　fun(x)EndSubPrivate

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：OptionBase1PrivateSubCommand1_Click()Dima(3,3)AsIntegerDimiAsInteger,jAs

下列关于窗体的描述中，错误的是()。

下面有关标准模块的叙述中，错误的是()。

为了在运行时能显示窗体左上角的控制框(系统菜单)，可以设置以下哪个属性的值为True()。

窗体上有1个名称为Text1的文本框，1个名称为Timer1的计时器，且已在属性窗口将Timer1的Interval属性设置为2000、Enabled属性设置为False。以下程序的功能是，单击窗体，则每隔2秒钟在Text1中显示一次当前时间。Priva

关于随机文件，以下叙述中错误的是()。

如果改变驱动器列表框的Drive属性，则将触发的事件是(　　)。

Peoplehavewordedaboutsmogformanyyears,andthegovernmenthasspentbillionsofdollarstotrytocleanuptheairofbig

汽车经销商盗用普通客户的身份资料购买汽车并申请银行贷款的欺诈行为是（）

企业的核心竞争力包含着一项或多项核心技术，这些核心技术相互配合形成一个或多个核心产品，再由核心产品衍生出最终产品。这体现了核心竞争力的()特征。

下列关于货币需求的说法中，正确的是()。

根据外商投资企业和外国企业所得税法及其实施细则规定，以下支出项目不得在税前列支的有()。

下列情形中纳税人可以自缴纳税款之日起1年内向海关申请退税的有()。

根据我国《宪法》的规定，全国人大常务委员会的组成人员可以兼任的职务是()。

Inthecurrentimmigrationwave,somethingmarkedlydifferentishappeninghereinthemiddleofthegreatAmerican"meltingpot

如果利用C++流进行输入输出，下面的叙述中正确的是()。

Thewomanisinterestedinseeing______

在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command 1 Click() d=0：c=10：x=Array(10，12，2 1，32，24

二级VB

NCRE全国计算机二级

设有如下Command1的单击事件过程及fun过程：PrivateSubCommand1_Click() DimxAsInteger x＝Val(InputBox("请输入一个整数")) fun(x)EndSubPrivate

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：OptionBase1PrivateSubCommand1_Click()Dima(3,3)AsIntegerDimiAsInteger,jAs

下列关于窗体的描述中，错误的是()。

下面有关标准模块的叙述中，错误的是()。

为了在运行时能显示窗体左上角的控制框(系统菜单)，可以设置以下哪个属性的值为True()。

窗体上有1个名称为Text1的文本框，1个名称为Timer1的计时器，且已在属性窗口将Timer1的Interval属性设置为2000、Enabled属性设置为False。以下程序的功能是，单击窗体，则每隔2秒钟在Text1中显示一次当前时间。Priva

关于随机文件，以下叙述中错误的是()。

如果改变驱动器列表框的Drive属性，则将触发的事件是( )。

Peoplehavewordedaboutsmogformanyyears,andthegovernmenthasspentbillionsofdollarstotrytocleanuptheairofbig

汽车经销商盗用普通客户的身份资料购买汽车并申请银行贷款的欺诈行为是（）

企业的核心竞争力包含着一项或多项核心技术，这些核心技术相互配合形成一个或多个核心产品，再由核心产品衍生出最终产品。这体现了核心竞争力的()特征。

下列关于货币需求的说法中，正确的是()。

根据外商投资企业和外国企业所得税法及其实施细则规定，以下支出项目不得在税前列支的有()。

下列情形中纳税人可以自缴纳税款之日起1年内向海关申请退税的有()。

根据我国《宪法》的规定，全国人大常务委员会的组成人员可以兼任的职务是()。

Inthecurrentimmigrationwave,somethingmarkedlydifferentishappeninghereinthemiddleofthegreatAmerican"meltingpot

如果利用C++流进行输入输出，下面的叙述中正确的是()。

Thewomanisinterestedinseeing______

设有如下Command1的单击事件过程及fun过程：PrivateSubCommand1_Click()　　DimxAsInteger　　x＝Val(InputBox("请输入一个整数"))　　fun(x)EndSubPrivate

如果改变驱动器列表框的Drive属性，则将触发的事件是(　　)。