首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command 1 Click() Dim num As Integer,k As Integer,n As Integer num=InputBox(“请输入一个正整数:”) k=num n=2 Do Do Whi
编写如下程序: Private Sub Command 1 Click() Dim num As Integer,k As Integer,n As Integer num=InputBox(“请输入一个正整数:”) k=num n=2 Do Do Whi
admin
2015-11-24
76
问题
编写如下程序:
Private Sub Command 1 Click()
Dim num As Integer,k As Integer,n As Integer
num=InputBox(“请输入一个正整数:”)
k=num n=2
Do
Do While num Mod n=0
Print n::num=num/n
Loop
n=n+1:
Loop Until n>k/2
End Sub
程序运行后,单击命令按钮Commandl,并输入数值20,则输出结果为
选项
A、2 2 5
B、2 3 4
C、2 3 4 5
D、2 5
答案
A
解析
Do型循环结构,首先看条件判断在循环体的前面还是后,面,如果是先判断条件,则有可能一次也不执行循环体;如果是后判断条件,则无论条件是什么,至少执行一次循环体。在Until循环中条件为False时执行循环体,条件为True时退出循环;在While循环中条件为True时执行循环体,条件为False时退出循环。本题是一个嵌套的Do循环,外层循环是后判断条件的Until型循环,内层循环是先判断条件的While型循环。根据输入的值20可判断出三次输出的结果为2、2、5。
转载请注明原文地址:https://kaotiyun.com/show/2kLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序段的执行结果为m=1n=1SelectCasemCase1SelectCasenCase0print"A"Case1Print"B"EndSelectCase2
有如下的程序。PrivateSubCommand1_Click()DimkAsInteger,mAsIntegerDimPAsIntegerk=4:m=1P=Fun(k,m):PrintP;P=F
下面的数组声明语句中正确的是
在文本框中,当用户键入一个字符,能同时引发的事件是
两个或两个以上模块之间联系的紧密程度称为()。
实现字符串Unicode编码方式与州SI编码方式相互转换的函数是()。
表达式2+3*4^5-Sin(x+1)/2中最先进行的运算是()。
在窗体下画两个文本框Text1和Text2,一个命令按钮Command1,请阅读下列程序段:PrivateSubCommand1_Click()x=0DoUntilx>=50x=(x+4)*(x+3)n=n+1LoopText1.Te
代数式x1-|a|+In10+sin(x2+2π)/cos57°对应的VisualBasic表达式是()。
下列控件中可自动设置滚动条的是______。
随机试题
售后服务的内容不包括()
关于慢性肾盂肾炎的临床表现,下列哪项是不正确的
A.炮制类B.修治类C.采时、新陈类D.品质类E.颜色、气味类紫丹参加注术语属于
为规范工程造价计价行为,统一建设工程工程量清单的编制和计价方法,根据《中华人民共和国建筑法》、《中华人民共和国合同法》、《中华人民共和国招标投标法》等法律法规,制定了《建设工程工程量清单计价规范》(GB50500-2008)。在《建设工程工程量清单计
某企业试验用两种新材料生产产品。现从每种材料生产的产品中各随机抽取5个进行检验,测得产品的抗拉力(kg)数据如表2—1所示。请根据上述资料从下列备选答案中选出正确答案。[2012年初级真题]采用材料B生产的产品,其抗拉强度(kg)的(
辅导期纳税人专用发票的领购实行按次限量控制,每次发售增值税专用发票数量不超过()份。(2013年)
在下列事项中,能引起资本公积或股本发生增减变动的有()。
[*]
AnearthquakehitKashmironOct.8,2005.Ittooksome75000lives,【C1】______130000andleftnearly3.5millionwithoutfood
Text…Thegreatestadvantageofbooksdoesnotalwayscomefromwhatwerememberofthem,butfromtheir【C1】______.Agoo
最新回复
(
0
)