首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Command1的命令按钮,一个名称为Label1的标签,然后编写如下事件过程: Private Sub Command1_Click() s=0 For i=1 To 15 x=2 * i-1 If x Mod
在窗体上画一个名称为Command1的命令按钮,一个名称为Label1的标签,然后编写如下事件过程: Private Sub Command1_Click() s=0 For i=1 To 15 x=2 * i-1 If x Mod
admin
2015-08-28
57
问题
在窗体上画一个名称为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://kaotiyun.com/show/csLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:PrivateSubCommand1_Click()x=-3IfSgn(x)Theny=Sgn(x^2)E
数据库完整性的实现应该包括两个方面:一是系统要提供定义完整性约束条件的功能;二是提供【】的方法。
在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框,然后编写如下事件过程:PrivateSubCommand1_Click()n=Text1.TextSelectCas
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()c="ABCD"Forn=1To4Print______
模块的功能性注释的主要内容不应包括______。
在窗体上画一个名称为Text1的文本框,然后画3个单选按钮,并用这3个单选按钮建立一个控件数组,名称为Option1,程序运行后,如果单击某个单选按钮,则文本框中的字体将根据所选择的单选按钮切换,请选择空白处合适的语句()。Private
在窗体上有一个文本框控件,名称为TextTime,一个计时器控件,名称为Timer1。要求每一秒在文本框中显示一次当前的时间。PrivateSubTimer1_TextTime.Text=TimeEnd
设x为整型变量,以下不能正确表达数学关系式2<x<5的VisualBasic表达式为_______。
设有如下变量声明:DimTestDateAsDate为变量TestDate正确赋值的表达方式是______。
一个项目具有一个项目主管,一个项目主管可管理多个项目,则实体"项目主管"与实体"项目"的联系属于【】的联系。
随机试题
某佛寺中佛像雕像排列为普贤菩萨、释迦牟尼佛、文殊菩萨,请问他们是()。
患者CVP测得为20mmH2O,提示()
男性,40岁。患者神识模糊,胡言乱语,昏不知人,面色晦滞,静而不烦,喉间痰鸣,恶心呕吐,舌苔白腻,脉沉滑。宜选用
垃圾填埋场与居民区的最短距离为()。
Internet是一个以()通信协议连接各个国家计算机网络的数据通信网。
PreferredCustomerCardApplicationProcedurePleasecompletetheattachedformatleasttwoweekspriortoyournextvisit
公安机关对下列情形,可以采取取保候审的是()。
某企业想考察不同工龄员工的离职意向,将整个企业3000名员工按工龄分为三组:两年以下的有1000人,两年至五年有1500人,五年以上的有500人。如果采用按比例分层随机抽样的方法取容量为600的样本,那么,从两年至五年工龄的员工中应抽取的人数为(
WhatdoestheManMean?
Learningdoesnothappenpassively.Itisanactivitywhichapersondoes.Itisataskwhichcanbeattemptedinvariousways,
最新回复
(
0
)