首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: 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
36
问题
有如下程序:
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://jikaoti.com/ti/Fdm0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为VScroll1的滚动条,当用鼠标拖动滚动条中的滚动块时,触发的事件是( )。
以下不能触发滚动条Change事件的操作是( )。
阅读程序:OptionBase1PrivateSubForm_Click()DimArr(3,3)AsIntegerFori=1To3Forj=1To3
决定标签内容显示位置的属性是
用语句Open"C:\teac.txt"ForInputAs#1打开文件后,就可以编程序
下列程序段的输出结果是x=5Printx+1;x+1
为了在Form_Load事件过程中用Print方法在窗体上输出指定的内容,首先应执行的操作是
窗体上有一个Text1文本框,并编写了下面事件过程:PrivateSubText1_KeyPress(KeyAsciiAsInteger) KeyAscii=KeyAscii+3EndSub程序运行时,在文本框中输入字符"A",则在文本
设工程文件中包名称分别为Form1、Form2的两个窗体,且Form1的菜单属性设置如下:窗体Form1中的程序如下:DimFlagAsBooleanPrivateSubForm_Load() Flag=TrueEndSubPr
随机试题
某企业的网络安全设备配置拓扑如图所示。请为该企业设计网络安全解决方案。
10岁小儿,因多尿、烦渴、疲乏来院就诊,经检查空腹血糖10mmol/L,临床诊断为糖尿病胰岛素依赖型。护士指导其控制饮食时,每天正确的热卡摄入量是
为加强土地管理,2008年6月,A省切实加大了土地调控力度,A省政府出台了《关于加强全省土地调控工作的通知》。同时还制定了相应的配套措施。一是切实做好被征地农民社会保障工作。二是制止违规集资合作建房,切实落实城镇廉租住房资金,全面建立住房保障制度。三是进一
大面积填海造地工程平均海水约2.0m,淤泥层平均厚度为10.0m,重度为15kN/m3,采用e—lgp曲线计算该淤泥层固结沉降,已知该淤泥层属正常固结土,压缩指数Ce=0.8。天然孔隙比e0=2.33,上覆填土在淤泥层中产生的附加应力按120kPa计算,
甲为其一块名贵金表在乙保险公司办理了足额财产保险。某日,甲将该金表放在办公桌上,被同事丙不慎摔坏。根据保险法律制度的规定,下列表述中,正确的有()。
你怎么认识组织的灵活性和原则性?
非法撤销他人的荣誉称号,侵犯他人的()。
东山市威达建材广场每家商场的门边都设有垃圾桶。这些垃圾桶的颜色是绿色或红色。如果上述断定为真,则以下哪项一定为真?Ⅰ.东山市有一些垃圾桶是绿色的。Ⅱ.如果东山市的一家商店门边没有垃圾桶,那么这家商店不在威达建材广场。Ⅲ.如果东山市的一家商店门边有一个
依法治国的目的是()
Youwillhearacollegelecturertalkingtoaclassofbusinessstudentsaboutthehistoryofmoneyanditsfunctions.Asyo
最新回复
(
0
)