首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为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
56
问题
在窗体上画一个名称为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/koLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
将文本框的PasswordChar属性设置为一个星号*,运行时,在文本框中输入的字符仍然显示出来,而不显示星号,原因可能是()。
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:PrivateSubCommand1_Click()DimiAsInteger,xAsIntegerFori=1To6
在窗体上画一个命令按钮,名称为Command1。然后编写如下事件过程:PrivateSubCommand1_Click()x=11Sum=0Fori=1Toxn=Iif(i>5,1,
在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程:PrivateSubCommand1_Click()strText=InputBox("请输入")
假定有如下的窗体事件过程:PrivateSubCommand1_Click()a$="MicrosoftVisualBasic"b$=Riqht(a$,5)c$=Mid(a$,1,9)
已知代数式eXSin(30°)2x/(x+y)Lnx,则正确的VisualBasic表达式为()。
变量未赋值时,数值型变量的值为______,字符串变量的值为______。
下列可作为VisualBasic变量名的是______。
以下关于KeyPress事件过程中参数KeyAscii的叙述正确的是______。
设a为整型变量,不能正确表达数学关系,“10<a<15”的表达式是______。
随机试题
在生产过程中,控制尘毒危害的最重要的方法是()。
患者,女,32岁。干咳、低热3天就诊。查体:体温37.5℃,双下肺可闻及少量湿啰音。X线胸片示双下肺斑片状阴影。血常规检查正常。问题2:上述抗感染治疗1周,患者症状无明显改善,渐呼吸困难。复查X线胸片示双下肺片状影略扩大。下列检查中对明确病因价值不大的
A.良性肿瘤B.恶性肿瘤C.交界性肿瘤D.癌前病变E.非肿瘤性良性病变海绵状血管瘤是
下列属于非选择性β受体阻断剂的是()。
贷款发放前,抵押人与银行要以书面形式签订抵押合同,抵押合同包括的内容有()。
甲公司为增值税一般纳税人,主要从事化妆品销售业务,20×9年发生如下业务:(1)4月,将本公司于20×8年10月购入的一处房产销售给乙公司,取得含税销售额1308万元。(2)5月,以附赠促销的方式销售A化妆品400件,同时赠送B化妆品200件。已知,A
甲上市公司为增值税一般纳税人,库存商品采用实际成本核算,商品售价不含增值税,商品销售成本随销售同时结转。20×7年3月1日,W商品账面余额为230万元。20×7年3月发生的有关采购与销售业务如下:(1)3月3日,从A公司采购W商品一批,收到的增值税专用发
下列各项中,应征收契税的有()。
在复杂任务的行为中,反应时间常包括()
CulturalUnderstandingLikelearningalanguage,developingculturalunderstandingoccursstepl>ystepovertime.Herearefive
最新回复
(
0
)