首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: Private Sub Form—Click() Dim i As Integer,n As Integer For i=1 T0 20 i=i+4 n=n+i If i>10 Then Exit For Next Print n End S
有如下程序: Private Sub Form—Click() Dim i As Integer,n As Integer For i=1 T0 20 i=i+4 n=n+i If i>10 Then Exit For Next Print n End S
admin
2017-12-13
63
问题
有如下程序:
Private Sub Form—Click()
Dim i As Integer,n As Integer
For i=1 T0 20
i=i+4
n=n+i
If i>10 Then Exit For
Next
Print n
End Sub
程序运行后,单击窗体,则输出结果是( )。
选项
A、14
B、15
C、29
D、30
答案
D
解析
程序中For循环中的If语句判断循环变量i值如果大于10则退出循环。各次循环变量值变化如下:
i=1时,i=i+4=1+4=5,n=n+i=0+5=5,此时i=5,i>10不成立,i加1转入下次循环。
i=6时,i=i+4=6+4=10,n=n+i=5+10=15,此时,i=10,i>10不成立,i加1转入下次循环。
i=11时,i=i+4=1 1+4=15,n=n+i=15+15=30,此时,i=15,i>10成立,退出循环。此时n=30。
转载请注明原文地址:https://kaotiyun.com/show/AuGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个文本框,然后编写如下程序:OptionBase1PrivateSubForm_Click()DimArr(10)AsIntegerFori=6To10Arr(i)=i
在VisualBasic中,所有的窗体和控件都必定具有的一个属性是______。
在窗体上建立一个含有3个命令按钮的控件数组,当单击某个命令按钮时,分别执行不同的操作。请填写以下空白处,使程序完整。PrivateSubCommand2_Click(IndexAsInteger)FontSize=12
若在某窗体模块中有如下事件过程:PrivamSubCommand1_Click(IndexAsInteger)......EndSub则以下叙述中正确的是______。
软件按功能可以分为:应用软件、系统软件和支撑软件(或工具软件)。下面属于系统软件的是
设一棵完全二叉树共有700个结点,则此二叉树中的叶子结点数为
在软件开发中,需求分析阶段产生的主要文档是
(1)请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Forml的窗体上建立一个名称为Commandl的命令按钮数组,含三个命令按钮,它们的Index属性分别为0、1、2,标题依次为”是”、”否”、”取消”,每个按钮
为了声明一个长度为128个字符的定长字符串变量StrD,以下语句中正确的是
对于循环队列,下列叙述中正确的是()。
随机试题
与增值税专用发票相比,普通发票的使用者主要包括()
A.战略性计划B.战术性计划C.战备性计划D.战斗性计划E.战役性计划着眼于组织整体目标和方向的计划为
A.6%B.8%C.13%D.15%二级综合医院药学专业技术人员中具有副高级以上药学专业技术职务职称资格的应当不低于()。
项目评估通常采取()的方法。
银行开展的黄金业务的种类有()。
当获得的审核证据不能达到审核目的时,应采取相应的措施,这些措施包括()。
案例:下面是某教师“蜡烛及其燃烧”的教学片段实录。学生实验1:点燃蜡烛,取一根火柴梗,拿出一端迅速平放入火焰中(图1)约1s后取出。老师提问1:仔细观察燃着的蜡烛,注意蜡烛燃烧时发生的什么变化?火焰分为几层?哪层最明显?哪层最暗?学生实验2:分别
托尔斯泰说:“如果一个教师把热爱事业和热爱学生结合起来.他就是一个完美的教师。”这意味着教师要()。
Today,satellitesareusedtoprovidewirelessconnectivitybetweendifferentlocations.Whattwoprerequisitesareneededfort
DearMs.PareHill,AfriendinformedmethattheChicagoofficeofyourcompany,B.S.Accounting,isactivelyseekingto
最新回复
(
0
)