编写如下程序： Private Sub Command l_Click() Dim num As Integer,k As Integer,n As Integer num=InputBox(”请输入一个正整数：

admin2019-06-11 53

问题编写如下程序：
Private Sub Command l_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/YxUp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)

编写如下程序： Private Sub Command l_Click() Dim num As Integer,k As Integer,n As Integer num=InputBox(”请输入一个正整数：

二级VB

NCRE全国计算机二级

要求如果x被7除余2，则输出x的值，下列语句中不能实现此功能的语句是()。

当文本框中的内容发生改变时所触发的事件是()。

若在窗体模块的声明部分声明了如下自定义类型和数组：PrivmeTyperecCodeAsIntegerCaptionAsStringEndTypeDimarr(5)Astee则下

设窗体文件中有下面的事件过程：PfivteSubCommand1_Click()Dimsa％=100PrintaEndSub其中变量a和s的数据类型分别是()。

窗体上有一个名称为Picturel的图片框控件，一个名称为Label1的标签控件，如图所示。现有如下程序：PublicSubdisplay(xAsControl)IfTypeOfxisLabelThenx

窗体上有Text1、Text2两个文本框，并编写了下面的程序代码：PrivateSubForm_Click()x％=29Text1=fun(x)Dox=x+1LoopUntilIsPrim

循环队列的存储空间为Q(1：50)，初始状态为front=rear=50。经过一系列正常的入队与退队操作后，front=rear=25，此后又正常地插入了一个元素，则循环队列中的元素个数为()。

设栈的存储空间为S(1：50)，初始状态为top=0。现经过一系列正常的入栈与退栈操作后，top=30，则栈中的元素个数为()。

下面关于数据库三级模式结构的叙述中，正确的是()。

不稳定型心绞痛与非ST段抬高的心肌梗死的主要区别在于

CK测定中，推荐使用的激活剂是

对客户信息的获取、记录、储存、分析和利用的一系列活动，我们通常称为()。

阐述布鲁纳的认知结构学习理论及其教育含义。

在一片古老和_的交替中，我家的老屋虽然算不得十分苍老，但显然已经宛如我一样，成了个年近六旬的初老之人，早已失去了往日的_。填入画横线部分最恰当的一项是：

矛盾不可避免，问题总是存在，但我们既不能因为畏惧困难就，也不能只凭的一腔血勇。填入画横线部分最恰当的一项是：

中国共产党制定党的最高纲领和最低纲领是在()

TheCraftofPerfumeryThecraftofperfumeryhasanancientandglobalheritage.TheartflourishedinAncientRome,where

编写如下程序： Private Sub Command l_Click() Dim num As Integer,k As Integer,n As Integer num=InputBox(”请输入一个正整数：

二级VB

NCRE全国计算机二级

要求如果x被7除余2，则输出x的值，下列语句中不能实现此功能的语句是()。

当文本框中的内容发生改变时所触发的事件是()。

若在窗体模块的声明部分声明了如下自定义类型和数组：PrivmeTyperecCodeAsIntegerCaptionAsStringEndTypeDimarr(5)Astee则下

设窗体文件中有下面的事件过程：PfivteSubCommand1_Click()Dimsa％=100PrintaEndSub其中变量a和s的数据类型分别是()。

窗体上有一个名称为Picturel的图片框控件，一个名称为Label1的标签控件，如图所示。现有如下程序：PublicSubdisplay(xAsControl)IfTypeOfxisLabelThenx

窗体上有Text1、Text2两个文本框，并编写了下面的程序代码：PrivateSubForm_Click()x％=29Text1=fun(x)Dox=x+1LoopUntilIsPrim

循环队列的存储空间为Q(1：50)，初始状态为front=rear=50。经过一系列正常的入队与退队操作后，front=rear=25，此后又正常地插入了一个元素，则循环队列中的元素个数为()。

设栈的存储空间为S(1：50)，初始状态为top=0。现经过一系列正常的入栈与退栈操作后，top=30，则栈中的元素个数为()。

下面关于数据库三级模式结构的叙述中，正确的是()。

不稳定型心绞痛与非ST段抬高的心肌梗死的主要区别在于

CK测定中，推荐使用的激活剂是

对客户信息的获取、记录、储存、分析和利用的一系列活动，我们通常称为()。

阐述布鲁纳的认知结构学习理论及其教育含义。

在一片古老和_________的交替中，我家的老屋虽然算不得十分苍老，但显然已经宛如我一样，成了个年近六旬的初老之人，早已失去了往日的_________。填入画横线部分最恰当的一项是：

矛盾不可避免，问题总是存在，但我们既不能因为畏惧困难就____________________，也不能只凭____________________的一腔血勇。填入画横线部分最恰当的一项是：

中国共产党制定党的最高纲领和最低纲领是在()

TheCraftofPerfumeryThecraftofperfumeryhasanancientandglobalheritage.TheartflourishedinAncientRome,where

在一片古老和_的交替中，我家的老屋虽然算不得十分苍老，但显然已经宛如我一样，成了个年近六旬的初老之人，早已失去了往日的_。填入画横线部分最恰当的一项是：

矛盾不可避免，问题总是存在，但我们既不能因为畏惧困难就，也不能只凭的一腔血勇。填入画横线部分最恰当的一项是：