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

admin2020-04-18 32

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

下面不属于软件测试实施步骤的是

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

设有如下一段程序：PrivateSubCommandl—Click()StaticaAsVarianta=Array(“one”，“two”，“three”，“four”，“five”)Printa(3)

在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是(　　)。

在程序中要使用Array函数给数组arr赋初值，则以下数组变量定义语句中错误的是(　　)。

能够存放组合框的所有项目内容的属性是(　　)。

以下合法的VB变量名是()。

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

有形净值债务率中的“有形净值”是指

下列词语中，没有错别字的一组是()

患者，男，36岁。口腔内双颊处白斑。检查：口内双侧颊黏膜白色针状小丘疹，呈网状花纹样，有烧灼感，手背皮肤紫红色扁平丘疹。近期未服用过任何药物。此病可能是

成年人甲状腺功能减退将导致()。

可以不办出让手续的情况有()。

某住宅区建筑场地位于北京延庆地区，场地中某钻孔勘探资料如表9—8所示。地下水位埋深4．m，基础埋深3．5m．该钻孔的液化指数k应为()。

古埃及最大的金字塔叫__________金字塔。

教育的最高理想通过()体现出来。

假设随机变量X1，…，Xn相互独立，服从同参数λ的泊松分布．记Sn=Xi+n，当n充分大时，求Sn的近似分布．

[A]"Ijustdon’tknowhowtomotivatethemtodoabetterjob.We’reinabudgetcrunchandIhaveabsolutelynofinancialreward

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

下面不属于软件测试实施步骤的是

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

设有如下一段程序：PrivateSubCommandl—Click()StaticaAsVarianta=Array(“one”，“two”，“three”，“four”，“five”)Printa(3)

在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是( )。

在程序中要使用Array函数给数组arr赋初值，则以下数组变量定义语句中错误的是( )。

能够存放组合框的所有项目内容的属性是( )。

以下合法的VB变量名是()。

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

有形净值债务率中的“有形净值”是指

下列词语中，没有错别字的一组是()

患者，男，36岁。口腔内双颊处白斑。检查：口内双侧颊黏膜白色针状小丘疹，呈网状花纹样，有烧灼感，手背皮肤紫红色扁平丘疹。近期未服用过任何药物。此病可能是

成年人甲状腺功能减退将导致()。

可以不办出让手续的情况有()。

某住宅区建筑场地位于北京延庆地区，场地中某钻孔勘探资料如表9—8所示。地下水位埋深4．m，基础埋深3．5m．该钻孔的液化指数k应为()。

古埃及最大的金字塔叫__________金字塔。

教育的最高理想通过()体现出来。

假设随机变量X1，…，Xn相互独立，服从同参数λ的泊松分布．记Sn=Xi+n，当n充分大时，求Sn的近似分布．

[A]"Ijustdon’tknowhowtomotivatethemtodoabetterjob.We’reinabudgetcrunchandIhaveabsolutelynofinancialreward

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

在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是(　　)。

在程序中要使用Array函数给数组arr赋初值，则以下数组变量定义语句中错误的是(　　)。

能够存放组合框的所有项目内容的属性是(　　)。

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