首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim i As Integer,n As Integer For i=0 To 50 i=i+
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim i As Integer,n As Integer For i=0 To 50 i=i+
admin
2019-03-08
21
问题
在窗体上画一个名称为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>10Then 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/eaFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在名称为Form1,标题为“选课”的窗体上添加一个复选框数组,名称为CHl,共有四个复选框,按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”,其中“语文”、“计算机”复选框处在选中状态下,程序运行时的窗体如图所示。请按要求添加控件并设置相应
窗体的单击事件过程如下:PrivateSubForm_Click()n=FreeFileOpen"e:\f1.txt"ForInputAsnDoWhileNotEOF(n)Line
窗体的单击事件过程如下:PrivateSubForm_Click()Dima(5,5)AsIntegerFori=1To5Forj=1To5a(i,j)=
在VisualBasic中,不能关闭的窗口是
下列关于栈的叙述中,正确的是
以下关于框架的叙述中,错误的是
下面程序运行时,若输入395,则输出结果是( )。PrivateSubCommand1_Click() Dimx% x=InputBox("请输入一个3位整数") PrintxMod10,x\100,(xMod100)\10
(1)在名称为Form1的窗体上添加一个名称为Com.mahd1的命令按钮(如图1所示),然后通过属性窗口设置窗体和命令按钮的属性,实现如下功能:①窗体标题为“设置按钮属性”;②命令按钮的标题为“等级考试”;③程序运行后,命令
表达式Sgn(0.25)的值是( )。
VisualBasic中的"启动对象"是指启动VisualBasic应用程序时,被自动加载并首先执行的对象。下列关于VisualBasic"启动对象"的描述中,错误的是( )。
随机试题
设向量a=(2,4,一5),b=(2,3,k),若a与b垂直,则k=___________。
骨纤维异常增殖症常见的典型X线表现是
A.背甲B.贝壳C.干燥全体D.角E.干燥分泌物斑蝥的药用部位是
热敷的适应证
为了保证场内证券交易的公开、公平、公正,使其高效、有序地进行,证券交易所制定了交易原则和规则。下列各项不符合交易原则的是()。
下列各项中,属于银行资产业务的有()。
甲生前就其全部财产立有三份遗嘱,且三份遗嘱的内容相冲突。其中第二份遗嘱经过了公证。甲死之后,其遗产应按()。
某公司本月预计开支80000元,除日常办公用品需6000元外,拿出预支的30%做房屋租金,购买计算机用去剩余资金的1/5,其他费用都是工资,如果员工的平均工资是1000元,问该公司有多少名员工?
A.watchB.informationC.withPhrases:A.associated【T1】______a22-minutereductionintheirlifeexpectancyB.livedanaver
下列特征中不是面向对象方法的主要特征的是()。
最新回复
(
0
)