首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Commandl的命令按钮,一个名称为Labell的标签,然后编写如下事件过程: Private Sub Commandl.Click() s=0 For i=1 To 15 x=2*i-1 If
在窗体上画一个名称为Commandl的命令按钮,一个名称为Labell的标签,然后编写如下事件过程: Private Sub Commandl.Click() s=0 For i=1 To 15 x=2*i-1 If
admin
2015-10-23
51
问题
在窗体上画一个名称为Commandl的命令按钮,一个名称为Labell的标签,然后编写如下事件过程:
Private Sub Commandl.Click()
s=0
For i=1 To 15
x=2*i-1
If x Mod 3=0 Then s=s+1
Next i
Labell.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、2l、23、25、27、29,其中是3的整数倍的数有3、9、15、2l、27共5个,因此s的值为5。
转载请注明原文地址:https://www.kaotiyun.com/show/lJLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
阅读以下程序:PrivateSubForm_Click()Dimk,n,mAsIntegern=10m=1k=1DoWhilek<=nm=m+2k=k+1LoopPrintm
以下程序用于求S=1+3+32+33+…+310的值。PrivateSubCommandl_Click()S=1T=1ForI=1To10T=______S=S+TNextIPrint"S=
下面程序运行后的结果是()。PrivateSubForm_Click()DimsAsInteger,kAsInteger,iAsInteger,nAsIntegers=1
如果将PassWordChar属性设置为一个字符,如星号(*),运行时,在文本框中输入的字符仍然显示出来,而不显示星号,原因可能是()。
设有如下程序:PrivateSubForm_Click()DimaAsInteger,sAsIntegern=8:s=0Dos=s+n:n=n-1LoopWhilen>0P
以下关系表达式中,其值为假的是
设用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组说法错误的是
编写如下两个事件过程:PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)EndSubPrivateSubForm_KeyPress(K
关于创建通用过程的方法叙述正确的是()。
随机试题
新生儿,出生26小时,因“无明显诱因出现颜面皮肤浅黄染6小时”就诊。患儿精神及吃奶可,无发热、嗜睡、拒奶、抽搐等症状。当地医院给予单面蓝光照射治疗12小时,皮肤黄疸较前加重,波及躯干及四肢。患儿为G2P1,母孕39周自然分娩,母亲血型O型,无特殊疾病及特殊
男性,32岁,轻度膀胱刺激症状1个月就诊。尿常规检查白细胞4~5个/HP,红细胞2~3个/HP,尿结核菌培养阳性。在该病人接受手术治疗前,至少应用抗结核药物治疗( )。
下列关于某病病死率和死亡率的叙述,正确的是
患儿11个月,因睡眠不安、多汗、易惊来院就诊。体检可见明显方颅、肋骨串珠,诊断为佝偻病活动期。对患儿母亲进行护理指导时,下列提法哪项不妥
2017年12月12日,经与黄河公司协商,长江公司以一项非专利技术和对甲公司债务工具投资(作为以公允价值计量且其变动计入其他综合收益的金融资产核算)换人黄河公司持有的对乙公司长期股权投资。长江公司非专利技术的原价为1200万元,已摊销200万元,已计提减值
与资产相关的政府补助的公允价值不能合理确定的,企业应以名义金额对其进行计量,并计入当期损益。()
制定战略之前要对企业外部宏观环境进行分析,通常称为PEST分析,以下属于其中的“P”所指的因素的是()。
根据下表回答以下问题,字符替换。天里与人COS4
WheredoesObamamakethespeech?
SomeAmericansarealittlenervousaboutthenation’sfuture,butothersfeelsecure,knowingthatthemantheyconsiderthemo
最新回复
(
0
)