首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: Private Sub Command1_Click() Dim i As Integer,j As Integer,sum As Integer n=1 Do j=1 Do sum=sum+
有如下程序: Private Sub Command1_Click() Dim i As Integer,j As Integer,sum As Integer n=1 Do j=1 Do sum=sum+
admin
2017-04-25
47
问题
有如下程序:
Private Sub Command1_Click()
Dim i As Integer,j As Integer,sum As Integer
n=1
Do j=1
Do
sum=sum+j:j=j+1 Printj;
Loop Until j>3
n=n+2
Loop Until n>10
Print sum
End Sub
运行上述程序,外层Do循环执行的次数为
选项
A、4
B、5
C、7
D、10
答案
B
解析
外循环的控制条件为n>10,即n>10的时候结束循环:在每次内循环中j都会自加,j>3的时候退出内循环,即每次外循环中内循环都会执行3次;由于内循环没有改变n的值,而在外循环中n的值自加2,所以外循环共循环5次。
转载请注明原文地址:https://kaotiyun.com/show/GQGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Text1的文本框,然后编写如下代码:OptionBase1PrivateSubFormClick()DimarrDimStartAsInteger,FinishAs
复选框的Value属性为0时,表示该复选框()。
在窗体上画一个列表框、一个文体框及一个按钮,然后编写如下事件过程:PrivateSubForm_loab()List.AddItem″357″List.AddItem″246″List.AddItem″123″List.Add
窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序DimyAsIntegerPrivateSubCommand1_Click()DimxAsIntegerX=2
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()DimnumAsIntegernum=1DoUntilnu
设在窗体上有个文本框,然后编写如下的事件过程。PrivateSubText1_KeyDown(KeyCodeAsIntegef,ShiftAsInteger)ConstAlt=4ConstKey_F2=
在窗体上添加一命令按钮,名称为Command1,然后为该命令按钮编写如下事件过程,该过程的执行结果为OptionBase1PrivateSubCommand1_Click()DimaAsVarianta
单击一次命令按钮之后,下列程序段的执行结果为()。PubicSubProc(a()AsInteger) StaticiAsInteger Do a(i)=a(i)+a(i+1) i=i+1
下列叙述中正确的是()。
随机试题
男性,60岁,反复发作劳累后心前区痛2年,近一个月来发作频繁,发作时间延长,程度加重,应诊为哪一型心绞痛
下列哪项一般不会引起全口义齿基托折裂
其主要诊断应是( )。上述情况发生,除立即给氧外,首先应采取的措施为( )。
A、血竭B、海金沙C、青黛D、雄黄E、冰片燃烧时熔融成紫红色液体,生成黄白色烟,有强烈蒜臭气
A.阿米卡星B.红霉素C.土霉素D.阿昔洛韦E.利福喷丁属于大环内酯类抗生素的为()。
下列各项中,能够直接引起法律关系发生、变更或者消灭的是()。
扇动一张纸,一个孩子感受到空气在脸上拂过。过了一段时间,在有风的一天,他感受到了风。因此他觉得风的形成是树在晃动。根据皮亚杰的儿童智力发展阶段理论,2-7岁年龄阶段的儿童处于()。
近来,伊拉克境内的动荡局势日趋严重,频繁发生的爆炸事件既让占领军美国大兵们感到惶惶不可终日,也让伊拉克平民们饱受血泪交织而成的痛苦。很显然,是美国人的入侵导致了这一切,但恐怖分子针对平民的行为似乎又显示出他们的目标远远不只是为了向美国人复仇那么简单,种种迹
设A=(α1,α2,α3,α4)为4阶方阵,且AX=0的通解为X=k(1,1,2,一3)T,则α2由α1,α3,α4表示的表达式为________.
NarratorListentoaconversationbetweenAnaandhertutorabouthercoursessettlement.Nowgetreadytoanswerthequestions.
最新回复
(
0
)