首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
假定有如下程序: Private Sub Form Click() Dim N As Integer,J As Integer N=0 J=l Do Until N>2 N=N+1:J=J+N*(N+1) L
假定有如下程序: Private Sub Form Click() Dim N As Integer,J As Integer N=0 J=l Do Until N>2 N=N+1:J=J+N*(N+1) L
admin
2020-01-02
69
问题
假定有如下程序:
Private Sub Form Click()
Dim N As Integer,J As Integer
N=0 J=l
Do Until N>2
N=N+1:J=J+N*(N+1)
Loop
Print N:J
End Sub
运行程序,单击窗体,输出结果是
选项
A、3 21
B、3 7
C、0 1
D、3 13
答案
A
解析
Do循环语句的功能是:当指定的“循环条件”为真或直到指定的“循环条件”变为真之前重复执行循环体。Do whileluntil…Loop循环是在条件满足的情况下才执行一次循环体,而Do…Loop WhilelUntil循环不管是否满足条件都先执行一次循环体,然后再判断条件是否成立以决定后续操作。本题的循环共执行3次,跳出循环时N的值为3,J的值为2l。
转载请注明原文地址:https://kaotiyun.com/show/OmTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
现有如下一段程序:OptionBase1PrivateSubCommand1_Click()Dimaa=Array(3,5,7,9):x=1Fori=4To1Step-1s=s+a
在菜单编辑器中建立1个名称为Menu()的菜单项,将其“可见”属性设置为False,并建立其若干子菜单,然后编写如下过程PrivateSubForm_MousDown(ButtonAsInteger,ShiftAsInteger,X
设a=”a”,b=”b”,c=”c”,d=”d”,执行语句x=IIf((ad),”A”,“B”)后,X的值为
InputBox函数返回值的类型为()。
下列程序的输出结果为()。S1="1":S2="2":S1=Val(S1)+Val(S2)S2=Val("12")IfS1<>S2TllenPrintS1-S2ElsePrintS2-S1
()控件可以使图形根据控件大小而改变大小。
窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序:DimyAsIntegerPrivateSubCommand1_Click()DimXAsIntegerx=2
将E-R图转换到关系模式时,实体与联系都可以表示成()。
输入VisualBasic源程序时,若一个命令行中包含两个语句,则两个语句之间的分隔符应使用()。
一般情况下,当对关系R和S进行自然连接时,要求R和S含有一个或者多个共有的
随机试题
多媒体计算机硬件中,()提供音频信号输入、输出接口。
下列关于董事会的说法,正确的有()。
有利于合规风险管理的基本制度的内容不包括()。
影响净资产收益率的因素有()。
党委领导和政府领导都要不断适应新形势的需要,通过改革和完善,加强各自的领导职能,形成领导关系的全面强化。()
新西兰怀托摩萤火虫洞里的萤火虫对生存环境的要求____________,遇到光线和声音便无法生存。目前只在新西兰和澳大利亚发现了这种萤火虫。人们无法在影视作品中欣赏到,连旅游宣传照片也__________。依次填入画横线部分最恰当的一项是()。
2009年1~3月,全国完成房地产开发投资4880亿元,同比增长4.1%。其中,商品住宅完成投资3422亿元,同比增长3.2%,比1~2月提高2.4个百分点,比去年同期回落31.5个百分点。1~3月,全国房地产开发企业房屋施工面积17.87亿平方
Isathleteprowessattainedorinnate?Thosewhohavesufferedthescoldingofatyrannicalgamesmasteratschoolmightbeforg
A、BecausehewenttobuyaTVset.B、Becausehewenttovisithisfriend.C、BecausehehelpedbisfriendfixhisTV.D、Becauseh
E-mail1To:DBLOnlineFrom:MarshaSmithSubject:OrderDearMr.Chapman,Wewouldliketobuy30Futuracomp
最新回复
(
0
)