首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮,然后编写如下事件过程: Private Sub Commandl Click() Dim iAs Integer,nAs Integer For i=0 To 50
在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮,然后编写如下事件过程: Private Sub Commandl Click() Dim iAs Integer,nAs Integer For i=0 To 50
admin
2017-06-21
30
问题
在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮,然后编写如下事件过程:
Private Sub Commandl Click()
Dim iAs Integer,nAs Integer
For i=0 To 50
i=i+3:n=n+1
Ifi>10 Then Exit For
Next
Text1.Text=Str(n)
End Sub
程序运行后,单击命令按钮,在文本框中显示的值是
选项
A、2
B、3
C、4
D、5
答案
B
解析
语句Exit For的作用是退出当前For循环。本题中。For循环语句的循环变量i不仅在执行到Next语句时后自动加1,而且在每次执行循环体中的i=i+3语句时,还会加3。当第1次进入循环体时i=0、n=0;当第2次进入循环体时i=4、n=1;当第3次进入循环体时i=8、n=2,此时当执行i=i+3和n=n+1语句后,i=11、n=3,If语句的条件表达式i>10为真,将退出循环,故文本框中显示的值为3。
转载请注明原文地址:https://kaotiyun.com/show/VPGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮,然后编写如下代码:PrivateTypeRecordIDAsIntegerNameAsString*20EndTypePrivateSubCommand1_Cli
在新建一个VB工程时,将新建窗体的Name属性设置为TheFirst,则默认的窗体文件名为()。
在设计程序时,应采纳的原则之一是()。
在面向对象方法中,一个对象请求另一对象为其服务的方式是通过发送______。
在数据流图(DFD)中,带有名字的箭头表示______。
在窗体上绘制一个名称为Label1的标签,然后编写如下事件过程:PrivateSubForm_Click() Dimarr(10,10)AsInteger DimiAsInteger,jAsInteger
如果将文本框的Locked属性设置为Tree,则以下说法正确的是
在窗体上面画一个名称为TxtA的文本框,然后编写如下的事件过程:PrivateSubTxtA_KeyPress(Keyasciiasinteger)EndSub若焦点位于文本框中,则能够触发KeyPress事件的操作是__
下列叙述中正确的是()。
以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组,然后画一个名为Text2的文本框和名为Command1命令按钮。运行时在文本框数组中输入7个分数,单击“计算得分”命令按钮,则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后
随机试题
A.去甲肾上腺素B.缩胆囊素C.促胃液素D.促胰液素主要促使胰腺腺泡细胞分泌消化酶的是
关于低密度脂蛋白,以下说法正确的是
制备肠溶胶囊剂时,用甲醛处理明胶的目的是
当利用计算机或自动设备对检测或校准数据控制时,实验室应确保:()。
与计算机网络连接的系统都要遵守网路协议,网络协议主要由()三个要素构成。
某项目进行成本偏差分析,结果为:已完工程实际施工成本—已完工程计划施工成本>0;拟完工程计划施工成本—已完工程计划施工成本
党的基本路线规定了初级阶段的奋斗目标,即把我国建设成为社会主义现代化的国家。( )
柏拉图、卢梭、托尔斯泰和程伊川都曾怀疑到文学的影响,______它是不道德的或是不健康的。世间有一部分文学作品确有这种毛病,本无可讳言,但是不能______,我们只能归咎于作品不完美,不能______文学本身必有罪过。填入画横线部分最恰当的一项是:
甲、乙两人站在匀速上升的自动扶梯从底部向顶部行走,甲每分钟走扶梯的级数是乙的2倍;甲走了36级到达顶部,而乙则走了24级到顶部。那么,自动扶梯有多少级露在外面?()
Itisoftenobservedthattheagedspendmuchtimethinkingandtalkingabouttheirpastlives,【C1】______aboutthefuture.Thes
最新回复
(
0
)