首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: Private Sub Form_Click() Dim i As Integer, n As Integer For i=1 To 20 i=i+4 n=n+i If i>10 Then Exit For
有如下程序: Private Sub Form_Click() Dim i As Integer, n As Integer For i=1 To 20 i=i+4 n=n+i If i>10 Then Exit For
admin
2018-12-20
41
问题
有如下程序:
Private Sub Form_Click()
Dim i As Integer, n As Integer
For i=1 To 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=11+4=15,n=n+i=15+15=30,此时,i=15,i>10成立,退出循环。此时n=30。
转载请注明原文地址:https://kaotiyun.com/show/7kFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮(名称为Command1),并编写如下代码:FunctionFun1(ByValaAsInteger,bAsInteger)AsInteger DimtAsInteger t=a-b b=t+a
运行如下程序PrivateSubCommand1_Click() Dima(5,5)AsInteger Fori=1To5 Forj=1To4 a(i,j)=i*2+j Ifa(i,
在名称为Frame1的框架中,有两个名称分别为op1、op2的单选按钮,标题分别为"单程"、"往返",如图所示。以下叙述中,正确的是( )。
阅读程序:OptionBase1PrivateSubForm_Click()DimArr(3,3)AsIntegerFori=1To3Forj=1To3
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:PrivateSubCommand1_Click()Dimn()AsIntegerDima,bAsIntegera=Inpu
如果把文本框的Enabled属性设置为False并运行程序,则以下叙述中正确的是
软件生命周期可分为定义阶段、开发阶段和维护阶段,下面不属于开发阶段任务的是
设有如下事件过程:PrivateSubForm_Click() Sum=0 Fork=1To3 Ifk
窗体上有一个Text1文本框,并编写了下面事件过程:PrivateSubText1_KeyPress(KeyAsciiAsInteger) KeyAscii=KeyAscii+3EndSub程序运行时,在文本框中输入字符"A",则在文本
随机试题
风力发电设备的安装程序中发电机安装的紧后工作是()。
初孕妇,36岁,妊娠24周。近日自感头晕、头痛,产检时测血压160/110mmHg、蛋白尿0.4g/24小时、脚踝部出现凹陷性水肿。诊断为子痫前期,其最基本的病理变化是
某工程的施工合同工期为16周,项目监理机构批准的施工进度计划如图2所示(时间单位:周)。各工作均按匀速施工。施工单位的报价单(部分)见表5。表5施工单位报价单表工程施工到第4周时进行进度检查,发生如下事件:事件1:A工作已经
按照概算法分类,下列费用中应列入工程建设其他项目费用的是()。
通电导线周围会产生磁场,这种现象称为电流的磁效应。在这一重大发现之后,一系列的新发现接连出现:安培发现了电流间的相互作用,阿拉果制成了第一个电磁铁等。发现电流的磁效应的科学家是()。
制约课程改革的三大因素是()。
下图是某民警对本市的网络安全事件案发数量的统计。据此,下列说法错误的是()。
在短时记忆系统中,言语材料是以哪种形式进行编码?()
运算器的完整功能是进行()。
Accordingtothepassage,whichistheoldestuniversityinGermany?WhichofthestatementabouttheUniversityofHeidelberg
最新回复
(
0
)