在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程： Private Sub Command1_Click() 　　s＝0 　　For i＝1 To 15 　　　　x＝2 * i－1 　　　　If x Mod

admin2018-12-20 43

问题在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程：
Private Sub Command1_Click()
　　s＝0
　　For i＝1 To 15
　　　　x＝2 * i－1
　　　　If x Mod 3＝0 Then s＝s＋1
　　Next i
　　Label1.Caption＝s
End Sub
程序运行后，单击命令按钮，则标签中显示的内容是(　　)。

选项 A、1
B、5
C、27
D、45

答案B

解析 s变量用来计数，如果x Mod 3＝0即如果能被3整除则计数增加1。程序中x的取值为1、3、5、7、9、11、13、15、17、19、21、23、25、27、29，其中是3的整数倍的数有3、9、15、21、27共5个，因此s的值为5。

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

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

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)

在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程： Private Sub Command1_Click() 　　s＝0 　　For i＝1 To 15 　　　　x＝2 * i－1 　　　　If x Mod

二级VB

NCRE全国计算机二级

设有以下程序：PrivateSubForm_Click()　　x＝50　　Fori＝1To4　　　　y＝InputBox("请输入一个整数")　　　　y＝Val(y)　　　　IfyMod5＝0Then　　　　　　a＝a＋y

假定Picture1和Text1分别为图片框和文本框的名称，则下列错误的语句是(　　)。

有两个关系R，S如下：由关系R通过运算得到关系S，则所使用的运算为(　　)。

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

为了使标签控件在显示其内容时不覆盖其背景内容，需进行设置的属性为(　　)。

设窗体上有2个直线控件Line1和Line2，若使两条直线相连接，需满足的条件是(　　)。

设窗体文件中有下面的事件过程：PrivateSubCommand1_Click()　　Dims　　a%＝100　　PrintaEndSub其中变量a和s的数据类型分别是(　　)。

以下关系表达式中，其值为True的是(　　)。

窗体上有一个名称为VScroll1的垂直滚动条，要求程序运行时，滚动块的初始位置在最下端，应该使VScroll1.Value的值等于(　　)。

软件需求规格说明书的作用不包括

排中律对思维形式的要求包括两个方面：(1）()。(2）()。

下列哪一项关于系统性红斑狼疮的表述是错误的

患者，女，40岁。10天来发热，腹痛，腹泻，大便每日7～8次有血及黏液。查体：体温38℃，下腹有压痛，右下明显。大便镜检红细胞20～30／HP，白细胞3～5／HP。问题2：检查首选

有关胸外心脏按压，错误的是

安装工程费用包括______。

教科书编写应遵循哪些原则?

1

American【D1】______willnotreturntothemoonasplannedifUSCongresspassesPresidentObama’sproposedbudget.Obama’sb

NEWYORKMay26,(Reuters)—AttorneyDennisKeniganjustspentaweekrisingatdaybreaktoanswere-mailsandfieldconferencec

在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程： Private Sub Command1_Click() s＝0 For i＝1 To 15 x＝2 * i－1 If x Mod

二级VB

NCRE全国计算机二级

设有以下程序：PrivateSubForm_Click() x＝50 Fori＝1To4 y＝InputBox("请输入一个整数") y＝Val(y) IfyMod5＝0Then a＝a＋y

假定Picture1和Text1分别为图片框和文本框的名称，则下列错误的语句是( )。

有两个关系R，S如下：由关系R通过运算得到关系S，则所使用的运算为( )。

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

为了使标签控件在显示其内容时不覆盖其背景内容，需进行设置的属性为( )。

设窗体上有2个直线控件Line1和Line2，若使两条直线相连接，需满足的条件是( )。

设窗体文件中有下面的事件过程：PrivateSubCommand1_Click() Dims a%＝100 PrintaEndSub其中变量a和s的数据类型分别是( )。

以下关系表达式中，其值为True的是( )。

窗体上有一个名称为VScroll1的垂直滚动条，要求程序运行时，滚动块的初始位置在最下端，应该使VScroll1.Value的值等于( )。

软件需求规格说明书的作用不包括

排中律对思维形式的要求包括两个方面：(1）()。(2）()。

下列哪一项关于系统性红斑狼疮的表述是错误的

患者，女，40岁。10天来发热，腹痛，腹泻，大便每日7～8次有血及黏液。查体：体温38℃，下腹有压痛，右下明显。大便镜检红细胞20～30／HP，白细胞3～5／HP。问题2：检查首选

有关胸外心脏按压，错误的是

安装工程费用包括______。

教科书编写应遵循哪些原则?

1

American【D1】______willnotreturntothemoonasplannedifUSCongresspassesPresidentObama’sproposedbudget.Obama’sb

NEWYORKMay26,(Reuters)—AttorneyDennisKeniganjustspentaweekrisingatdaybreaktoanswere-mailsandfieldconferencec

在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程： Private Sub Command1_Click() 　　s＝0 　　For i＝1 To 15 　　　　x＝2 * i－1 　　　　If x Mod

设有以下程序：PrivateSubForm_Click()　　x＝50　　Fori＝1To4　　　　y＝InputBox("请输入一个整数")　　　　y＝Val(y)　　　　IfyMod5＝0Then　　　　　　a＝a＋y

假定Picture1和Text1分别为图片框和文本框的名称，则下列错误的语句是(　　)。

有两个关系R，S如下：由关系R通过运算得到关系S，则所使用的运算为(　　)。

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

为了使标签控件在显示其内容时不覆盖其背景内容，需进行设置的属性为(　　)。

设窗体上有2个直线控件Line1和Line2，若使两条直线相连接，需满足的条件是(　　)。

设窗体文件中有下面的事件过程：PrivateSubCommand1_Click()　　Dims　　a%＝100　　PrintaEndSub其中变量a和s的数据类型分别是(　　)。

以下关系表达式中，其值为True的是(　　)。

窗体上有一个名称为VScroll1的垂直滚动条，要求程序运行时，滚动块的初始位置在最下端，应该使VScroll1.Value的值等于(　　)。