首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为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
42
问题
在窗体上画一个名称为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/koLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上面有一个文本框,其名称为Text1,编写如下事件过程:PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimsstrAsStringstr=Chr(KeyAscii)Key
根据假定的条件,判断应该选择哪条途径来执行相应的程序语句序列,这样的程序结构是【】。
在窗体上画一个名称为Command1的命令按钮、一个名称为Label1的标签,然后编写如下事件过程;PrivateSubCommand1_Click()s=0Fori=1to15x=2*
以下程序找出50以内所有能构成直角三角形的整数组。请在程序【】处填上正确内容。PrivateSubCommand1_Click()fora=1To50forb=aTo50c=Sqr(a^2+b^2)if【
在窗体上面画一个名称为TxtA的文本框,然后编写如下的事件过程:PrivateSubTxtA___KeyPress(Keyasciiasinteger)......EndSub若焦点位于文本框中,则能够触发KeyP
下列程序要求用户输入一个年份,并能够判断用户输入的年份是否是闰年,下划线处应填()。SubEnSure()DimyearAsIntegeryear=Val(InputBox("请输入年份:"))If(yearMod
以下关于图片框控件的说法中,错误的是______。
以下叙述中错误的是______。
假设有如下的记录类型:TypeStudentnumberAsStringnameASStringageAsIntegerEndType则正确引用该记录类型变量的代码是______。
随机试题
患儿,男,6岁,面部及双下水肿1周收入院。查体:精神尚可,眼睑及颜面部水肿,心、肺、腹无异常,阴囊中度水肿,下肢可凹性水肿。实验室检查:尿蛋白(++++),血浆总蛋白及白蛋白明显减少,血胆固醇明显升高,补体C3正常该患儿当前的饮食中蛋白质的供给量宜为
可能患有胃癌的胃液是
可使泪液、痰液、尿液、唾液呈橘红色的抗结核药物是
A.丙氨酸氨基转移酶(ALT)B.碱性磷酸酶(ALP)C.天门冬氨酸氨基转移酶(AST)D.γ一谷氨酰转移酶(γ一GT)E.淀粉酶(AMS)急性心肌梗死时明显增高的酶是
企业实现的净利润要按一定的程序进行分配,利润分配的内容有()。
下列关于会计的说法正确的是()。
历史上,用“八荒争凑,万国咸通”来形容的我省古都是()。
DebbiegotupearlylastSaturdaymorning.Shewanted【C1】______inGreenParkwithsomeofherfriends.Shewasvery【C2】______abo
TheChildrenRestaurantisverysmallbecause______.ThecostofaMealis______.
A、Hewasabsentfromtheclass.B、Thesubjectisdifficulttopass.C、Hedidn’tworkhardinthesubject.D、Theprofessorgives
最新回复
(
0
)