首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command1_ Click() Dim num As Integer,k As Integer,n As Integer hum=InputBox(”请输入一个正整数:”) k=
编写如下程序: Private Sub Command1_ Click() Dim num As Integer,k As Integer,n As Integer hum=InputBox(”请输入一个正整数:”) k=
admin
2018-10-15
28
问题
编写如下程序:
Private Sub Command1_ Click()
Dim num As Integer,k As Integer,n As Integer
hum=InputBox(”请输入一个正整数:”)
k=hum 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/BFFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在名称为Form1、标题为“标签”的窗体上添加一个名称为Labell的标签,并设置适当属性以满足以下要求:①标签的标题为“计算机等级考试”;②标签可根据标题内容自动调整其大小;③标签带有边框,且标签标题显示为三号字。程序运行后
假定在图片框Picture1中装入了一个图片,在程序运行中,为了清除该图片(注意,清除图片,而不是删除图片框),应采用的正确方法是( )。
有如下程序代码:PrivateSubForm_Click()n=0k=1Whilen
设Label1、Command1、Text1、Check1分别为标签、命令按钮、文本框、复选框的名称,则以下属性设置语句中,运行时不会出错的是
软件生命周期可分为定义阶段、开发阶段和维护阶段,下面不属于开发阶段任务的是
某二叉树共有845个结点,其中叶子结点有45个,则度为1的结点数为
一棵二叉树中共有80个叶子结点与70个度为1的结点,则该二叉树中的总结点数为
一棵二叉树中共有80个叶子结点与70个度为1的结点,则该二叉树中的总结点数为
设循环队列的存储空间为Q(1:35),初始状态为front=rear=35。现经过一系列入队与退队运算后,front=15,rear=15,则循环队列中的元素个数为
随机试题
Iamwritingtoyoutotalkabouttakingupoccupationsforcollegegraduates.Nowadaysyouarelookingforwardtoobtainingemp
男,49岁,右髋部疼痛1年半,近1个月加重,不发热,有饮酒史。根据骨盆平片,最可能的诊断为
患者,男,60岁。咳嗽3个月伴痰血,近1个月来进行性气急来院就诊。仰卧位时气急加重。体检:吸气性呼吸困难,见三凹征,两肺闻及喘鸣音。常规X线胸片未见明显异常。其诊断首先应考虑
下列不属于实物资产清查范围的是()。
证券投资者是买卖证券的客体。()
对于有食物过敏问题的孩子,目前通行的预防手段是严格从饮食中剔除可能导致过敏的食材。然而,约翰霍普金斯大学的过敏及免疫学研究小组日前在《新英格兰医学杂志》上发表论文指出,适当接触过敏源可以显著减少急性重症过敏发生的概率。在对55名年龄在5到11岁之间有鸡蛋过
设f(χ)在[a,b]上连续,在(a,b)内可导(a>0),证明:存在ξ∈(a,b),使得=ξf′(ξ).
用Excel创建“销售利润表”(内容如下表所示),按照题目要求完成后,用Excel的保存功能直接存盘。[要求]1.表格要有可视的边框,并将表中的列标题设置为宋体、12磅、加粗、居中;其他内容设置为宋体、12磅、居中。2.计算
WhatisSallydoingnow?
A、Giveapresentation.B、Raisesomequestions.C、Startanewcompany.D、Attendaboardmeeting.A对话开头,女士问男士关于公司重组的报告准备得如何了,男士回答说
最新回复
(
0
)