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

admin2020-02-27 44

问题编写如下程序：
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/M3Tp777K

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

二级VB

NCRE全国计算机二级

相关试题推荐

设栈的存储空间为S(1：50)，初始状态为top=51。现经过一系列正常的入栈与退栈操作后，top=50，则栈中的元素个数为()。
为了使文本框同时具有垂直和水平滚动条，应先把MultiLine属性设置为True，然后再把ScrollBars属性设置为()。
下列叙述中正确的是()。
利用通用对话框控件打开字体对话框的操作是()。
对于某些控件，只要将其Style属性设置为1，则可以在该控件上使用Picture属性显示图片。以下不具备这一使用规则的控件是()。
为使文本框具有初始值“VB”，在设计阶段正确的操作是()。
VisualBasic中的“启动对象”是指启动VisualBasic应用程序时，被自动加载并首先执行的对象。下列关于VisualBasic“启动对象”的描述中，错误的是()。
在考生文件夹下有一个工程文件sjt5．vbp，功能是用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是：a2+b2=c2。例如，3、4、5就是一个满足条件的整数组合(注意：a，b，c分别为4，3，5与分别为3，4，5被视为同一个组合，不应该重复计算)
把数学表达式表示为正确的VB表达式应该是(　　)。
数据流图中带有箭头的线段表示的是()。

随机试题

在异种钢焊接接头的熔合区易产生碳扩散，形成具有塑性变形能力大的脱碳层和变形能力差的增碳层。
磷的氧化反应是放热的，故在焊接熔池的____有利于脱磷反应的进行。
求向量组α1＝(2，3，1)T，α2＝(1，－1，3)T，α3＝(3，2，4)T的一个极大无关组，并将其余向量用该极大无关组表示出来．
流行病学探索病因的一般程序是
某拟建水利枢纽工程为坝后式开发，工程以防洪为主，兼顾供水和发电。水库具有年调节性能，坝址断面多年平均流量88．7m3／s。运行期电站至少有一台机组按额定容量的45％带基荷运行，可确保连续下泄流量不小于5m3／s。工程永久占地80hm2，临时占地1
根据《质量管理体系》GB／T19000—2008，施工企业开展质量管理和质量保证的基础是()。
应急预案演练的目的不包括()。
下列各项中，可以用于辅助生产费用分配的方法有（）。
至晚清时期，苏州当地玉器作坊达()余家。
A、 B、 C、 B当表示乐于接受对方的邀请或请求、建议时，可不用yes或no来回答。

最新回复(0)

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

二级VB

NCRE全国计算机二级

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

为了使文本框同时具有垂直和水平滚动条，应先把MultiLine属性设置为True，然后再把ScrollBars属性设置为()。

下列叙述中正确的是()。

利用通用对话框控件打开字体对话框的操作是()。

对于某些控件，只要将其Style属性设置为1，则可以在该控件上使用Picture属性显示图片。以下不具备这一使用规则的控件是()。

为使文本框具有初始值“VB”，在设计阶段正确的操作是()。

VisualBasic中的“启动对象”是指启动VisualBasic应用程序时，被自动加载并首先执行的对象。下列关于VisualBasic“启动对象”的描述中，错误的是()。

把数学表达式表示为正确的VB表达式应该是( )。

数据流图中带有箭头的线段表示的是()。

在异种钢焊接接头的熔合区易产生碳扩散，形成具有塑性变形能力大的脱碳层和变形能力差的增碳层。

磷的氧化反应是放热的，故在焊接熔池的____有利于脱磷反应的进行。

求向量组α1＝(2，3，1)T，α2＝(1，－1，3)T，α3＝(3，2，4)T的一个极大无关组，并将其余向量用该极大无关组表示出来．

流行病学探索病因的一般程序是

根据《质量管理体系》GB／T19000—2008，施工企业开展质量管理和质量保证的基础是()。

应急预案演练的目的不包括()。

下列各项中，可以用于辅助生产费用分配的方法有（）。

至晚清时期，苏州当地玉器作坊达()余家。

A、 B、 C、 B当表示乐于接受对方的邀请或请求、建议时，可不用yes或no来回答。

把数学表达式表示为正确的VB表达式应该是(　　)。