首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序代码: Private Sub Form_Click() Dim flag As Boolean Dim Num As Integer flag = True Num = 0 Do Do W
有如下程序代码: Private Sub Form_Click() Dim flag As Boolean Dim Num As Integer flag = True Num = 0 Do Do W
admin
2015-09-23
48
问题
有如下程序代码:
Private Sub Form_Click()
Dim flag As Boolean
Dim Num As Integer
flag = True
Num = 0
Do
Do While Num < 20
Num = Num + 1
If Num > 10 Then
flag = False
Exit Do
End If
Loop
Loop Until flag = False
Print Num
End Sub
运行程序,单击窗体,输出结果是
选项
A、11
B、10
C、True
D、False
答案
A
解析
Do ……Loop Until循环,当程序开始执行时,先执行循环体,再计算循环"条件"值,当条件为真时结束循环,否则执行循环体。Do While…Loop,当程序开始执行时,先计算循环"条件"值,当条件为假时结束循环,否则执行循环体。Num=0,Num<20为真,执行循环Num=1,Num>10为假,继续执行内层while循环,……,当Num=10时,Num>0为假,因Num<20为真故继续执行内层while循环,Num=11,Num>10为真,flag = False,退出内层while循环,退出If语句。进入外层Do ……Loop Until循环,Until中循环条件flag = False为真,结束外层循环。故最后输出结果为11。本题正确答案为A。
转载请注明原文地址:https://www.kaotiyun.com/show/RGLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列叙述中正确的是______。
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubComandl_Click()Dimarrayl(10,10)AsIntegerDimiA
一个类可以从直接或间接的祖先中继承所有属性和方法。采用这个方法提高了软件的【】。
下述程序执行后,输出结果是()。Forn=3To1Step-1x$=String$(n,"#")Printx$Nextn
在窗体上放一个文本框Text1,在文本框中输入456,并有如下事件过程,PrivateSubFormClick()x=InputBox("请输入一个整数")Printx+Text1.TextEndSub单击该窗体,在
下列特征中不是面向对象方法的主要特征的是()。
下列叙述中正确的是()。
在名为Form1的窗体上绘制一个名称为Lab1的标签,标题为“口令窗口”:绘制2个文本框,名称分别为Text1和Text2,都没有初始内容;再绘制3个命令按钮,名称分别为Cmd1、Crud2和Cmd3,标题分别为“显示”、“隐藏”和“复制”,在开始运行时,
在窗体(名称为Form1,KeyPreview属性为Tree)上绘制一个列表框(名称为List1)和一个文本框(名称为Text1)。编写窗体的KeyDown事件过程。程序运行后,如果按A键,则从键盘上输入要添加到列表框中的项目(内容任意,不少于3个):
数据结构作为计算机的一门学科,主要研究数据的逻辑结构、对各种数据结构进行的运算,以及
随机试题
先秦时期,对“名”、“实”问题提出自己看法的思想家有
控制性超排卵方案中超短方案是指
肝性脑病并发碱中毒时,应首选
为确定肝脓肿穿刺点或手术引流进路,首选的辅助检查方法是
ECC合同通过早期警告和补偿事件等条款的设置,在很大程度上体现了合作伙伴管理所倡导的()的管理机制及合作共赢的理念。
为保证会计账簿记录的正确性,会计人员编制记账凭证时必须依据()。
一个正方形的边长增加20%后,它的面积增加百分之几?()
设区域D={(x,y)|x2+y2≤4,x≥0,y≥0},f(x)为D上的正值连续函数,a,b为常数,则=()
下列关于栈的叙述正确的是()。
A、Shecanhearthemcryingveryloudlyatthezoo.B、Shehasheardthempantingandwastolditwaslaughter.C、Shehasreadabo
最新回复
(
0
)