首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click0 Dim iAs Integer,n As Integer For i=0
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click0 Dim iAs Integer,n As Integer For i=0
admin
2019-03-08
43
问题
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click0
Dim iAs Integer,n As 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://www.kaotiyun.com/show/bqFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为Command1的命令按钮,其单击事件过程如下:PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerStaticzAsIntegerx
设程序中有以下语句:MsgBox"Visual",,"Basic","等级考试",2执行该语句后,显示一个信息框,以下关于该信息框的叙述中,正确的是
以下不能输出"Program"的语句是( )。
在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Label1,然后编写如下事件过程:PrivateSubCommand1_Click() Dimarr(10) Fori=6To10 arr(i)=i-5 N
设a=10,b=5,c=1,执行语句Printa>b>c后,窗体上显示的是( )。
以下关于框架的叙述中,错误的是
设数据元素集合为{A,B,C,D,E,F},下列关系为线性结构的是
设窗体上有一个文本框Text1,程序代码中有以下赋值语句(假定用到的控件和变量都存在),其中错误的是()。
数据库应用系统中的核心问题是( )。
由高中数学可知,对于连续函数f(x),若f(x1)与f(x2)值的符号相反,则在x1和x2之间必存在x0,使得f(x0)=0(该点称为"零点")。必存在x0,使得f(x0)=0(该点称为"零点")。设有VB函数:PrivateFunctionf(x
随机试题
淡竹叶具有的功效是()
A、活血祛瘀B、通络止痛C、引血下行D、引热下行E、补益肝肾血府逐瘀汤中配伍牛膝的主要用意是
镰刀型红细胞贫血是因基因突变,导致血红蛋白β链第六位氨基酸由
A.血管紧张素转化酶B.β肾上腺素受体C.羟甲戊二酰辅酶A还原酶D.钙离子通道E.钾离子通道普萘洛尔的作用靶点是
背景:某市政公司承包某路段的改建工程,全长1.5km,工期为当年7月至次年2月。该路段为城市次干道,道路结构层:20cm石灰土底基层,30cm二灰碎石基层,6cm粗、3cm细沥青混凝土面层;两侧为彩色人行道石板。项目部进场后,项目技术负
小庄要制作一个工业模具。他在一个边长4厘米的正方体上表面正中心位置向下挖掉一个直径2厘米、高2厘米的圆柱体,接着再向下挖掉一个直径1厘米、高1厘米的小圆柱体(如图所示)。那么,该模具的表面积约为()平方厘米?
试分析战后初期美苏冷战形成的原因。
Thisweek,inWashingtonandcitiesacrossthenation,immigrantadvocates,clergymembersandlaborandbusinessleadershaveb
在Windows7操作系统中,磁盘维护包括硬盘的检查、清理和碎片整理等功能,碎片整理的目的是()。
HerofficeintheFirstNationalBankbuildingisprovisional.
最新回复
(
0
)