首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim i As Integer, n As Integer For i=0 To
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim i As Integer, n As Integer For i=0 To
admin
2015-06-30
74
问题
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim i As Integer, n As Integer
For i=0 To 50
i=i+3
n=n+1
If i>10 Then Exit For
Next
Text1.Text=Str(n)
End Sub
程序运行后,单击命令按钮,在文本框中显示的值是( )。
选项
A、2
B、3
C、4
D、5
答案
B
解析
程序中For循环的结束有两种情况,一种是循环完指定的次数,一种是达到一定的条件后直接退出循环。由于在循环体中循环变量i的值被修改:i=i+3,因此,每次循环开始时i的取值为0,4,8,i为8时执行i=i+3=11,n=n+1=3,这时i的值大于10,退出For循环,因此For循环执行了3次,即n的值为3。所以在文本框中会显示3。
转载请注明原文地址:https://kaotiyun.com/show/jrQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为了在按下Esc键时执行某个命令按钮的Click事件过程,需要把该命令按钮的一个属性设置为True,这个属性是
顺序存储方法是把逻辑上相邻的结点存储在物理位置【】的存储单元中。
阅读下面的程序段:Fori=1To3Forj=iTo3Fork=1To3a=a+iNextkNextjNexti执行上面的
在E盘当前目录文件夹下建立一个名为“Student.txt”的随机文件,要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有以下记录类型和窗体的事件过程,请选择正确的语句完成程序(
执行语句Open"TC,dat"ForRandomAs#1Len=50后,对文件TC.dat中的数据能执行的操作是()。
设当前日期为2007年12月27日,星期四,则执行下面语句后的输出结果为______。PrintDay(Now)PrintMonth(Now)PrintYear(Now)PrintWeekday(Now)
执行下面的语句后,所产生的信息框的标题是()a=MsgBox(“AAAA”,“BBBB”,“”,5)
表达式Left("howareyou",3)的值是
下面不属于软件工程的3个要素的是
(1)在窗体Forml上画一个名称为Textl的文本框和一个名称为Labell的标签,程序运行时,在文本框Textl中输入字符,文本框中的字符将值赋到Labell中。注意,本程序代码中不得使用任何变量。程序运行时的窗体界面如图50—l所示。注意:
随机试题
有以下程序:#includemain(){intx=1,y=2,z=3;if(x>y)if(y
A.麻疹疫苗B.乙型脑炎疫苗C.脊髓灰质炎疫苗D.百白破混合制剂E.乙肝疫苗2个月小儿应接种
维持阴阳相对的动态平衡称之为
脂肪酸合成酶催化合成的脂肪酸是
证券公司应当在集合资产管理计划设立工作完成后( )个工作日内,将集合资产管理计划的设立情况报中国证监会及注册地中国证监会派出机构备案。
首次发行的公开招股说明书摘要应当早于网上直播推介。()
主板上市公司申请公开发行新股,应满足的条件之一是()。
在某专利侵权纠纷民事诉讼中,专利权人申请人民法院通知具有专门知识的人张某出庭,代表当事人对专利侵权技术比对涉及的专业问题在法庭上提出意见。根据民事诉讼法及相关规定,下列关于该意见的哪种说法是正确的?
中世纪非常漫长,从公元5世纪到15世纪,整整1000年的时间。那时,大多数学者的时间和精力大都消耗在故纸堆里,他们将古代的智慧视为金科玉律,把古希腊自然哲学大师亚里士多德的思想当作是自然界所有知识的基础,只相信已有的解释,却拒绝怀疑,拒绝自己面对自然,所以
HowsciencegoeswrongScientificresearchhaschangedtheworld.Nowitneedstochangeitself.[A]Asimpleideaunderlies
最新回复
(
0
)