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

admin2015-06-30 23

问题编写如下程序：
Private Sub Command1_Click()
Dim num As Integer
Dim 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
程序运行后，单击命令按钮Command1，并输入数值20，则输出结果为

选项 A、2  2  5
B、2  3  4
C、2  3  4  5
D、2  5

答案A

解析 Mod为求余函数。内层Do While循环在num Mod n 不等于0时退出。Do Loop Until循环满足n > k / 2条件时退出。执行结果选A）。

转载请注明原文地址:https://kaotiyun.com/show/u5Qp777K

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

二级VB

NCRE全国计算机二级

相关试题推荐

下列关于SubMain过程的叙述，正确的是
只有当一个对象的______和______属性为True，它才能获得焦点。
为了清除列表框中指定的项目，应使用的方法为
假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应执行的操作是
在关系数据库中，对一个关系做投影操作后，新关系的元组个数将
首先执行循环体，然后再进行条件判断，决定是否结束循环的循环语句是______。
在C盘当前文件夹下有一个已建立好的顺序文件Alph.txt，文件内容为只含有字母的一个字符串(有双引号界定符)。单击窗体，打开Alph.txt文件，读取字符串并显示在文本框Text1中，然后调用StrSort过程将此字符串按ASCII码的顺序重新排列并显示
表达式Right("Beijing",4)的值是()
关于MDI窗体下列说法正确的是()。

随机试题

肾上腺髓质分泌_______和_______两种激素。
患者男性，56岁，患肺痨五年，刻下症见咳嗽无力，声低懒言，痰中夹血，血色淡红，午后低热，面咣白颧红。舌嫩红有齿痕，苔薄白，脉细弱数。
会计科目代码结构是指代码共有多少级以及各级代码的长度。()
下列关于风险说法正确的是()。
深圳证券交易所规定，每个交易日()，交易主机只接受申报，但不对买卖申报或撤销申报作处理。
下列各项中，需要修订产品基本标准成本的情况有()。
A公司(上市公司)是坐落于黑龙江省的国内大型现代化农业企业，公司采用现代农业生产方式，从事特色农产品种植、加工、保鲜、冷藏及销售。公司主要产品为：鲜食粘玉米、玉米果汁、玉米粒、青贮饲料、果肉型葡萄、葡萄酒。A公司资产总额近15亿元人民币，其中存货占公司
2000—2008年，该省贸易顺差达到最大的年份是()。
试述资本国际流动的动因。[东北财经大学2013国际商务硕士]
设A，B都是n阶矩阵，并且A是可逆矩阵．证明：矩阵方程AX=B和XA=B的解相同AB=BA．

最新回复(0)

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

二级VB

NCRE全国计算机二级

下列关于SubMain过程的叙述，正确的是

只有当一个对象的和属性为True，它才能获得焦点。

为了清除列表框中指定的项目，应使用的方法为

假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应执行的操作是

在关系数据库中，对一个关系做投影操作后，新关系的元组个数将

首先执行循环体，然后再进行条件判断，决定是否结束循环的循环语句是______。

表达式Right("Beijing",4)的值是()

关于MDI窗体下列说法正确的是()。

肾上腺髓质分泌_和_两种激素。

患者男性，56岁，患肺痨五年，刻下症见咳嗽无力，声低懒言，痰中夹血，血色淡红，午后低热，面咣白颧红。舌嫩红有齿痕，苔薄白，脉细弱数。

会计科目代码结构是指代码共有多少级以及各级代码的长度。()

下列关于风险说法正确的是()。

深圳证券交易所规定，每个交易日()，交易主机只接受申报，但不对买卖申报或撤销申报作处理。

下列各项中，需要修订产品基本标准成本的情况有()。

2000—2008年，该省贸易顺差达到最大的年份是()。

试述资本国际流动的动因。[东北财经大学2013国际商务硕士]

设A，B都是n阶矩阵，并且A是可逆矩阵．证明：矩阵方程AX=B和XA=B的解相同AB=BA．

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

二级VB

NCRE全国计算机二级

下列关于SubMain过程的叙述，正确的是

只有当一个对象的______和______属性为True，它才能获得焦点。

为了清除列表框中指定的项目，应使用的方法为

假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应执行的操作是

在关系数据库中，对一个关系做投影操作后，新关系的元组个数将

首先执行循环体，然后再进行条件判断，决定是否结束循环的循环语句是______。

表达式Right("Beijing",4)的值是()

关于MDI窗体下列说法正确的是()。

肾上腺髓质分泌_______和_______两种激素。

患者男性，56岁，患肺痨五年，刻下症见咳嗽无力，声低懒言，痰中夹血，血色淡红，午后低热，面咣白颧红。舌嫩红有齿痕，苔薄白，脉细弱数。

会计科目代码结构是指代码共有多少级以及各级代码的长度。()

下列关于风险说法正确的是()。

深圳证券交易所规定，每个交易日()，交易主机只接受申报，但不对买卖申报或撤销申报作处理。

下列各项中，需要修订产品基本标准成本的情况有()。

2000—2008年，该省贸易顺差达到最大的年份是()。

试述资本国际流动的动因。[东北财经大学2013国际商务硕士]

设A，B都是n阶矩阵，并且A是可逆矩阵．证明：矩阵方程AX=B和XA=B的解相同AB=BA．

只有当一个对象的和属性为True，它才能获得焦点。

肾上腺髓质分泌_和_两种激素。