首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command1_Click() Dim num As Integer Dim k As Integer, n As Integer num = InputBox("请输入一个正整数:") k
编写如下程序: Private Sub Command1_Click() Dim num As Integer Dim k As Integer, n As Integer num = InputBox("请输入一个正整数:") k
admin
2020-07-22
51
问题
编写如下程序:
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/5RHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有文本框Text1和一个菜单,菜单标题、名称见表,结构如图所示。要求程序执行时单击“保存”菜单项,则把其标题显示在Tcxt1文本框中,下面可实现此功能的事件过程是()。
下面不属于软件测试实施步骤的是
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()DimviAsInteger,nAsIntegerFori=0To50i=i+3:
以下关于窗体的叙述中错误的是
将E-R图转换为关系模式时,E-R图中的属性可以表示为
以下能够正常结束循环操作的程序段是
数据的存储结构是指
某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值:PrivateSubCommand1_Click() Dima(10)AsInteger,maxAsInteger Fork=1To10 a(k)=In
对长度为n的线性表作快速排序,在最坏情况下,比较次数为
某二叉树共有12个结点,其中叶子结点只有1个。则该二叉树的深度为(根结点在第1层)
随机试题
十字沟槽式联轴器在装配时,允许两轴钱有少量的径向偏转和歪斜。()
(2011年4月)公务员的津贴分为______和______。
简述规避风险的手段。
DNA损伤修复所需的核酸内切酶缺乏,会造成
下列属于抗白三烯的药物是()。
甲冒充房主王某与乙签订商品房买卖合同,约定将王某的住房以220万元卖给乙,乙首付100万元给甲,待过户后再支付剩余的120万元。办理过户手续时,房管局工作人员识破甲的骗局并报警。根据司法解释,关于甲的刑事责任的认定,下列哪一选项是正确的?(2017/2/5
案例F集团公司拥有长距离轻质原油输运管道(简称Ⅱ号管道),公司下属的H分公司负责Ⅱ号管道日常巡检维护,公司下属的工分公司负责Ⅱ号管道现场抢险及其他应急处置。Ⅱ号管道位于G市的海港居民生活区(简称海港区)。2013年12月2日19时,Ⅱ号管道在
事业单位的下列各项业务,不会引起专用基金发生增减变化的是()。
旅行社强迫旅游者购物的,每次应向旅游者支付旅游费用总额()的违约金。
Inabout45years,temperaturesonEarthwillbehotterthanatanytimeduringthepastonemillionyears,saystheU.S.【B1】____
最新回复
(
0
)